JPL  Publication  92-32,  Vol.  II 


An  Improved  Approach  for  Flight 
Readiness  Certification — 

Probabilistic  Models  for  Flaw 
Propagation  and  Turbine  Blade  Failure 

Volume  II:  Software  Documentation 

N.  R.  Moore 
D.  H.  Ebbeler 
L E.  Newlin 
S.  Sutharshana 
M.  Creager 


December  30,  1 992 


fW\SA 

National  Aeronautics  and 
Space  Administration 

Jet  Propulsion  Laboratory 

California  Institute  of  Technology 
Pasadena,  California 


The  research  described  in  this  publication  was  carried  out  by  the  Jet  Propulsion 
Laboratory.  California  Institute  of  Technology,  under  a contract  with  the  National 
Aeronautics  and  Space  Administration. 

Reference  herein  to  any  specific  commercial  product,  process,  or  service  by  trade 
name,  trademark,  manufacturer,  or  othenwise.  does  rwt  constitute  or  imply  its 
endorsement  by  the  United  States  Government  or  the  Jet  Propulsion  Laboratory, 
California  Institute  of  Technology. 


Preface 


This  report  presents  a methodology  for  managing  failure  risk  cost-effectively  and 
evaluating  flight  readiness  of  such  aerospace  systems  as  launch  vehicles  and 
planetary  spacecraft.  The  methodology  was  developed  by  the  Jet  Propulsion 
Laboratory  (JPL)  under  NASA  RTOP  553-02-01  sponsored  by  the  Office  of  Space 
Flight  (OSF),  NASA  Headquarters.  This  work  was  performed  as  a part  of  the  Cer- 
tification Process  Assessment  task  initiated  by  OSF  due  to  concern  about  criteria 
for  certifying  flight  readiness  of  the  Space  Shuttle  propulsion  system.  The 
methodology  is  not  only  applicable  to  flight  readiness  evaluation,  but  also  to 
design  definition  and  to  the  identification  of  risk  control  measures  during  the 
design,  development,  or  operational  phases  of  a project. 

An  early  phase  of  this  work  included  an  extensive  review  of  certification  and 
failure  risk  assessment  approaches  used  by  the  aerospace  industry  and  govern- 
ment agencies.  Based  on  the  findings  of  this  review,^  further  work  was  focused  on 
defining,  developing,  and  demonstrating  an  improved  technical  approach  for 
failure  risk  assessment  that  can  incorporate  information  from  both  test  experience 
and  analytical  modeling  to  obtain  a quantitative  failure  risk  estimate.  This  ap- 
proach, called  Probabilistic  Failure  Assessment  (PFA),  is  of  particular  value  when 
information  relevant  to  failure  prediction,  including  test  experience  and  knowledge 
of  parameters  used  in  analytical  modeling  of  failure  phenomena,  is  expensive  or  dif- 
ficult to  acquire.  Under  such  constraints,  a quantitative  evaluation  of  failure  risk 
based  on  the  information  available  from  both  analytical  modeling  and  operating  ex- 
perience is  needed  to  make  effective  risk  management  decisions  that  utilize  finan- 
cial resources  efficiently. 

The  PFA  methodology  is  applicable  to  failure  modes  that  can  be  characterized 
by  analytical  or  empirical  modeling  of  failure  phenomena,  including  those  of  struc- 
tural, electro-optical,  propulsion,  power,  and  thermal  control  systems,  and  is  espe- 
cially useful  when  models  or  information  used  in  analysis  are  uncertain  or 
approximate.  PFA  can  be  applied  at  any  time  in  the  design,  development,  or 
operational  phases  of  a program  to  quantitatively  estimate  failure  risk  based  on  the 
information  available  at  the  time  of  the  risk  assessment  and  can  be  used  to 
evaluate  and  rank  alternative  measures  to  control  risk,  thereby  enabling  the  more 
effective  allocation  of  limited  financial  resources. 


^ See  [14]  of  Section  1.0  references. 


The  work  documented  in  this  report  was  carried  out  by  a multidisciplinary  team 
of  JPL  technical  personnel,  which  was  managed  by  N.  R.  Moore.  This  team  was 
composed  of  individuals  with  expertise  in  statistics,  systems  modeling  and  en- 
gineering analysis.  D.  H.  Ebbeler  formulated  and  structured  the  statistical 
methodology  and  directed  its  implementation.  L.  E.  Newlin  formulated  and  imple- 
ment^ probabilistic  engineering  models  and  implemented  the  statistical  methodol- 
ogy.  S.  Si^harshana  formulated  and  implemented  probabilistic  analytical  methods 
and  models.  M.  Creager^  made  major  contributions  to  defining  and  formulating 
the  probabilistic  modeling  approach  and  analytical  modeling  procedures  used  in 
this  work.  p.  Goode  typeset  the  manuscript,  including  graphics,  using  com- 
puterized desktop  publishing  methods,  and  E.  Reinig  edited  the  manuscript. 

In  developing  the  PFA  methodology,  the  JPL  team  interacted  with  aerospace  sys- 
tem man^acturers,  the  Marshall  Space  Flight  Center,  and  the  Lewis  Research  Cen- 
ter.  Individuals  of  these  organizations  generously  shared  information  and  spent 
significant  amounts  of  time  with  the  JPL  team.  In  particular,  Rocketdyne,  Canoga 
Park,  California;  Aerojet  TechSystems,  Nimbus,  California;  and  Pratt  & Whitney 
West  Palm  Beach,  Florida,  collaborated  in  performing  the  application  examples 
given  heran  In  addition,  technical  comments  on  certification  approaches  and 
failure  modeling  were  provided  by  personnel  from  the  above-listed  organizations 

Electric,  Cincinnati.  Ohio;  the  Federal  Aviation  Administration;  and  the 
Wright-Patterson  Air  Force  Base. 

T^e  PFA  methc^ology.  examples  of  its  application  to  spaceflight  components 
and  computer  software  used  to  implement  PFA  are  documented  In  the  two 
volumes  of  this  report.  Volume  I documents  the  PFA  methodology  and  the  applica- 
tion examples,  including  the  rationale  for  PFA  and  the  analysis  procedures  used  in 
the  examples.  Volume  II  contains  detailed  documentation  of  the  computer 
so^are  used  to  implement  PFA  for  the  application  examples,  including  user’s 

guides,  code  execution  examples,  flowcharts,  and  listings  of  the  computer 
programs.  ^ 
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Abstract 


An  improved  methodology  for  quantitatively  evaluating  failure  risk  of  spaceflight 
systems  to  assess  flight  readiness  and  identify  risk  control  measures  is  presented. 
This  methodology,  called  Probabilistic  Failure  Assessment  (PFA),  combines  operat- 
ing experience  frorn  tests  and  flights  analytical  modeling  of  failure  phenomena 
to  estimate  failure  risk.  The  PFA  methodology  is  of  particular  value  when  informa- 
tion on  which  to  base  an  assessment  of  failure  risk,  including  test  experience  and 
quire  parameters  used  in  analytical  modeling,  is  expensive  or  difficult  to  ac- 

The  P^  methodology  is  a prescribed  statistical  structure  in  which  analytical 
rnodels  that  characterize  failure  phenomena  are  used  conjointly  with  uncertainties 
about  analysis  parameters  and/or  modeling  accuracy  to  estimate  failure  probability 
distributions  for  specific  failure  modes.  These  distributions  can  then  be  modified 
by  means  of  statistical  procedures  of  the  PFA  methodology,  to  reflect  any  test  or’ 
light  expenerice.  State-of-the-art  analytical  models  currently  employed  for  design 
failure  prediction,  or  performance  analysis  are  used  in  this  methodology. 

The  PFA  methodology  can  be  applied  at  any  time  in  the  design,  development  or 
operational  phases  of  a program  to  quantitatively  estimate  failure  risk  based  on  the 
information  available  at  the  time  failure  risk  is  assessed.  Sensitivity  analyses  con- 
ducted as  a part  of  PFA  can  be  used  to  evaluate  and  rank  such  alternative 

Kiwf  r !?  design  changes,  testing,  or  inspections,  thereby  ena- 

bling limited  program  resources  to  be  allocated  more  effectively. 

PFA  is  generally  applicable  to  failure  modes  that  can  be  characterized  by  analyti- 
cal or  empirical  models  of  failure  phenomena  and  is  especially  valuable  when 
models  or  inforniation  used  in  analysis  are  uncertain  or  approximate.  Such  failure 
modes  include,  but  are  not  limited  to,  fatigue,  flaw  propagation,  erosion,  malfunc- 
tions of  mechanical  or  electrical  systems,  and  shortfalls  with  respect  to  perfor- 
mance or  life  goals  for  thermal  control,  electro-optical,  power,  or  propulsion 
systems. 

It  is  often  not  feasible  to  acquire  enough  test  experience  to  establish  high 
reliability  at  high  confidence  for  spaceflight  systems.  Moreover,  the  results  of  con- 
ventionally performed  analytical  modeling  of  failure  modes  can  be  subject  to 
serious  misinterpretation  when  uncertain  or  approximate  information  is  used  to  es- 
tablish analysis  parameters  and  calibrate  the  accuracy  of  analysis  models.  Under 
these  conditions,  a quantitative  evaluation  of  failure  risk  based  on  the  information 


VI 


available  from  both  test  or  flight  experience  and  analytical  modeling  is  needed  to 
make  effective  risk  management  decisions. 

This  report  discusses  the  rationale  for  the  statistical  approach  taken  in  the  PFA 
methodology,  describes  the  PFA  methodology,  and  presents  examples  of  its  ap- 
plication to  structural  failure  modes.  The  engineering  models  and  computer 
software  used  in  fatigue  crack  growth  and  fatigue  crack  initiation  applications  are 
thoroughly  documented. 
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Section  5.1 

Crack  Growth  Analysis  Software 

5.1.1  Introduction 

This  section  presents  a description  of  the  computer  program  PROCRK  which  im- 
plements the  crack  growth  analysis  discussed  in  Section  2.  The  code  PROCRK 
was  used  to  analyze  the  HPOTP  Heat  Exchanger  (HEX)  Coil  and  the  proposed  Ex- 
ternal Heat  Exchanger  (EXHEX).  The  program  PROCRK  is  modular  and  hence  can 
be  easily  modified  for  crack  growth  analysis  of  different  components.  Different 
modules  were  provided  for  stress  analysis  and  stress  intensity  factor  calculations 
for  the  HEX  coil  and  EXHEX  analyses.  The  overall  layout  of  the  program  is 
described  by  using  a main  flowchart  that  refers  to  other  flowcharts  which  describe 
subprograms  and  key  portions  of  the  main  program  in  greater  detail.  The  program 
tree  structure,  a list  of  subprograms,  a description  of  the  key  variables,  and  the 
FORTRAN  source  listing  for  the  crack  growth  analysis  code  PROCRK  are  given  in 
Section  7.1.  The  relevant  user’s  guide  for  running  this  code  is  given  in  Section  6.1. 
A glossary  of  standard  flowchart  symbols  is  given  in  Appendix  5.A. 

5.1.2  PROCRK  Program 

The  crack  growth  methodology  is  implemented  as  the  FORTRAN  program 
PROCRK.  This  section  provides  the  description  and  flowcharts  for  program 
PROCRK. 

5.1. 2.1  Main  Routine 

The  master  flowchart  for  the  PROCRK  program  is  given  in  Figure  5.1-1.  The  pro- 
gram starts  by  opening  the  following  input  and  output  files: 


NAME 

TYPE 

CONTENTS 

CRKDAT 

Input 

Analysis  data 

CRKRES 

Output 

Input  data  echo,  results 

lOUTPR 

Output 

i Run  information  and  user-requested  information 

LOWLIF 

Output 

First  one  percent  of  sorted  crack  growth  lives 

The  arrays  and  variables  are  set  to  their  default  or  initial  values  in  the  SETDEF 
routine  described  in  Section  5. 1.2.2.  The  input  data  is  then  read  from  the  CRKDAT 
file  in  the  INPUT  routine  described  in  Section  5. 1.2.3  and  an  echo  of  the  input  data 
is  written  onto  the  CRKRES  file.  The  materials  data  including  the  daldN  vs.  AK 
crack  growth  data  is  read  and  processed  in  the  GRODAT  routine  described  below 
in  Section  5. 1.2.4. 
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Figure  5.1-1  Main  Flowchart  for  Crack  Growth  Analysis  Program 
PROCRK 
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The  selection  of  hyperparameters^  is  performed  in  the  outer  DO  loop  of  the 
simulation  by  calling  the  HYPDRW  routine  described  in  Section  5.1. 2.5.  The  driver 
draws  are  performed  within  the  inner  DO  loop  of  the  simulation  by  calling  the 
PARDRW  routine  described  in  Section  5.1.2.^  The  routine  LIFCAL  performs  driver 
transformation  and  calculates  the  crack  growth  life  within  the  inner  DO  loop.  The 
LIFCAL  routine  is  described  below  in  Section  5. 1.2.7. 

The  crack  growth  lives  are  arranged  in  ascending  order  in  a list  containing  the 
lowest  one  percent  of  the  lives.  The  INSORT  routine  performs  an  insertion  sort 
with  each  new  life.  When  the  outer  DO  loop  is  completed,  the  list  of  lives  repre- 
senting the  left-hand  tail  of  the  failure  distribution  is  written  to  file  LOWLIF.  Routine 
INSORT  is  described  in  Appendix  5.B  of  [1]. 

5.1 .2.2  SETDEF  Routine 

The  arrays  and  variables  are  set  to  their  default  or  initial  values  in  this  routine. 
Most  of  the  arrays  and  variables  are  initialized  to  zero.  The  array  LIFE( ),  which  is 
used  to  store  and  sort  the  lowest  one  percent  of  the  crack  growth  lives,  is  initial- 
ized to  a large  value  and  the  number  of  crack  lengths  NCRL  used  for  block  growth 
calculations  is  initialized  to  fifty.  Also,  the  logical  variable  FAIL  which  flags  unstable 
crack  growth  (i.e.,  when  K > K^)  is  initialized  to  ’FALSE’. 

5.1. 2.3  INPUT  Routine 

The  input  data  is  read  from  the  CRKDAT  file  in  this  routine.  First  the  analysis  con- 
trol variables  including  the  simulation  size  are  read  and  echoed  in  the  lOUTPR  file. 
Then,  the  driver  distribution  information  is  read.  Next,  the  load/stress  history  infor- 
mation is  read.  Finally,  some  miscellaneous  information,  such  as  the  Willenborg 
retardation  model  parameter,  is  read.  An  echo  of  the  input  data  is  written  onto  the 
CRKRES  file. 

5.1. 2.4  GRODAT  Routine 

The  flowchart  for  the  GRODAT  routine  is  given  in  Figure  5.1-2.  First  the  daldN 
vs.  AK  crack  growth  data  and  material  properties,  such  as  fracture  toughness, 
threshold  stress  intensity  factor  (SIF)  range,  and  tensile  strength,  are  read  from  the 
CRKDAT  file.  Then  regression  of  the  crack  growth  data  is  performed  to  fit  the 
generalized  Forman  Equation  2-7.  Four  options  are  available  to  derive  the  equation 
parameters  C,  n.  m,  p,  and  q,  as  follows: 


^ Hyperparameters  are  discussed  in  Section  2.1.1  of  [1]. 
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Figure  5.1-2  Flowchart  for  Subprogram  GRODAT 
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OPTION 

PURPOSE 

1 

Fix  p regress  for  C,  m,  n,  a 

2 

Fix  m,  p regress  for  C,  n,  q 

3 

Fix  m.  p,  0 regress  for  C.  n 

4 

Regress  for  C,  m,  n,  p,  q 

An  external  function  DETER4  is  employed  to  calculate  the  determinant  of  a 4x4 
matrix  for  the  IREGOP  = 4 case. 

5.1. 2.5  HYPDRW  Routine 

The  selection  of  hyperparameters  is  performed  in  the  outer  DO  loop  of  the 
simulation  by  calling  the  HYPDRW  routine.  This  includes  calling  the  RANDOM  and 
PRYRV  subroutines  to  obtain  the  p and  6 parameters  for  drivers  with  Beta  distribu- 
tions, and  p and  o parameters  for  drivers  with  Normal  distributions. 

5.1 .2.6  PARDRW  Routine 

The  driver  draws  are  performed  within  the  inner  DO  loop  of  the  simulation  by  call- 
ing the  PARDRW  routine.  Drivers  are  selected  by  calling  BETAGN,  NORMGN,  and 
PRYRV,  which  draw  from  Beta,  Normal,  and  Uniform  distributions,  respectively. 

The  general-purpose  probability  distribution  subroutines  RANDOM,  BETAGN, 
NORMGN,  and  PRYRV  are  described  in  Sections  4.4  and  7.6  of  [1]. 

5.1 .2.7  LIFCAL  Routine 

The  flowchart  for  the  LIFCAL  routine  is  given  in  Figure  5.1-3.  First,  the  stress  his- 
tory is  derived  in  one  of  the  following  routines. 


ROUTINE 

PURPOSE 

STRAN1 

HEX  coil  stress  calculation 

STRAN2 

EXHEX  stress  calculation 

STRAN1  and  STRAN2  routines  are  described  in  Section  5. 1.2.8.  A rainflow  cycle 
count  is  performed  and  a stress-level  vs.  number-of-cycles  table  is  generated  in 
the  CYCOUN  routine  described  in  Section  5. 1.2.9.  The  life  integration  DO  loop  cal- 
culates block  growth  rates  at  NCRL  number  of  crack  lengths  by  calling  the 
BLKGRO  routine  described  in  Section  5.1.2.10. 

5.1. 2.8  STRAN1  and  STRAN2  Routines 

The  flowchart  for  the  STRAN1  routine  is  given  in  Figure  5.1-4.  The  maximum 
principal  stress  was  assumed  to  be  the  axial  stress  component  for  the  HEX  coil. 
The  composite  principal  stress  history,  which  is  due  to  static,  random,  sinusoidal, 
and  aerodynamic  loads,  is  derived  in  this  routine.  First,  the  static  stresses  are  as- 
signed to  the  stress  history.  Then,  the  reference  time  histories  for  each  load  com- 
ponent are  scaled  by  the  non-time-varying  dynamic  stress  magnitudes  and  added 
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Figure  5.1-3  Flowchart  for  Subprogram  LIFCAL 
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Figure  5.1-4 
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STRESS  TERMS  a^r 
CALCULATIONS  FOR  LOCATION  1 
(See  Section  5. 1.3.3  of  [1]) 


Flowchart  for  Subprogram  STRAN1 
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Figure  5.1-4  Flowchart  for  Subprogram  STRANI  (Cont’d) 
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to  the  principal  stress  time  history.  The  stress  magnitudes  are  calculated  by  calling 
the  following  routines. 


LOCATION 

POSITION 

ROUTINE 

1 

Exterior  Surface 

M4L1 

2 

Interior  Surface 

M4L2 

M4L1  and  M4L2  routines  are  described  in  Section  5. 1.2.3  in  [1]. 

The  flowchart  for  the  STRAN2  routine  is  given  in  Figure  5.1-5.  This  routine  is 
similar  to  STRAN1  except  that  the  stress  magnitudes  rather  than  the  load  mag- 
nitudes are  provided  as  input  and  hence  additional  routines  are  not  called  for  the 
stress  magnitude  calculations.  Due  to  the  nature  of  the  loading  in  the  EXHEX  the 
maximum  principal  stress  was  assumed  to  be  equal  to  the  component. 

5.1. 2.9  CYCOUN  Routine 

The  flowchart  for  CYCOUN  is  given  in  Figure  5.1-6.  This  routine  is  similar  to  the 
rainflow  cycle  counting  routine  described  in  Section  5.1. 3.5  in  [1]. 

First,  the  principal  stress  history  is  scanned  to  identify  the  iargest  stress  and  its 
location.  The  history  is  resequenced  such  that  the  largest  stress  is  placed  at  the 
beginning  and  end  of  the  stress  array.  Then,  the  intermediate  points  in  the  history 
are  filtered,  leaving  only  the  peaks  and  troughs.  This  is  done  by  testing  for  a sign 
change  in  the  gradients  of  adjacent  segments.  Next,  the  counting  of  the  cycles 
begins.  Consecutive  peaks  and  troughs  are  added  to  a holding  array,  each  time 
checking  whether  the  new  peak-trough  segment  is  greater  than  the  previous  one; 
if  so,  then  a cycle  has  been  closed.  Then,  the  peak  and  trough  corresponding  to 
the  closed  cycle  are  removed  from  the  holding  array.  The  cycle  is  saved  if  it  is 
large  enough,  i.e.,  larger  than  a user-specified  threshold.  The  procedure  is 

repeated  by  adding  new  peaks  and  troughs  to  the  holding  array  until  another  cvcie 
is  identified. 

Once  all  the  cycles  have  been  identified,  the  alternating  and  mean  values  of 
each  stress  cycle  are  calculated.  The  stress  range  of  the  biggest  cycle  is  divided 
into  one  hundred  equal  stress  ranges  (or  bins)  and  each  stress  cycle  is  assigned 
to  a bin  based  on  its  magnitude.  This  reduces  the  results  of  the  cycle  counting  to  a 
number-of-cycles  vs.  stress-level  table.  An  equivalent  mean  stress  may  be  calcu- 
lated for  the  entire  history  based  on  the  mean  of  the  biggest  cycle.  The  routine 

NEUBER,  described  in  Section  5.1. 3.6  in  [1],  is  called  to  estimate  the  equivalent 
mean  stress. 
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DO  I — NLOAD 


Fig  ure  5.1-5  Flowchart  for  Subprogram  STRAN2 
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( START  ") 


Figure  5.1-6  Flowchart  for  Subprogram  CYCOUN 
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Fig  ure  5. 1 -6  Flowchart  for  Subprogram  CYCOUN  (Cont’d) 
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TOTAL  NUMBER  OF  POINTS 
IN  ARRAY 

NEWTOT  = K + 1 
INDEX  = M + 1 


SET  UP  THE  PEAK  - TROUGH  ARRAY 
K = INDEX  i 


Figure  5.1-6  Flowchart  for  Subprogram  CYCOUN  (Cont'd) 
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Figure  5.1-6  Flowchart  for  Subprogram  CYCOUN  (Cont’d) 
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Figure  5.1-6  Flowchart  for  Subprogram  CYCOUN  (Cont’d) 
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5.1.2.10  BLKGRO  Routine 

The  flowchart  for  BLKGRO  is  given  in  Figure  5.1-7.  First,  the  stress-intensity  fac- 
tor coefficients  are  calculated  in  the  following  routines; 


ROUTINE 

PURPOSE 

STRIF1 

Stress  intensity  factor  coefficients  for  HEX  coil 

STRIF2 

Stress  intensity  factor  coefficients  for  EXHEX 

The  stress  intensity  factor  routines  STRIF1  and  STRIF2  are  described  in  Section 
5.1.2.11. 

The  crack  growth  in  a block  is  calculated  as  given  by  Equation  2-17,  by  sum- 
ming the  growth  due  to  the  cycles  at  each  stress  level,  for  each  direction  (a  and  c) 
of  crack  growth.  If  growth  retardation  is  considered  (IRET  = 1),  an  effective  SIF 
range,  and  stress  ratio,  are  calculated  as  per  the  Willenborg  model 
given  by  Equations  2-12  through  2-16.  Growth  calculations  are  performed  after 
checking  for  < AK^,  and  conditions,  which  are  the  no-growth  and 

the  unstable  crack  cases,  respectively. 

5.1.2.11  STRIF1  and  STRIF2  Routines 

The  STRIF1  routine  calculates  stress  intensity  factor  coefficients  for  the  HEX  coil 
crack  configuration.  As  described  in  Section  2.1  the  standard  solution,  for  an  ellip- 
tic crack  in  a finite  width  plate,  given  in  NASA/FLAGRO  [2]  is  employed. 

The  STRIF2  routine  calculates  SIF  coefficients  for  the  EXHEX  crack  configura- 
tion. The  expressions  given  in  [3]  for  a crack  in  a plate  are  employed. 
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Figure  5.1-7  Flowchart  for  Subprogram  BLKGRO 
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Figure  5.1-7  Flowchart  for  Subprogram  BLKGRO  (Cont’d) 
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Section  5.2 

Low  Cycle  Fatigue  Analysis  Software 

5.2.1  Introduction 

This  section  presents  a description  of  the  computer  program  which  implements 
the  LCF  analysis  discussed  in  Section  3.2.  The  code  for  analyzing  the  ATD-HPFTP 
first  stage  turbine  blade  is  described  below  in  Section  5.2.2.  The  overall  layout  of 
the  program  is  described  by  using  a main  flowchart  that  refers  to  other  flowcharts 
which  describe  subprograms  and  key  portions  of  the  main  program  in  greater 
detail.  The  program  tree  structure,  a list  of  subprograms,  a description  of  the  key 
variables,  and  the  FORTRAN  source  listing  for  the  LCF  analysis  code  BLDLCF  are 
given  in  Section  7.2.  The  materials  characterization  subprograms  and  those  sub- 
programs that  are  of  a generic  nature,  such  as  the  random  variate  generators,  are 
described  in  [1],  Section  4.1  and  Section  4.4  respectively.  The  relevant  user’s 
guide  for  running  this  code  is  given  in  Section  6.2.  A glossary  of  standard  flow- 
chart symbols  is  given  for  the  reader’s  benefit  in  Appendix  5.A. 

5.2.2  BLDLCF  Program 

The  LCF  analysis  of  the  ATD-HPFTP  first  stage  turbine  blade  is  implemented  as 
the  FORTRAN  program  BLDLCF.  Figure  5.2-1  shows  the  structure  of  the  Prob- 
abilistic Failure  Model  (PFM)  for  the  Blade.  This  section  provides  the  description 
and  flowcharts  for  program  BLDLCF. 

5.2.2.1  Main  Routine 

The  master  flowchart  for  the  BLDLCF  program  is  given  in  Figure  5.2-2.  The  pro- 
gram starts  by  opening  the  following  input  and  output  files:^ 


NAME 

TYPE 

CONTENTS 

BLDLCD 

Input 

Analysis  data 

BLDLCO 

Output 

Input  data  echo,  results 

RELATD 

Input 

Related  material  data  input 

RELATO 

Output 

(Echo  of  information  in  RELATD 

DUMP 

(output 

Results  of  materials  characterization  calculations 

lOUTPR 

Output 

Run  information  and  user-requested  information 

LOWLIF 

Output 

First  one  percent  of  sorted  fatigue  lives 

The  arrays  and  variables  are  then  set  to  their  default  or  initial  values.  The  input 
data  is  read  from  the  BLDLCD  file.  An  echo  of  the  input  data  is  written  onto 
BLDLCO.  The  related  material  S/N  information  is  read  from  the  file  RELATD  and 


^ Files  RELATD  and  RELATO  are  opened  in  INFAGG. 
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• PROBABILISTIC  CHARACTERIZATION 
OF  DRIVER  UNCERTAINTIES 

• NOMINAL  STRAINS  AND  ENVIRONMENT 

• PARAMETRIC  SENSITIVITIES 

• MATERIALS  DATA 

• REFERENCE  STRAIN-TIME  HISTORY 

• NUMBER  OF  CRITICAL  LOCATIONS 


MATERIALS  MODEL 
INFORMATION  AGGREGATION 


DISTRIBUTION  SELECTION 


RANDOM  SELECTION  OF  A 
PROBABILITY  DISTRIBUTION 
FOR  ^ 


-TK 


1 

DRIVER  SELECTION 


RANDOM  SELECTION  OF 
VALUES  FORA^,^,A;.„,  £g, 
Xp,  CO(tg),  hggg,  Tggg,  Tg, 

6a>  ®0'  ^danv^TMF 


MATERIALS  MODEL 
PARAMETER  ESTIMATION — i 
/3o.  Kj,  rrij 

SELECTED  MEDIAN 
, : S/N  CURVE 


SELECTION  OF  MATERIAL 
RANDOM  VARIABLE,  <p 


LOOP  50 
TIMES 


TURBINE  BLADE  LCF 
FAILURE  SIMULATION 

LOOP  n TIMES 


PREDICTED  FAILURE  TIME 


LOOP  W TIMES 


ACCUMULATE  SMALLEST 
nxN /1 00  FAILURE  TIMES 


MIN 


Figure  5.2-1  Structure  of  the  Turbine  Blade  LCF  Probabilistic 
Failure  Model 
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START  ) 


OPTIONAL 


1 IF  MATERIALS 
i PROCESS 
i VARIATION 
i WAS  USED 


/ READ  AND  ECHO  / 
/_  INPUT  DATA  / 


INFAGG 


PERFORM  MATERIALS 
INFORMATION  AGGREGATION 
(See  [1],  Section  4.1.3) 


INITIALIZE  ARRAYS 
AND  SET  DEFAULTS 


^ DO  J * 1 \ 


TO  NHYPER  BY  1 > 

OUTER  LOOP 

i 

PRYRV 

CHOOSE  hgg^,  Tgas.  Xq.  m DISTRIBUTIONS 
CHOOSE  Xj^ 

(See  [1],  Section  7.6.6) 

...  i -•  — 

RAREST 

PERFORM  MATERIALS 
PARAMETER  ESTIMATION 
(See  [1],  Section  4.1.5) 


SELECT  MATERIALS  HEAT 
(See  [1],  Section  4.1.5) 


^ DO  I . 1 ^ 

— <r  TO  NLIFE  BY1  ^ 

INNER  LOOP 

1 

BETAGN,  NORMGN,  PRYRV 

DRIVER  SELECTION  FOR 
^gas'  ^gas-  ■^G-  ®A>  ^s> 

®D'  ^B<  ^P’  ^dam-  hMF 
(See  [1],  Sections  4.4.3, 4.4.5  & 7.6.6) 


Figure  5.2-2  Main  Flowchart  for  the  ATD  Blade  LCF  Analysis 
Program  BLDLCF 
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Figure  5.2-2  Main  Flowchart  for  the  ATD  Blade  LCF  Analysis 
Program  BLDLCF  (Cont'd) 
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processed  in  the  INFAGG  routine.  INFAGG  controls  the  materials  information  ag- 
gregation and  is  described  in  [1],  Section  4.1.3. 

The  selection  of  hyperparameters^  is  performed  in  the  outer  DO  loop  of  the 
simulation  by  calling  the  PRYRV  routine  to  obtain  the  Beta  distribution  parameters 
p and  6 for  hg^^,  Tg^^,  m,  and  Aq,  whose  probability  distributions  are  described  by 
Beta  distributions.  The  selection  of  values  for  A/j^  and  is  also  performed.  The 
RAREST  routine  controls  the  calculations  for  estimating  the  parameters  for  the  S/N 
model.  Routine  RAREST  is  described  in  [1],  Section  4.1.5.  If  materials  process 
variation  is  included,  the  materials  parameter  Z in  [1],  Equation  2-48  is  selected  by 
calling  the  NORMGN  routine  and  then  transforming  the  resulting  Normal  variate  to 
a Lognormal  variate. 

The  inner  DO  loop  for  the  simulation  performs  the  driver  selection.  The  drivers 
^gas’  ^gas>  m,  Xq,  (jD{t^).  6a.  Ts,  6q,  eq.  Xp,  X^,  Aj^a^n,  and  Xf^p  are  selected  by  calling 
BETAGN,  NORMGN,  and  RRYRV  which  draw  from  Beta,  Normal,  and  Uniform  dis- 
tributions, respectively.  The  random  variate  routines  BETAGN,  NORMGN,  and 
RRYRV  are  described  in  [1],  Sections  4.4,  and  7.6. 

In  the  symmetry  DO  loop,  the  materials  model  parameter  tp  is  found  from  the 
minimum  of  50  draws  of  a Weibull  distribution.  Calls  to  WEIBGN  provide  the  50 
values  of  <p.  Subroutine  WEIBGN  is  described  in  [1],  Section  4.4.6. 

When  all  the  S/N  model  parameters  have  been  selected  for  the  region  with  S/N 
data,  the  S/N  curve  is  tied  to  the  tensile  point  Sq  by  routine  KOMO.  The  routine 
BLDLIF  performs  driver  transformation  and  calculates  the  fatigue  life.  The  flow- 
chart for  BLDLIF  is  given  in  Figure  5.2-3  and  the  routine  is  described  below.  Sub- 
program KOMO  is  described  in  [1],  Sections  4.1.6. 

The  fatigue  lives  are  arranged  in  ascending  order  in  a list  containing  the  lowest 
fifty  percent  of  the  lives.  The  INSORT  routine  performs  an  insertion  sort  with  each 
new  fatigue  life.  When  the  outer  DO  loop  is  completed,  the  list  of  lives  representing 
the  left-hand  tail  of  the  failure  distribution  is  written  to  file  LOWLIF.  Subprogram 
INSORT  is  described  in  [1],  Appendix  5.B. 

If  a truncated  Normal  distribution  was  used  for  the  materials  shape  parameter  m, 
the  empirical  median  S/N  curve  will  be  calculated  upon  user  request.  The  routine 
SORTM  is  called  to  sort  the  values  of  m and  the  routine  EXRCTD  calculates  the 


^ Hyperparameters  are  discussed  in  [1],  Section  2.1.1. 
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median  S/N  curve.  Sections  4.1.10  and  4.1.3.12  of  [1],  describe  the  routines 
SORTM  and  EXPCTD,  respectively. 

5.2.2.2  BLDLIF  Routine 

The  flowchart  for  the  BLDLIF  routine  is  given  in  Figure  5.2-3.  First,  the  thermal 
strain  during  acceleration  is  calculated  using  the  acceleration  model  of  Equation 
3-2.  Next,  the  deceleration  model  calculations  are  performed.  Equations  3-3,  3-6, 
and  3-7,  the  deceleration  slope,  thermal  strain,  and  rotor  speed  are  obtained.  The 
total  mechanical  and  total  thermal  strain-time  histories  are  calculated  using  Equa- 
tions 3-5  and  3-4,  respectively.  Then,  the  composite  strain-time  history  is  obtained 
by  combining  the  thermal  and  mechanical  strains  according  to  Equation  3-1.  Final- 
ly, the  RAINF3  routine  is  called.  This  routine  performs  a rainflow  cycle  count  and 
derives  the  fatigue  life. 

5.2.2.3  RAINF3  Routine 

The  flowchart  for  RAINF3  is  given  in  Figure  5.2-4.  First,  the  equivalent  strain  his- 
tory is  scanned  to  identify  the  largest  strain  and  its  location.  The  history  is  rese- 
quenced such  that  the  largest  strain  is  placed  at  the  beginning  and  end  of  the 
strain  array.  Then,  the  intermediate  points  in  the  history  are  filtered  leaving  only  the 
peaks  and  troughs.  This  is  done  by  testing  for  a sign  change  in  the  gradients  of 
adjacent  segments.  Next,  the  counting  of  the  cycles  begins.  Consecutive  peaks 
and  troughs  are  added  to  a holding  array,  each  time  checking  if  the  new  peak- 
trough  segment  is  greater  than  the  previous  one;  if  so,  then  a cycle  has  been 
closed.  Then,  the  peak  and  trough  corresponding  to  the  closed  cycle  are 
removed  from  the  holding  array.  The  cycle  is  saved  if  it  is  large  enough,  i.e.,  larger 
than  a user-specified  threshold.  The  procedure  is  repeated  by  adding  new  peaks 
and  troughs  to  the  holding  array  until  another  cycle  is  identified. 

Once  all  the  cycles  have  been  identified,  an  equivalent  zero-mean  strain  range  is 
calculated  for  each  cycle  using  the  Walker  relation  given  by  Equation  3-8.  The  life 
corresponding  to  each  strain  cycle  is  obtained  from  the  S/N  curve  by  calling  the 
GTLIFE  routine.  The  GTLIFE  routine  is  described  under  materials  characterization 
in  [1],  Section  4.1.8.  Miner’s  rule  is  used  to  accumulate  the  damage  due  to  each 
cycle.  There  are  three  separate  DO  loops  over  the  number  of  cycles  in  the  last 
three  steps,  starting  with  the  Walker  transformation.  This  was  done  to  enable  vec- 
torization  of  the  DO  loops.  For  running  on  a scalar  machine,  these  three  steps 
may  be  embedded  within  a single  DO  loop. 

5.2.3  BLDLCF  Program,  Nonparametric  Materials  Model 

The  LCF  analysis  of  the  ATD-HPFTP  first  stage  turbine  blade  using  the  non- 
parametric materials  model  is  implemented  as  the  FORTRAN  program  BLDLCF 
V3.4B1.3.  Figure  5.2-5  shows  the  structure  of  the  PFM  for  the  Blade  using  the  non- 
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SELECTED  VALUES 
FOR 


• SELECTED  VALUES  FOR  Eg,  Xp,  X^, 

^gas'  "^gas'  ^s'  ^A’  ^G'  ®D 

• NOMINAL  STRAINS  AND  ENVIRONMENT 

• PARAMETRIC  SENSITIVITIES 

• REFERENCE  STRAIN-TIME  HISTORY 


STRAIN-TIME  HISTORY 
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S/N  CURVE 
Kj,  mj,  <p 

SELECTED  VALUES 

FOR  ^dam-  ^TMF 

PREDICTED  FAILURE  TIME 
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• ACCUMULATE  DAMAGE 

• CALCULATE  LIFE 


Figure  5.2-3  Flowchart  for  Subprogram  BLDUF 
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START  ~) 


Figure  5.2-4  Flowchart  for  Subprogram  RAINF3 
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TOTAL  NUMBER  OF  POINTS 
IN  ARRAY 

NEWTOT  = K + 1 
INDEX  = M + 1 


SET  UP  THE  PEAK -TROUGH  ARRAY 
K = INDEX  i 


Figure  5.2-4  Flowchart  for  Subprogram  RAINF3  (Confd) 
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Figure  5.2-4  Flowchart  for  Subprogram  RAINF3  (Confd) 
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Figure  5.2-4  Flowchart  for  Subprogram  RAINF3  (Cont'd) 
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LIFE  / = GTLIFE 


CALCULATE  THE  FATIGUE  UFE 
FROM  THE  S/N  CURVE 
(See  [1],  Section  4.1.8) 


Figure  5.2-4  Flowchart  for  Subprogram  RAINF3  (Cont’d) 
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• PROBABILISTIC  CHARACTERIZATION 
OF  DRIVER  UNCERTAINTIES 

• NOMINAL  STRAINS  AND  ENVIRONMENT 

• PARAMETRIC  SENSITIVITIES 

• MATERIALS  DATA 

• REFERENCE  STRAIN-TIME  HISTORY 

• NUMBER  OF  CRITICAL  LOCATIONS 
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MATERIALS  MODEL 
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DISTRIBUTION  SELECTION 


RANDOM  SELECTION  OF  A 
PROBABILITY  DISTRIBUTION 
for  hg^^,  Tg^^,  Aq,  m 
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BOOTSTRAPPING 


-yt\ 


DRIVER  SELECTION 
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VALUES  FORA^^.  fig, 
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Figure  5.2-5  Structure  of  the  Turbine  Blade  LCF  Probabilistic 
Failure  Model  Using  the  Nonparametric  Materials 
Model 
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parametric  materials  model.  This  section  provides  the  description  and  flowcharts 
for  program  BLDLCF  V3.4B1.3  and  its  routines  which  differ  from  Section  5.2.2 
above  and  Section  4.1  of  [1]. 

5.2.3.1  Main  Routine 

The  master  flowchart  for  the  BLDLCF  V3.4B1 .3  program  is  given  in  Figure  5.2-6. 
The  program  starts  by  opening  the  following  input  and  output  files:"* 


NAME 

TYPE 

CONTENTS 

BLDLCD 

Input 

Analysis  data 

BLDLCO 

Output 

Input  data  echo,  results 

RELATD 

Input 

Related  material  data  input 

RELATO 

Output 

Echo  of  information  in  RELATD 

DUMP 

Output 

Results  of  materials  characterization  calculations 

lOUTPR 

Output 

Run  Information  and  user-requested  information 

LOWLIF 

Output 

First  one  percent  of  sorted  fatigue  lives 

The  arrays  and  variables  are  then  set  to  their  default  or  initial  values.  The  input 
data  is  read  from  the  BLDLCD  file.  An  echo  of  the  input  data  is  written  onto 
BLDLCO.  The  related  material  S/N  information  is  read  from  the  file  RELATD  and 
processed  in  the  INFAGG  routine.  INFAGG  controls  the  materials  information  ag- 
gregation and  is  described  in  Section  5.2.3.2. 

The  selection  of  hyperparameters®  is  performed  in  the  outer  DO  loop  of  the 
simulation  by  calling  the  PRYRV  routine  to  obtain  the  Beta  distribution  parameters 
p and  6 for  hg^^,  Tg^^,  m,  and  Aq,  whose  probability  distributions  are  described  by 
Beta  distributions.  The  selection  of  values  for  X^a  and  is  also  performed.  The 
PEB  routine  controls  the  calculations  for  bootstrapping  the  residuals,  generating 
the  pseudo  S/N  data,  and  then  calculating  the  structural  parameters.  Routine  PEB 
is  described  in  Section  5.2.3.5.®  If  materials  process  variation  is  included,  the 
materials  parameter  Z in  [1],  Equation  2-48  is  selected  by  calling  the  NORMGN 
routine  and  then  transforming  the  resulting  Normal  variate  to  a Lognormal  variate. 

The  inner  DO  loop  for  the  simulation  performs  the  driver  selection.  The  drivers 
^gas.  Tgss.  m.  Xq.  6^.  T^,  6q,  £g.  Ap.  A„,  A^3^,  and  Xj^f  are  selected  by  calling 
BETAGN,  NORMGN,  and  PRYRV,  which  draw  from  Beta,  Normal,  and  Uniform  dis- 
tributions. respectively.  The  random  variate  routines  BETAGN,  NORMGN,  and 
PRYRV  are  described  in  [1],  Sections  4.4,  and  7.6. 


* Files  RELATD  and  RELATO  are  opened  in  INFAGG. 

® Hyperparameters  are  discussed  in  [1],  Section  2.1.1. 

® The  bootstrapping  calculations  are  discussed  in  Section  3.2.7. 
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Figure  5.2-6  Main  Flowchart  for  the  ATD  Biade  LCF  Anaiysis 
Program  BLDLCF  Using  the  Nonparametric 
Materials  Model 
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Figure  5.2-6  Main  Flowchart  for  the  ATD  Blade  LCF  Analysis 
Program  BLDLCF  Using  the  Nonparametric 
Materials  Model  (Cont'd) 
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A call  to  WORSTN  provides  the  “worst  of  50”  materials  intrinsic  variability  e for 
both  Weibull  and  Lognormal  distributions.  The  routine  WORSTN  is  described  in 
Section  5.2.3.S. 

When  all  the  S/N  model  parameters  have  been  selected  for  the  region  with  S/N 
data,  the  S/N  curve  is  tied  to  the  tensile  point  by  routine  KOMO.  The  routine 
BLDLIF  performs  driver  transformation  and  calculates  the  fatigue  life.  The  flow- 
chart for  BLDLIF  is  given  in  Figure  5.2-3  and  the  routine  is  described  below.  Sub- 
program KOMO  is  described  in  [1],  Sections  4.1.6. 

The  fatigue  lives  are  arranged  in  ascending  order  in  a list  containing  the  lowest 
fifty  percent  of  the  lives.  The  INSORT  routine  performs  an  insertion  sort  with  each 
new  fatigue  life.  When  the  outer  DO  loop  is  completed,  the  list  of  lives  representing 
the  left-hand  tail  of  the  failure  distribution  is  written  to  file  LOWLIF.  Subprogram 
INSORT  is  described  in  [1],  Appendix  5.B. 

The  empirical  median  S/N  curve  is  calculated  next.  The  routine  SORTM  is  called 
to  sort  the  values  of  m and  the  routine  EXPCTD  calculates  the  median  S/N  curve. 
Sections  4.1.10  and  4.1.3.12  of  [1]  describe  the  routines  SORTM  and  EXPCTD, 
respectively. 

S.2.3.2  INFAGG  Routine 

The  flowchart  for  the  INFAGG  routine  is  given  in  Figure  5.2-7.  The  routine  con- 
trols the  calls  to  the  data  input  and  information  aggregation  calculation  routines. 
INFAGG  starts  by  opening  the  following  input  and  output  files:^ 


NAME 

TYPE 

CONTENTS 

RELATD 

Input 

Related  material  data  input 

RELATO 

Output 

Related  material  data  echo 

The  arrays  are  then  set  to  their  default  or  initial  values  by  routine  INIT.  Routine  ROE 
reads  the  data  from  files  SPECFD  and  RELATD,  transforms  (or  converts)  the 
stresses  to  an  equivalent  stress  ratio  of  /?  = - 1 .0,  and  echoes  the  data  to  files 
SPECFO  and  RELATO.  Routines  INIT  and  ROE  are  described  in  [1],  Sections 
4.1. 3.1  and  4.1. 3.2. 

The  information  aggregation  begins  with  linear  regression  calculations  per- 
formed by  routine  SW2SU2  on  the  combined  specific  and  related  data.  Then  the 
constraints  on  the  shape  parameters  (my)  implied  by  the  user-provided  con- 
straint are  calculated  by  FINDMC.  The  routines  SW2SU2  and  FINDMC  are 


^ The  nonparametric  model  does  not  have  the  capability  to  utilize  related  data  at  this  time. 
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FOR  EACH  UFE  REGION 
FIND  /o,  INTERVAL  ESTIMATE  FOR  C 
FIND  J^,  INTERVAL  ESTIMATE  FOR  ntj 

(See  [1],  Section  4.1. 3.6) 


FNDRNG 

COMPUTE  POSTERIOR  CREDIBIUTY  RANGE 
(See  [1],  Section  4.1. 3.8) 


Figure  5.2-7  Flowchart  for  Subprogram  INFAGG  (Cont'd) 
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o 



JCAV 

IMPOSES  S/N  CURVE  CC 
(See  [1],  Se 

i 

)NCAVITY  CONSTRAINT 
Ction  4.1.3.10) 

/ WRITE  TO  DUMP 
/ PRIOR  AND  POSTERIOR 
/ CREDIBILITY  RANGES 

/ C,m,a^ 


Figure  5.2-7  Flowchart  for  Subprogram  INFAGG  (Cont’d) 
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Figure  5.2-7  Flowchart  for  Subprogram  INFAGG  (Cont’d) 


5-42 


WRITE  TO  DUMP 


m,  jt(mj),a^ 


LIFE  REGION  BOUNDARIES 
SPECIFIC  S/N  DATA 


i RETURN  ) 


Figure  5.2-7  Flowchart  for  Subprogram  INFAGG  (Cont’d) 
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described  in  Section  5. 2.3.3  and  in  [1],  Section  4. 1.3.5,  respectively.  The  remain- 
ing routine  calls  depend  upon  the  choice  of  distribution  for  the  shape  parameters. 

The  Uniform  distribution  case  begins  with  the  confidence  interval  calculations 
performed  by  INTRVL.  By  definition,  the  prior  credibility  ranges  are  the  confidence 
intervals.  If  materials  processes  variation  is  specified,  GTPVAR  calculates  o^.  Equa- 
tion 2-49  of  [1],  the  extent  of  departures  from  the  multiple  heat  median  S/N  curve 
warranted  by  the  available  information.  The  credibility  ranges,  C constraint,  and 
the  user-provided  range  information  are  combined  by  routine  FNDRNG  to  obtain 
posterior  credibility  ranges  on  the  shape  parameters  jr(my).®  The  user-supplied  m 
ranges  for  the  non-data  life  regions  to  the  right  of  those  with  data  are  added  to  the 
array  containing  the  Ttim-)  by  routine  ADDREG.®  Concavity  constraints  are  applied 
within  subprogram  CONCAV.  The  results  of  the  calculations  above  are  written  to 
file  DUMP.  Finally,  the  median  S/N  curve  is  calculated.  The  median  m’s  are  found 
by  MEDIAN  and  then  used  by  EXPCTD  to  obtain  the  median  curve  parameters 
which  are  written  to  file  DUMP  Routines  INTRVL,  GTPVAR,  FNDRNG,  ADDREG, 
CONCAV,  MEDIAN,  and  EXPCTD  are  described  in  [1],  Sections  4.1. 3.6,  4.1. 3.7, 

4. 1.3.8,  4. 1.3.9,  4.1.3.10,  4.1.3.11,  and  4.1.3.12,  respectively. 

The  truncated  Normal  distribution  case  begins  with  the  Bayesian  analysis  per- 
formed by  MUSIG  to  find  the  Normal  distribution  parameters  for  the  m’s.  If 
materials  process  variation  is  requested,  GTPVAR  calculates  a^,  the  extent  of 
departures  from  the  multiple  heat  median  S/N  curve  warranted  by  the  available  in- 
formation, by  using  Equation  2-49  of  [1].  The  C constraint  and  the  user-provided 
range  information  are  combined  by  routine  NORRNG  to  obtain  posterior  credibility 
ranges  on  the  shape  parameters  jr(my).®  The  user-supplied  m ranges  and  Normal 
distribution  parameters  for  the  non-data  life  regions  to  the  right  of  those  with  data 
are  added  to  the  arrays  containing  the  m*,  and  by  routine  ADDRGN.® 
Concavity  constraints  are  applied  within  subprogram  CONCAV.  Then  results  of 
the  calculations  above  are  written  to  file  DUMP  Routines  MUSIG,  GTPVAR, 
NORRNG,  ADDRGN,  and  CONCAV  are  described  in  [1],  Sections  4.1.3.13, 

4.1.3.7,  4.1.3.14,  4.1.3.15,  and  4.1.3.10. 

The  bootstrapping, option  uses  m and  K estimates  to  obtain  the  median  curve 
parameters  using  EXPB,  which  are  then  written  to  file  DUMP.  Routine  EXPB  is 
described  in  Section  5. 2.3.4. 


^ Combining  information  to  obtain  the  posterior  credibility  ranges  on  m is  discussed  in 
[1],  Page  2-13. 

® No  data  regions  to  the  right  are  discussed  in  [1],  Page  2-17. 
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S.2.3.3  SW2SU2  Routine 

The  flowchart  for  the  SW2SU2  routine  is  given  in  Figure  5.2-8.  The  routine  per- 
forms the  y on  X and  x on  y regressions  to  obtain  the  sample  variances  S^,  Sy^, 
and  Sjy,  and  the  residual  variances  and  Sq^  for  each  life  region.  For  the  cal- 
culations, X is  equal  to  In  S and  y is  equal  to  In  A/ . The  routine  SW2SU2  starts  by 
initializing  the  arrays  required  for  the  calculations. 

Within  the  outer  region  DO  loop  are  two  sets  of  nested  DO  loops,  where  the 
region  counter  L = 1 , ....  R,  and  R is  the  number  of  life  regions  with  S/N  data.^°  In 
each  set  of  DO  loops,  the  outer  loop  is  for  each  S/N  data  set,  / = 0, ....  P,  and  the 
inner  DO  loop  is  for  each  data  point  in  each  data  set.  /r  = 1, ....  Nj.  The  first  step  is 
to  calculate  the  sample  means  Xy  and  yy  for  each  data  set  in  each  region.  Then  the 
sample  variances  and  degrees  of  freedom  for  each  region  in  each  data  set  are  cal- 
culated as  follows; 

j=0  k=^ 

= 2 'Z  (yjk-yf 

/ = 0 k=^ 

= Z Z (^jk  - ^j)(yjk  - Yj) 

/ = 0 /c  = 1 

P 

W = 2 

j = 0 

where  s/,  Sy^,  and  are  the  sample  variance  of  x,  sample  variance  of  y,  and 
sample  covariance  of  x and  y,  and  N is  the  number  of  degrees  of  freedom  for  each 
life  region,  respectively.  If  is  non-negative,  the  data  does  not  support  the 
analysis  assumptions  and  the  program  run  will  be  terminated.  The  sample 
variances  are  used  to  calculate  the  regression  parameters  of  and  b of  Equations 
2-20  and  2-21  of  [1], 


/?  is  equal  to  one  for  the  strain  formulation. 
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Figure  5.2-8  Flowchart  for  Subprogram  SW2SU2  (Cont’d) 
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Figure  5.2-8  Flowchart  for  Subprogram  SW2SU2  (Confd) 
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Figure  5.2-8  Flowchart  for  Subprogram  SW2SU2  (Cont’d) 
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d^S^/S/  and  b = / Sy^ 

fnxo  -yo 

/N 

m 

The  second  set  of  DO  loops  calculates  the  residuals  e and  the  residual 
variances  and  for  each  life  region  given  by 

V 7^0 

No -2 

/■  = 0 k = ^ 

P Ni 

y = 0 k=^ 

where 

Wjk  = (yj„-yj)-d{Xj,^-Xj) 

^n<  = (^jk-^i)-d(yj„-yj) 

from  Equations  2-20  and  2-21  of  [1]. 

S.2.3.4  EXPB  Routine 

The  flowchart  for  the  EXPB  routine  in  given  in  Figure  5.2-9.  The  routine  controls 
the  calls  to  the  median  curve  calculations  for  the  bootstrap  option.  The  routine 
uses  the  point  estimates  for  the  m and  K to  calculate  the  remainder  of  the 
parameters  consistent  with  m,  K,  and  the  specific  material  data  set.  The  stress 
values  corresponding  to  the  life  region  boundaries  are  obtained  from  FINDSB.  If 
the  tensile  point  for  the  stress  formulation  is  being  used,  then  the  S/N  curve  can 
be  tied  to  Sq  by  routine  KOMO.^^  The  results  of  the  calculations  are  written  to  file 
DUMP  Routines  FINDSB  and  KOMO  are  described  in  [1],  Sections  4.1. 5.7  and 
4.1.6,  respectively. 


m = - d and  K = exp 


’ ’ The  tensile  point  calculations  are  included  in  routine  EXPB  in  anticipation  of  future 
work  on  the  bootstrap  option. 
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FINDSB 


CALCULATE  S*y+,  FOR  USE 
IN  LIFE  CALCULATION 

(See  [1],  Section  4. 1.5.7) 


I YES 
KOMO 

CALCULATE  m^ANDKo 
(See  [1],  Section  4.1.6) 


WRITE  TO  DUMP 

[Kj.  mj\. 


RETURN  ) 


Figure  5.2-9  Flowchart  for  Subprogram  EXPB 
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5.2.3.5  PEB  Routine 

The  flowchart  for  the  PEB  routine  is  given  in  Figure  5.2-10.  The  routine  controls 
the  calls  to  the  bootstrapping  calculations.  The  calculations  begin  by  the  call  to 
routine  PICRES  which  performs  the  bootstrapping  on  the  residuals  and  then 
generates  the  pseudo  S/N  data.  Routine  MREGR  performs  the  regression  to  ob- 
tain a value  of  m for  the  pseudo  S/N  data.  The  routines  PICRES  and  MREGR  are 
described  in  Sections  5. 2.3.6  and  5.2.3.7,  respectively. 

The  remaining  calculations  find  the  [Kj]  and  parameters  consistent  with  the 
pseudo  S/N  data  and  the  calculated  m.  The  calculations  begin  by  routine 
TRNSFM  transforming  the  specific  material  S/N  data.’^  The  transformation 
produces  the  {z,}  as  a function  of  the  S/N  data,  the  m,  and  the  life  region  boundary. 
Then,  the  sample  mean  and  variance  of  Z are  calculated  by  routine  SMNVAR. 
KBETA  computes  the  estimates  of  k and  Then,  the  K is  calculated  by  routine 
FINDK  using  Equations  2-37  through  2-41  of  [1].  Finally,  the  stress  value  cor- 
responding to  the  life  region  boundary  is  obtained  from  FINDSB.  Routines 
TRNSFM,  SMNVAR,  KBETA.  FINDK,  and  FINDSB  are  described  in  [1],  Sections 
4. 1.5.3  through  4. 1.5.7. 

5.2.3.6  PICRES  Routine 

Routine  PICRES  bootstraps  the  residuals  and  generates  the  pseudo  S/N  data. 
The  bootstrapping  is  performed  by  sampling  with  replacement  on  the  set  of 
residuals  e for  each  stress  value  Sj.  Then  the  pseudo  S/N  data  is  generated  by  cal- 
culating a new  life  value  N*  for  each  stress  value  and  selected  residual  e*  accord- 
ing to 


The  inflation  of  the  residuals  by  V was  performed  in  routine  SW2SU2. 

No -2 

S.2.3.7  MREGR  Routine 

The  flowchart  for  the  MREGR  routine  is  given  in  Figure  5.2-11.  The  routine  per- 
forms the  y on  X and  x on  y regressions  to  obtain  the  estimate  of  the  shape 
parameter  m.  For  the  calculations,  x is  equal  to  In  S and  y is  equal  to  In  N. 
MREGR  starts  by  initializing  the  arrays  required  for  the  calculations. 


The  S/N  data  transformation  is  discussed  in  [1],  Page  2-16. 
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Figure  5.2-10  Flowchart  for  Subprogram  PEB 
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Figure  5.2-10  Flowchart  for  Subprogram  PEB  (Cont’d) 
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Figure  5.2-1 1 Flowchart  for  Subprogram  MREGR  (Confd) 
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Within  the  outer  region  DO  loop  are  two  inner  DO  loops,  where  the  region 

counter  L = 1 R,  is  the  number  of  life  regions  with  S/N  data.’^  Each  inner  DO 

loop  is  for  each  data  point,  k = 1 N^.  The  first  step  is  to  calculate  the  sample 

means  x and  y in  each  region.  Then  the  sample  variances  for  each  region  are  cal- 
culated as  follows: 

ws,"=  y ^xi-xf 

y = i 
; = 1 

where  s/  and  S^y  are  the  sample  variance  of  x and  the  sample  covariance  of  x and 
y for  each  region,  respectively.  If  S^y  is  non-negative,  the  data  does  not  support 
the  analysis  assumptions  and  the  program  run  will  be  terminated.  The  sample 
variances  are  used  to  calculate  the  regression  parameter  d of  [1],  Equation  2-20, 

d = S^/S,‘. 

Then  the  shape  parameter  m is  given  by 
m = - d. 


5.2.3.S  WORSTN  Routine 

The  following  routine  can  be  used  to  provide  an  analytic  solution  to  the  problem 
of  selecting  the  smallest  of  N lives  for  either  the  parametric  or  bootstrapping  char- 
acterization of  materials  model  specification  error. 


Routine  WORSTN  performs  the  worst  of  N selection  of  the  materials  intrinsic 
variation  parameter  e described  in  Section  S.2.7.3.  The  first  step  is  to  obtain  a 
Uniform(0,1)  random  variate  for  F.  Then  the  Weibull  worst  of  N variate  is  given  by 


E = exp 


In 


^-ln(1  -F)'l 
N 


Finally  the  Lognormal  worst  of  N variate  is  obtained  using  the  algorithm  given  in 
26.2.23  of  [4]. 


/i  is  currently  equal  to  1 for  the  bootstrapping  option,  but  the  region  DO  loop  has  been 
included  m anticipation  of  future  work  on  the  bootstrap  option. 
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Section  5.3 

High  Cycle  Fatigue  Analysis  Software 


5.3.1  Introduction 

This  section  presents  a description  of  the  computer  program  which  implements 
the  HCF  analysis  discussed  in  Section  4.  The  code  for  analyzing  the  ATD-HPOTP 
first  and  third  stage  turbine  blades  is  described  below  in  Section  5.3.2.  The  overall 
layout  of  the  program  is  described  by  using  a main  flowchart  that  refers  to  other 
flowcharts,  which  describe  subprograms  and  key  portions  of  the  main  program  in 
greater  detail.  The  program  tree  structure,  a list  of  subprograms,  a description  of 
the  key  variables,  and  the  FORTRAN  source  listing  for  the  HCF  analysis  code 
BLDHCF  are  given  in  Section  7.3.  The  materials  characterization  subprograms 
and  those  subprograms  that  are  of  a generic  nature,  such  as  the  random  variate 
generators,  are  described  in  [1],  Section  4.1  and  Section  4.4  respectively.  A glos- 
sary of  standard  flowchart  symbols  is  given  for  the  reader’s  benefit  in  Appendix  5.A. 

5.3.2  BLDHCF  Program 

The  HCF  analysis  of  the  ATD-HPOTP  first  and  third  stage  turbine  blades  is  imple- 
mented as  the  FORTRAN  program  BLDHCF.  Figure  5.3-1  shows  the  structure  of 
the  PFM  for  the  Blade.  This  section  provides  the  description  and  flowcharts  for 
program  BLDHCF. 

5.3.2.1  Main  Routine 

The  master  flowchart  for  the  BLDHCF  program  is  given  in  Figure  5.3-2.  The  pro- 
gram starts  by  opening  the  following  input  and  output  files: 


NAME 

TYPE 

CONTENTS 

BLDHCD 

Input 

Analysis  data 

BLDHCO 

Output 

Input  data  echo,  results 

RELATD 

Input 

Related  material  data  input 

RELATO 

Output 

Echo  of  information  in  RELATD 

DUMP 

Output 

Results  of  materials  characterization  calculations 

lOUTPR 

Output 

Run  information  and  user-requested  Information 

LOWLIF 

Output 

First  one  percent  of  sorted  fatigue  lives 

Routine  DRVRIN  is  called  to  read  the  input  data  from  the  BLDHCD  file.  An  echo 
of  the  input  data  is  written  onto  BLDHCO.  DRVRIN  is  described  in  Section  5.3.2.2. 
The  related  material  S/N  information  is  read  from  the  file  RELATD  and  processed  in 
the  INFAGG  routine.  INFAGG  controls  the  materials  information  aggregation  and 


Files  RELATD  and  RELATO  are  opened  in  INFAGG. 
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Figure  5.3-1  Structure  of  the  Turbine  Blade  HCF  Probabilistic  Failure 
Model 
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Figure  5.3-2  Main  Flowchart  for  the  ATD  Blade  HCF  Analysis 
Program  BLDHCF 


Figure  5.3-2  Main  Flowchart  for  the  ATD  Blade  HCF  Analysis 
Program  BLDHCF  (Cont’d) 
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is  described  in  [1],  Section  4.1.3.  The  arrays  and  variables  are  then  set  to  their 
default  or  initial  values. 

In  the  outer  DO  loop  of  the  simulation,  the  RAREST  routine  controls  the  calcula- 
tions for  estimating  the  parameters  for  the  S/N  model.  Routine  RAREST  is 
described  in  [1],  Section  4.1.5.  If  materials  process  variation  is  included,  the 
materials  parameter  Z in  [1],  Equation  2-48  is  selected  by  calling  the  NORMGN 
routine  and  then  transforming  the  resulting  Normal  variate  to  a Lognormal  variate. 

The  inner  DO  loop  for  the  simulation  performs  the  driver  selection.  The  SELECT 
routine  controls  the  driver  selection  and  is  described  in  Section  5.3.2.S. 

In  the  symmetry  DO  loop,  the  materials  model  parameter  <p  is  found  from  the 
minimum  of  54  draws  of  a Weibull  distribution.  Calls  to  WEIBGN  provide  the  54 
values  of  Subroutine  WEIBGN  is  described  in  [1],  Section  4.4.6. 

When  all  the  S/N  model  parameters  have  been  selected  for  the  region  with  S/N 
data,  the  S/N  curve  is  tied  to  the  tensile  point  by  routine  KOMO.  The  routine 
BLDHLF  performs  driver  transformation  and  calculates  the  fatigue  life.  The 
BLDHLF  routine  is  described  in  Section  5.3.2.4.  Subprogram  KOMO  is  described 
in  [1],  Sections  4.1.6. 

The  fatigue  lives  are  arranged  in  ascending  order  in  a list  containing  the  lowest 
fifty  percent  of  the  lives.  The  INSORT  routine  performs  an  insertion  sort  with  each 
new  fatigue  life.  When  the  outer  DO  loop  is  completed,  the  list  of  lives  representing 
the  left-hand  tail  of  the  failure  distribution  is  written  to  file  LOWLIF.  Subprogram 
INSORT  is  described  in  [1],  Appendix  5.B. 

If  a truncated  Normal  distribution  was  used  for  the  materials  shape  parameter  m, 
the  empirical  median  S/N  curve  will  be  calculated  upon  user  request.  The  routine 
SORTM  is  called  to  sort  the  values  of  m and  the  routine  EXRCTD  calculates  the 
median  S/N  curve.  Sections  4.1 .10  and  4.1 .3.12  of  [1]  describe  the  routines 
SORTM  and  EXRCTD,  respectively. 

5.3.2.2  DRVRIN  Routine 

The  DRVRIN  routine  controls  the  input/output  of  the  driver  distributions  and  the 
structural  and  geometric  parameters.  The  input  data  is  read  from  file  BLDHCD  and 
the  data  is  written  to  file  BLDHCO. 

5.3.2.3  SELECT  Routine 

The  SELECT  routine  controls  the  driver  selection.  The  drivers  <w,  R^^g,  C, 

I'd,  h’  and  are  selected  by  calling  NORMGN  and  PRYRV  which  draw  from 
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Normal  and  Uniform  distributions  respectively.  The  random  variate  routines 
NORMGN  and  PRYRV  are  described  in  [1],  Sections  4.4  and  7.6. 

S.3.2.4  BLDHLF  Routine 

BLDHLF  performs  the  driver  transformation  and  fatigue  life  calculation.  The  flow- 
chart for  the  driver  transformation  is  given  in  Figure  5.3-3.  First,  the  mass  flow  rate 
m and  the  change  in  enthalpy  A/?  are  calculated  using  the  performance  balance 
characterization.  Next,  the  blade  root  mean  stress  calculation  is  performed. 
Equation  4-1.  The  blade  undamped  vibratory  stress  is  calculated  based  on 
the  empirical  characterization  as  a function  of  o^.  The  blade  damper  effective- 
ness characterization  model  is  used  to  obtain  the  ratio  of  damped  vibratory  stress 
to  undamped  vibratory  stress  oq  / as  a function  of  the  centrifugal  force 
produced  by  the  blade  damper.  Then  the  mean  and  alternating  stresses,  the  maxi- 
mum and  minimum  stresses,  and  the  stress  ratio  are  calculated  using  Equations 
4-2  through  4-6. 

The  flowchart  for  the  fatigue  life  calculation  is  given  in  Figure  5.3-4.  First,  the 
equivalent  zero  mean  stress  is  calculated  using  the  Walker  relation  of  Equation  4-7. 
The  life  in  cycles  Nf  corresponding  to  the  equivalent  stress  cycle  is  obtained  from 
the  S/N  curve  by  calling  the  GTLIFE  routine.  The  GTUFE  routine  is  described 
under  materials  characterization  in  [1],  Section  4.1.8.  The  failure  life  in  seconds  L 
is  calculated  as  a function  of  Nf,  the  rotor  speed  w,  and  the  number  of  stators  N^. 
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Figure  5.3-3  Structure  of  the  Driver  T ransformation  for  the 
Turbine  Blade  HCF  Model 
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Figure  5.3-4  Structure  of  the  Failure  Life  Calculation  for  Turbine 
Blade  HCF 
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Appendix  5.A 

Program  Flowchart  Symbols 

The  symbols  employed  in  the  flowcharts  are  given  in  Figure  5.A-1 . 


DO  LOOP  PREPARATION 

' (INCREMENT  I BY  1 FROM  M TO  N) 

SUBROUTINE,  FUNCTION 


FLOWLINE  CONTINUATION 
IDENTIFIERS 


Figure  5.A-1  Program  Flowchart  Symbols 
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6.0  Software  User’s  Documentation 
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Section  6.1 

Crack  Growth  Analysis  User’s  Guide 


6.1.1  PROCRK  Program 

A user’s  guide  for  running  the  crack  growth  analysis  code  PROCRK  is  given 
here.  The  crack  growth  analysis  methodology  is  discussed  in  Section  2.2,  the  pro- 
gram description  and  flowcharts  are  presented  in  Section  5.1,  and  the  code  struc- 
ture and  listing  are  provided  in  Section  7.1. 

The  PROCRK  program  was  used  to  analyze  the  crack  growth  failure  of  the 
HPOTP  heat  exchanger  (HEX)  coil  and  the  proposed  external  heat  exchanger 
(EXHEX).  The  dynamic  load  input  for  the  program  consists  of  narrow-band  and 
sinusoidal  reference  time  histories.  These  reference  time  histories  are  generated 
using  the  program  NBSIN.  The  output  of  PROCRK  includes  the  simulated  B-lives 
and  a list  of  the  lowest  one  percent  of  lives.  The  list  of  lives  may  be  used  as  input 
to  the  regression  programs  of  Section  4.2  in  [1]  in  order  to  compute  the 
parameters  of  the  Bayesian  prior  failure  distribution.  This  prior  distribution  and  the 
success/failure  data  are  used  as  input  to  the  Bayesian  updating  program  BAYES 
to  obtain  a posterior  failure  distribution.  Programs  NBSIN  and  BAYES  are 
described  in  Sections  4.5  and  4.3,  respectively,  of  [1]. 

6.1.2  Howto  Use  Program  PROCRK 

The  program  PROCRK  is  intended  to  be  run  in  batch  (i.e.,  background)  mode. 
PROCRK  requires  the  input  file  CRKDAT  and  a set  of  load  data  files  containing  the 
reference  time  histories.  The  names  of  the  load  data  files  must  be  defined  by  the 
user.  The  file  CRKDAT  contains  the  analysis  control  parameters,  driver  distribu- 
tions, engineering  analysis  parameters,  and  materials  information.  A complete 
description  of  the  input  data  for  the  CRKDAT  data  file  is  given  in  Section  6.1. 3.1. 

The  results  from  the  PROCRK  program  are  written  to  three  output  files: 

CRKRES,  lOUTPR,  and  LOWLIF.  CRKRES  contains  the  echo  of  the  information  in 
CRKDAT  and  the  results  of  the  simulation.  File  lOUTPR  contains  an  echo  of  the 
analysis  parameters  and.  if  requested,  a dump  of  intermediate  calculations.  If  the 
program  terminates  prematurely,  an  error  message  will  be  printed  in  the  lOUTPR 
file.  A list  of  error  messages  and  possible  remedies  for  the  problems  is  given  in 
Section  6.1.6.  LOWLIF  contains  the  first  one  percent  of  the  lives  of  the  simulated 
failure  distribution. 
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6.1.3  Description  of  Input  Data  Files 

Annotated  examples  of  the  complete  CRKDAT  data  file  format  structure  for  the 
HEX  coil  and  EXHEX  problems  are  presented  in  Figures  6.1-1  and  6.1-2,  respec- 
tively. The  data  lines  of  the  input  files  are  given  in  boxes,  with  a description  of  each 
data  line  located  above  or  adjacent  to  each  box.  The  specific  input  parameters  of 
Figures  6.1-1  and  6.1-2  are  individually  defined  in  Section  6. 1.3.1.  Input  parameter 
values  given  in  Figures  6.1-1  and  6.1-2  are  not  necessarily  those  used  in  the  ap- 
plication case  studies  of  Section  2. 

The  input  data  is  read  by  free  format  statements  from  file  CRKDAT.  Thus,  the 
numbers  may  be  provided  sequentially  on  a line  up  to  80  characters  in  length,  with 
each  number  separated  by  a blank  character  or  comma.  Each  number  may  also 
be  on  a separate  line  in  the  file.  However,  it  is  recommended  that  the  input  format 
suggested  in  Figures  6.1-1  and  6.1-2  be  followed  whenever  possible. 

6.1. 3.1  Input  File  CRKDAT 

The  required  data  for  the  CRKDAT  file  is  divided  into  the  four  blocks  shown  in 
Figure  6.1-3:  analysis  parameters,  driver  information,  load  and  stress,  and 
materials  information.  The  analysis  parameters  block  contains  the  analysis 
parameters  and  the  keys  to  select  the  program  options.  The  driver  information 
block  contains  the  parameters  that  define  the  driver  distributions.  The  number  of 
dynamic  loads,  the  magnitudes  of  the  dynamic  loads/stresses,  the  load  file  names, 
the  static  loads/stresses,  and  geometry  are  given  in  the  load  and  stress  block.  The 
materials  information  block  contains  the  da/dN  vs.  AK  data,  the  stress  ratio,  and 
the  yield  strength. 

The  input  parameters  are  described  below  by  using  the  following  convention: 
the  input  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the  variable 
types  are  specified  as  character  [CHR],  integer  [INT],  real  [RE],  and  double 
precision  real  [DRE] ; the  function  of  the  variable  is  underlined  and  followed  by  a 
description  and  a list  of  options,  when  appropriate;  the  program  and  file  names  are 
indicated  by  UPPERCASE  letters.  A consistent  set  of  units  is  given  in  parentheses 
for  specifying  dimension,  load,  stress,  and  stress  intensity  factor  input  parameters. 
All  character  strings  must  be  enclosed  by  ’single  quotes’.  The  user  is  reminded 
about  the  difference  between  the  number  “0”  and  the  letter  “O”  when  preparing 
the  input  files. 
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1 

1 

675 

0 

1 

10000 

1 

1 

5 


Problem  type 
Crack  growth  model  type 
Random  number  seed 
Output  dump  controller 
Inner  loop  size 
Outer  loop  size 
Growth  retardation  switch  (on) 
Neuber’s  rule  switch  (on) 
Number  of  B-lives 


Decimal  equivalent  of  percentages  for  B-lives 
I 0.0001  0.0005  0.001  0.005  0.01 

Two  Beta  distributions  on  weld  offset  information 


0.06 

0.06 

0.00 

0.00 

0.0 

0.0 

0.00 

1.00 

0.00 

0.00 

0.00 

0.0 

0.0 

Beta  distribution  on  duct  inside  diameter  information 

I 0.1885  0.1915  0.50  0.50  0.5  20.  ~| 

Beta  distribution  on  wall  thickness  information 


I 0.0113  0.0157  0.27273  0.27273  0.5  20~ 


Beta  distribution  on  initial  crack  aspect  ratio  information 
I 0.20  1.00  0.50  0.50  0.0  0.0  \ 


Beta  distribution  on  initial  crack  size  information 


1 0.005 

0.005  0.0 

0.0 

0.0  0.0  n 

2.00 

2.00 

0.15 

1.00 

Narrow-band  random  load  scale  factor 

2.00 

2.00 

0.20 

1.00 

Sinusoidal  load  scale  factor 

486. 

666. 

29. 

56.5 

Normal  distribution  on  inner  wall  temperature  Information 

799. 

908. 

49.5 

48. 

Normal  distribution  on  outer  wall  temperature  information 

3808. 

4177. 

69. 

69. 

Normal  distribution  on  internal  pressure  information 

0.80 

1.20 

0.50 

1.50 

0.80 

1.20 

0.90 

1.10 

Uniform  distribution  bounds  for  weld  offset  accuracy  factor 
Uniform  distribution  bounds  for  aerodynamic  load  scale  factor 
Uniform  distribution  bounds  for  aerostatic  load  scale  factor 
Uniform  distribution  bounds  for  aerotoads  stress  analysis  accuracy  factor 


Figure  6.1-1  Format  for  File  CRKDAT  for  HEX  Coil  Problem 
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0.80 

1.20 

0.60 

1.40 

0.00 

0.00 

1.00 

1.00 

0.90 

1.10 

-1.38629 

3 

0.95166 

Uniform  distribution  bounds  for  dynamic  stress  analysis  accuracy  factor 
Uniform  distribution  bounds  for  Neuber's  rule  accuracy  factor 
Uniform  distribution  bounds  for  threshold  stress  Intensity  factor  uncertainty 
Uniform  distribution  bounds  for  critical  stress  intensity  factor  uncertainty 
Uniform  distribution  bouixJs  for  stress  intensity  factor  calculation  accuracy 
Uniform  distribution  bounds  for  crack  growth  calculation  accuracy  factor 
Number  of  dynamic  loads 


Aerostatic  load:  P,  Vy, 


I 0.00  0,00  -0,07214  0,00  0,00  0,00  | 

Dynamic  loads:  file  name,  load  type.  P,  Af„.  Af„  v 

A y c y z 


’NBM3’ 

1 

0.00 

0.00 

0.00 

0.355475 

0.00 

0.00 

’SIN1’ 

2 

0.027374 

0.000451 

0.001621 

0.082116 

0.205288 

0.005789 

■AEROr 

3 

0.00 

0.00 

0.00 

0.07179 

0.(K) 

0.0 

3640 

2 

10. 

2.3 

1.0 

0.0 

20001 


External  pressure,  po 
Critical  duct  location 

Angular  position  about  the  duct  circumference,  4> 
Willenborg  retardation  model  constant 
Reference  time  history  period,  T 
Noise  filter 

Number  of  points  in  reference  time  histories 


I 29000000.  8.8E-06  0.30  I E,  a.  v 


0.615 

2.00 

0.693 

4.80 

0.753 

7.20 

0.813 

9.60 

0.873 

12.50 

0.933 

15.80 

0.993 

20.00 

1.029 

24.00 

1.053 

30.00 

1.053 

200.00 

The  10  points  of  the 
piecewise  linear 
Fjf  vs.  R/t  curve 


Figure  6.1-1  Format  for  File  CRKDAT  for  HEX  Coil 
Problem  (Cont’d) 
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6 

21.95 

0.001 

55.77 

0.002 

144.85 

0.005 

322.73 

0.010 

1945.90 

0.050 

50688.0 

0.660 

Number  of  segments  in  ac  vs.  e curve 

Of  e^, 

0^2  ^2*  ^2 

<^4  £41  ^4 
^5^5-  ^^5 

ct6®6'  ^6 


Description  of  material  data 
I '400  F 31 6L  WELDED  FROM  RkD'  | 

Materials  information:  yield  strength,  critical  stress  intensity  factor,  number  of  data  divisions,  and 
regression  option 

I 27000  80.0  2 4 

Threshold  stress  intensity  factor  range  model  parameters:  ^tho<  ^ 


I 4.0317  1.070  0.16327  | 

Materials  information  for  first  data  division:  number  of  points  in  data  division  and  stress  ratio 


16  0.90  I 


da/dN  vs.  AX  data  for  division  1 


9.183E-10 

2.56 

1.138E-8 

2.69 

3.362E-8 

2.82 

8.473E-8 

3.00 

4.408E-8 

3.33 

5.838E-8 

3.53 

5.679E-8 

3.74 

7.220E-8 

3.95 

8.202E-8 

4.18 

7.440E-8 

4.42 

9.028E-8 

4.67 

1.133E-7 

4.94 

1.533E-7 

5.22 

1.629E-7 

5.51 

1.727E-7 

5.81 

2.321  E-7 

5.99 

Figure  6.1-1  Format  for  File  CRKDAT  for  HEX  Coil 
Problem  (Cont’d) 
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Materials  information  for  second  data  division:  number  of  points  in  data  division  and  stress  ratio 
I 18  0.70  I 


daldN  vs.  AK  data  for  division  2 


4.661  E-9 

3.58 

2.469E-8 

3.80 

1.387E-7 

4.49 

1.162E-7 

4.88 

1.631E-7 

5.28 

1.539E-7 

5.74 

1.562E-7 

6.24 

1.839E-7 

6.77 

2.089E-7 

7.35 

3.497E-7 

7.99 

2.949E-7 

9.37 

3.848E-7 

10.15 

6.968E-7 

11.91 

8.980E-7 

12.87 

1.111E-6 

13.89 

1.380E-6 

15.00 

2.790E-6 

17.49 

3.901  E-6 

18.17 

Fig  ure  6. 1 - 1 Format  for  File  CRKDAT  for  HEX  Coil 

Problem  (Cont’d) 
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2 

2 

675 

0 

1 

10000 

1 

2 

5 


Problem  type 
Crack  growth  model  type 
Random  number  seed 
Output  dump  controller 
Inner  loop  size 
Outer  loop  size 

Growth  retardation  switch  (on) 
Neuber's  rule  switch  (off) 
Number  of  B-lives 


Decimal  equivalent  of  percentages  for  B-lives 
I 0.0001  0.0005  0.001  0.005  0.01  I 

Beta  distribution  information  for  plate  width 

j 0.027  0,033  0.50  0.50  0.0  0.0  ~1 

Beta  distribution  information  for  initial  crack  size 


0.009  0.011  0.5  0.5  0.0  0.0 


2.00 

2.00 

0.15 

1.00 

2.00 

2.00 

0.20 

1.00 

Narrow-band  random  load  scale  factor 
Sinusoidal  load  scale  factor 


0.90 

1.10 

0.80 

1.20 

0.00 

0.00 

1.00 

1.00 

0.90 

1.10 

-1.38629 

0.95166 

-1.50 

2 

-2.50 

Uniform  distribution 
Uniform  distribution 
Uniform  distribution 
Uniform  distribution 
Uniform  distribution 
Uniform  distribution 
Uniform  distribution 
Number  of  dynamic 


bounds  for  static  stress  analysis  accuracy  factor 
bounds  for  dynamic  stress  analysis  accuracy  factor 
bounds  for  threshold  stress  intensity  factor  uncertainty 
bounds  for  critical  stress  Intensity  factor  uncertainty 
bounds  for  stress  intensity  factor  caicuiation  accuracy 
bounds  for  crack  growth  calculation  accuracy  factor 
bounds  for  Forman  equation  m variation 
load  sources 


Static  stresses:  Oy,  o^,  o^,  a^,  Oy^ 


1 0.00  0.00 

5000.0 

0.00  0.00 

0.00  1 

Dynamic  stresses:  file  name,  load  type,  a^,  Oy, 

^xz*  ^yz 

*NBSZ’ 

1 0.00 

0.00 

552.34  0.00 

0.00 

0.00 

’SIN2’ 

2 0.00 

0.00 

495.86  0.00 

0.00 

0.00 

Figure  6.1-2 

Format  for  File  CRKDAT  for  EXHEX 

Problem 
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Willenborg  retardation  model  constant 
Reference  time  history  period.  T 
Noise  filter 

Number  of  points  in  reference  time  histories 
Description  of  material  data 

i ’Cl  01 00  COPPER  FROM  NASA/JSC  I 

Yield  strength,  K^,  number  of  data  divisions,  and  regression  option 
I 6100  100,0  1 3 I 

Threshold  stress  intensity  factor  range  model  parameters:  d 

I 2.2642  -2.6912  -0.55288  I 


2.3 

1.0 

0.0 

6001 


Regression  constraints:  m,  p,  and  q 


I -2.000 


0.00 


0.00 


Materials  information  for  first  data  division:  number  of  points  in  data  division  and  stress  ratio 


I 8 0.20 


dafdN  vs.  AK  data  for  division  1 


5.01 7E-8 

3.037 

5.900E-8 

3.191 

9.798E-8 

3.607 

1.127E-7 

3.649 

2.397E-7 

4.223 

4.069E-7 

4.864 

5.334E-7 

5.473 

8.762E-7 

6.109 

Figure  6.1-2  Format  for  File  CRKDAT  for  EXHEX 
Problem  (Cont’d) 
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Figure  6.1-3  Data  Blocks  for  Input  File  CRKDAT 

Analysis  Parameters  Block 

KPROB 

[INT] 

Problem  type 

PROCRK  has  the  ability  to  analyze  the  HEX  Coil  and  the  EXHEX.  The  following  in- 
teger values  control  the  type  of  problem. 

KPROB  = 1 analyze  the  HEX  coil  problem 

KPROB  = 2 analyze  EXHEX  problem 

KGROW 

[INT] 

Crack  growth  type 

The  parameter  m in  the  Forman  equation  may  be  fixed  at  the  mean  value  from  the 
regression  or  may  vary  between  MVARA  and  MVARB.  Controls  the  type  of  m 
parameter  variation  to  be  included  in  the  Forman  crack  growth  Equation  2-7. 

KGROW  =1  no  m variation  will  be  Included 
KGROW  = 2 allows  Uniform  variation  inm 

RAND 

[DRE] 

Random  number  seed 

Needed  by  PROCRK’s  built-in  random  number  generator. 
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lOUT 

[INT] 


Output  dump  controller 

PROCRK  has  the  ability  to  write  intermediate  calculations  to  file  lOUTPR.  The  fol- 
lowing integer  values  control  the  “dump”  of  PROCRK’s  calculations. 

lOUT  =0  no  intermediate  calculation  output 

lOUT  = 15  driver  sampling  and  driver  transformation  calculations 

■OUT  = 20  crack  growth  calculations 

lOUT  = 25  stress  calculations 

lOUT  = 30  rainflow  cycle  counting 

NLIFE 

[INT] 


Inner  loop  number 

Size  of  the  inner  loop  of  the  Monte  Carlo  (MC)  simulation.  A positive  value  is  re- 
quired. 

NHYPER 

[INT] 

Outer  loop  number 

Size  of  the  outer  loop  of  the  MC  simulation.  The  program  requires  a positive  value. 

IRET 

[INT] 

Crack  growth  retardation  switch 

Switch  to  invoke  the  Willenborg  retardation  model  in  the  crack  growth  calculations. 
The  following  integer  values  control  the  retardation  option. 

IRET  =0  no  growth  retardation 

IRET  = 1 include  growth  retardation 

INEUB 

[INT] 

Neuber’s  stress  calculation  switch 

Switch  to  use  the  Neuber’s  rule  to  calculate  an  equivalent  mean  stress.  The  follow- 
ing integer  values  control  the  Neuber’s  rule  option. 
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INEUB  =0  no  Neuber’s  equivalent  mean  stress  calculation 
INEUB  = 1 include  Neuber’s  equivalent  mean  stress  calculation 


NBLIFE 

[INT] 

Number  of  B-lives 

The  number  of  B-lives  to  be  provided  from  the  simulated  distribution  of  life.  A B-life 
is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  specified 
as  a percentage;  e.g.,  B.1  is  the  failure  time  at  a probability  of  O.CX)1  or  0.1%. 
NBLIFE  must  be  non-negative  and  cannot  exceed  10. 


BLFPER(I)  BLFPER(2)  ...  BLFPER(NBLIFE) 

[RE]  [RE]  [RE] 

B-life  percentages 

The  decimal  equivalent  of  the  percentages  at  which  the  B-lives  are  required;  e.g.,  if 
the  B.1  life  is  desired,  then  BLFPER  = 0.001.  A total  of  NBLIFE  percentages 
must  be  provided.  The  percentage  cannot  exceed  1%  (BLFPER  < 0.01). 

Driver  Information  Block 


WOFFA 

WOFFB 

WOFFR1 

WOFFR2 

WOFFT1 

WOFFT2 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

WOFFC 

WOFFD 

WOFFR3 

WOFFR4 

WOFFT3 

WOFFT4 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

WOFFE 

[RE] 

Beta  distribution  on  weld  offset  information 

Wqpp  in  Equation  2-3  is  the  weld  offset.  It  is  required  for  the  HEX  coil  problem 
(KPROB  = 1).  It  may  be  characterized  by  two  Beta  probability  distributions.  The 
first  two  lines  are  the  two  Beta  distributions,  one  per  line.  See  Section  2. 1.3.1  in  [1] 
for  specifying  parameters  to  define  a Beta  driver  distribution.  The  Beta  distribution 
format  consists  of  six  parameters.  The  first  two  parameters  are  the  lower  and 
upper  bounds,  respectively,  for  The  next  two  parameters  are  the  lower  and 
upper  bounds  for  a Uniform  distribution  onp.  Similarly,  the  last  two  parameters 
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describe  a Uniform  distribution  on  6.  The  third  line  is  the  decimal  equivalent  per- 
centage weight  for  the  first  Beta  distribution,  and  it  must  be  between  0.00  and  1 .00. 


WOFFA 

lower  bound  of  the  first  Beta  distribution  on 

WOFFB 

upper  bound  of  the  first  Beta  distribution  on  Wqp^ 

WOFFR1 

Uniform  distribution  lower  bound  of  parameter^  in  the  first  Beta 
distribution  of  WQpp 

WOFFR2 

Uniform  distribution  upper  bound  of  parameter  p in  the  first  Beta 
distribution  of  Wqp^ 

WOFFT1 

Uniform  distribution  lower  bound  of  parameter  6 in  the  first  Beta 
distribution  of  Wq^p 

WOFFT2 

Uniform  distribution  upper  bound  of  parameter  0 in  the  first  Beta 
distribution  of  WQpp 

WOFFC 

lower  bound  of  the  second  Beta  distribution  on  WQpp 

WOFFD 

upper  bound  of  the  second  Beta  distribution  on  WQpp 

WOFFR3 

Uniform  distribution  lower  bourxl  of  parameterp  in  the  second  Beta 
distribution  of 

WOFFR4 

Uniform  distribution  upper  bound  of  parameter p in  the  second  Beta 
distribution  of  Wqpp 

WOFFT3 

Uniform  distribution  lower  bound  of  parameter  0 in  the  second  Beta 
distribution  of  WQpp 

WOFFT4 

Uniform  distribution  upper  bourKf  of  parameter  d in  the  second  Beta 
distribution  of  WQpp 

WOFFE 

decimal  equivalent  percentage  weight  occurring  in  the  first  Beta 
distribution  of  the  weld  offset,  WQpp 

INDIAA  INDIAB  INDIR1  INDIR2  INDIT1  INDIT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  duct  inside  diameter  information 

Dj  (in.),  the  duct  inside  diameter.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 
1 ).  It  is  used  to  calculate  Rj  in  Equation  2-1  and  is  characterized  by  a Beta  prob- 
ability distribution.  See  Section  2. 1.3.1  in  [1]  for  specifying  parameters  to  define  a 
Beta  driver  distribution.  The  first  two  parameters  are  the  lower  and  upper  bounds, 
respectively,  for  the  duct  inside  diameter.  The  next  two  parameters  are  the  lower 
and  upper  bounds  for  a Uniform  distribution  on  p.  Similarly,  the  last  two 
parameters  describe  a Uniform  distribution  on  6. 

INDIAA  lower  bound  of  the  Beta  distribution  on  Dj 
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iNDlAB  upper  bound  of  the  Beta  distribution  on  Dj 

INDIR1  Uniform  distribution  lower  bound  of  parameter  p in  the  Beta 

distribution  of  D, 

INDIR2  Uniform  distribution  upper  bound  of  parameter/?  in  the  Beta 

distribution  of  Oy 

INDIT 1 Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta 

distribution  of  Dj 

INDIT2  Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta 

distribution  of  Dj 


THICA  THICB  THICR1  THICR2  THICT1  THICT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  wall  thickness  information 

t (in.),  the  duct  wall  thickness.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 
1).  It  is  used  to  calculate  the  area  and  calculate  in  Equation  2-1  and  is  charac- 
terized by  a Beta  probability  distribution.  See  Section  2. 1.3.1  in  [1]  for  specifying 
parameters  to  define  a Beta  driver  distribution.  The  first  two  parameters  are  the 
lower  and  upper  bounds,  respectively,  for  the  wall  thickness.  The  next  two 
parameters  are  the  lower  and  upper  bounds  for  a Uniform  distribution  on  p. 
Similarly,  the  last  two  parameters  describe  a Uniform  distribution  on  6. 


THICA 

lower  bound  of  the  Beta  distribution  on  t 

THICB 

upper  bound  of  the  Beta  distribution  on  t 

THICR1 

Uniform  distribution  lower  bound  of  parameter/?  in  the  Beta 
distribution  of  t 

THICR2 

Uniform  distribution  upper  bound  of  parameter/?  in  the  Beta 
distribution  of  t 

THICT1 

Uniform  distribution  lower  bound  of  parameter  0 in  the  Beta 
distribution  of  t 

THICT2 

Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta 
distribution  of  t 

AOCA  AOCB  AOCR1  AOCR2  AOCT1  AOCT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  initial  crack  aspect  ratio  information 

a/c,  the  initial  aspect  ratio  of  an  elliptic  crack.  It  is  required  for  the  HEX  coil  problem 
(KPROB  = 1).  It  is  used  to  calculate  the  initial  half  crack  length  Cj  given  the  initial 
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crack  depth  and  is  characterized  by  a Beta  probability  distribution.  See  Section 
2. 1.3.1  in  [1]  for  specifying  parameters  to  define  a Beta  driver  distribution.  The 
first  two  parameters  are  the  lower  and  upper  bounds,  respectively,  for  the  aspect 
ratio.  The  next  two  parameters  are  the  lower  and  upper  bounds  for  a Uniform  dis- 
tribution onp.  Similarly,  the  last  two  parameters  describe  a Uniform  distribution  on 

e. 

AOCA  lower  bound  of  Beta  distribution  on  a/c 

AOCB  upper  bound  of  Beta  distribution  on  a/c 

AOCR1  Uniform  distribution  lower  bound  of  parameter p in  the  Beta 

distribution  of  a/c 

AOCR2  Uniform  distribution  upper  bound  of  parameter p in  the  Beta 

distribution  of  a/c 

AOCT 1 Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta 

distribution  of  a/c 

AOCT2  Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta 

distribution  of  a/c 


WITHA  WITHB  WITHR1  WITHR2  WITHT1  WITHT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  plate  width  information 

W (in.),  the  plate  width.  It  is  required  for  the  EXHEX  problem  (KPROB  = 2).  It  is 
used  to  calculate  the  stress  intensity  factor  coefficients  and  is  characterized  by  a 
Beta  probability  distribution.  See  Section  2. 1.3.1  in  [1]  for  specifying  parameters 
to  define  a Beta  driver  distribution.  The  first  two  parameters  are  the  lower  and 
upper  bounds,  respectively,  for  the  width.  The  next  two  parameters  are  the  lower 
and  upper  bounds  for  a Uniform  distribution  on  p.  Similarly,  the  last  two 
parameters  describe  a Uniform  distribution  on  6. 


WITHA 

lower  bound  of  the  Beta  distribution  on  W 

WITHB 

upper  bound  of  the  Beta  distribution  on  W 

WITHR1 

Uniform  distribution  lower  bound  of  parameter />  in  the  Beta 
distribution  of  W 

WITHR2 

Uniform  distribution  upper  bourKJ  of  parameter/}  in  the  Beta 
distribution  of  W 

WITHT1 

Uniform  distribution  lower  bound  of  parameter  d in  the  Beta 
distribution  of  W 

WITHT2 

Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta 
distribution  of  W 
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AIA  AIB  AIR1  AIR2  AIT1  AIT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 


Beta  distribution  on  initial  crack  size  information 

a,  (in.),  the  initial  crack  depth  for  an  elliptic  crack  in  the  HEX  coil  problem  (KPROB 
= 1)  or  half  the  crack  length  for  the  EXHEX  problem  (KPROB  = 2).  It  is  charac- 
terized by  a Beta  probability  distribution.  See  Section  2.1. 3.1  in  [1]  for  specifying 
parameters  to  define  a Beta  driver  distribution.  The  first  two  parameters  are  the 
lower  and  upper  bounds,  respectively,  for  the  initial  crack  size.  The  next  two 
parameters  are  the  lower  and  upper  bounds  for  a Uniform  distribution  on  p. 
Similarly,  the  last  two  parameters  describe  a Uniform  distribution  on  d. 

AIA  lower  bound  of  the  Beta  distribution  on  a-, 

AIB  upper  bound  of  the  Beta  distribution  on  a,- 

AIR1  Uniform  distribution  lower  bound  of  parameter p in  the  Beta 

distribution  of  a,- 

AIR2  Uniform  distribution  upper  bound  of  parameter/?  in  the  Beta 

distribution  of  a, 

AIT  1 Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta 

distribution  of  a,- 

AIT2  Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta 

distribution  of  a,- 


LAMNA  LAMNB  LAMNC  LAMND 

[RE]  [RE]  [RE]  [RE] 

Distribution  on  narrow-band  random  load  scale  factor  information 
This  line  contains  the  parameters  to  define  the  narrow-band  random  load  scale  fac- 
tor, Xdmuoom  Equation  2-5.  See  Section  2. 1.3.2  in  [1]  on  load  scale  factors  for  a 
detailed  description  of  the  parameters  k,  coefficient  of  variation  C,  and  strain  gage 
factor  d. 

LAMNA  lower  bound  of  Uniform  distribution  of  k for  the  narrow-band  random 

load  scale  factor 

LAMNB  upper  bound  of  Uniform  distribution  of  k for  the  narrow-band  raixJom 

load  scale  factor 

LAMNC  coefficient  of  variation  C for  the  narrow-band  rarxlom  load  scale  factor 

LAMND  strain  gage  factor  d for  the  narrow-band  random  load  scale  factor 
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LAMSA  LAMSB  LAMSC  LAMSD 

[RE]  [RE]  [RE]  [RE] 

Distribution  on  sinusoidal  load  scale  factor  information 
This  line  contains  the  parameters  to  define  the  sinusoidal  load  scale  factor, 
Xosk^usodm.  in  Equation  2-5.  See  Section  2. 1.3.2  in  [1]  on  load  scale  factors  for  a 
detailed  description  of  the  parameters  k,  coefficient  of  variation  C,  and  strain  gage 
factor  d. 

LAMSA  lower  bound  of  Uniform  distribution  of  k for  the  sinusoidal  load  scale 

factor 

LAMSB  upper  bound  of  Uniform  distribution  of  k for  the  sinusoidal  load  scale 

factor 

LAMSC  coefficient  of  variation  C for  the  sinusoidal  load  scale  factor 

LAMSD  strain  gage  factor  d for  the  sinusoidal  load  scale  factor 


TIMUA  TIMUB  TISIGA  TISIGB 

[RE]  [RE]  [RE]  [RE] 

Normal  distribution  on  inner  wall  temperature  information 
Tj  (°R),  the  inner  wall  temperature.  It  is  required  for  the  HEX  coil  problem  (KPROB 
= 1).  It  is  used  to  calculate  the  temperature  difference  across  the  wall  of  the  duct, 
AT  (“R)  in  Equation  2-2,  and  is  characterized  by  a Normal  distribution. 

TIMUA  Uniform  distribution  lower  bound  of  parameter//  in  the  Normal 

distribution  of  Tj 

TIMUB  Uniform  distribution  upper  bound  of  parameter//  in  the  Normal 

distribution  of  Tj 

TISIGA  Uniform  distribution  lower  bound  of  parameter  a in  the  Normal 

distribution  of  7- 

TISIGB  Uniform  distribution  upper  bound  of  parameter  a in  the  Normal 

distribution  of  Tj 


TOMUA  TOMUB  TOSIGA  TOSIGB 

[RE]  [RE]  [RE]  [RE] 
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Normal  distribution  on  outer  wall  temperature  information 

Tq  TR).  the  outer  wall  temperature.  It  is  required  for  the  HEX  coil  problem  (KPROB 
= 1).  It  is  used  to  calculate  the  temperature  difference  across  the  wall  of  the  duct, 
AT  (°R)  in  Equation  2-2,  and  is  characterized  by  a Normal  distribution. 

TOMUA  Uniform  distribution  iower  bound  of  parameter  fi  in  the  Normal 

distribution  of  Tq 

TOMUB  Uniform  distribution  upper  bound  of  parameter^  in  the  Normal 

distribution  of  Tq 

TOSIGA  Uniform  distribution  iower  bound  of  parameter  a in  the  Normeil 

distribution  of  Tq 

TOSIGB  Uniform  distribution  upper  bound  of  parameter  o in  the  Normal 

distribution  of  Tq 


PCMUA  PCMUB  PCSIGA  PCSIGB 

[RE]  [RE]  [RE]  [RE] 

Normal  distribution  on  internal  pressure  information 

Pi  (psi)  in  Equation  2-1.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1).  This 

is  the  inner  wall  pressure,  and  it  is  characterized  by  a Normal  distribution. 

PCMUA  Uniform  distribution  lower  bound  of  parameter  ft  in  the  Normal 

distribution  of  py 

PCMUB  Uniform  distribution  upper  bound  of  parameter n in  the  Normal 

distribution  ofpy 

PCSIGA  Uniform  distribution  lower  bound  of  parameter  a in  the  Normal 

distribution  ofpy 

PCSIGB  Uniform  distribution  upper  bound  of  parameter  a in  the  Normeil 

distribution  ofp,- 


LAMWA  LAMWB 
[RE]  [RE] 


Weld  offset  stress  accuracy  factor  Uniform  distribution  information 
Aqpp  in  Equation  2-3.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1).  This  is 
the  weld  offset  stress  concentration  accuracy  factor,  and  it  is  characterized  by  a 
Uniform  distribution. 


LAMWA  Uniform  distribution  lower  bound  of 

LAMWB  Uniform  distribution  upper  bound  of 
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AERDA  AERDB 

[RE]  [RE] 

Aerodynamic  load  scale  factor  distribution  information 

^Daero  in  Equation  2-5.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1).  This  is 
the  aerodynamic  load  scale  factor,  and  it  is  characterized  by  a Uniform  distribution. 
AERDA  Uniform  distribution  lower  bound  of  aerodynamic  load  scale  factor 

AERDB  Uniform  distribution  upper  bound  of  aerodynamic  load  scale  factor 

AERSA  AERSB 

[RE]  [RE] 

Aerostatic  load  scale  factor  distribution  information 

^staero  in  Equation  2-5.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1),  This 
is  the  aerostatic  load  scale  factor,  and  it  is  characterized  by  a Uniform  distribution. 

AERSA  Uniform  distribution  lower  bound  of  aerostatic  load  sc2ile  factor 

AERSB  Uniform  distribution  upper  bound  of  aerostatic  load  scale  factor 

ASTRA  ASTRB 

[RE]  [RE] 

Aeroloads  stress  analysis  accuracy  factor  Uniform  distribution  information 
^AEROstr  in  Equation  2-5.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1).  This 
is  the  aeroloads  stress  analysis  accuracy  factor,  and  it  is  characterized  by  a 
Uniform  distribution. 

ASTRA  Uniform  distribution  lower  bound  of  aeroloads  stress  analysis 

accuracy  factor 

ASTRB  Uniform  distribution  upper  bound  of  aeroloads  stress  analysis 

accuracy  factor 


SSTRA  SSTRB 

[RE]  [RE] 

Static  stress  analysis  accuracy  factor  Uniform  distribution  information 
XsTstr  in  Equation  2-5.  This  is  the  static  stress  analysis  accuracy  factor,  and  it  is 
characterized  by  a Uniform  distribution.  It  is  required  for  the  EXHEX  channel  prob- 
lem (KPROB  = 2). 
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SSTRA 


Uniform  distribution  lower  bound  of  static  stress  analysis  accuracy 
factor 


SSTRB  Uniform  distribution  upper  bound  of  static  stress  analysis  accuracy 

factor 


DSTRA  DSTRB 

[RE]  [RE] 

Dynamic  stress  analysis  accuracy  factor  Uniform  distribution  information 
^DYNstr  in  Equation  2-5.  This  is  the  dynamic  stress  analysis  accuracy  factor,  and  it  is 
characterized  by  a Uniform  distribution. 

DSTRA  Uniform  distribution  lower  bound  of  dynamic  stress  analysis  accuracy 

factor 

DSTRB  Uniform  distribution  upper  bound  of  dynamic  stress  analysis  accuracy 

factor 


NEUBA  NEUBB 

[RE]  [RE] 

Neuber’s  Rule  accuracy  factor  Uniform  distribution  information 
It  is  required  for  the  HEX  Coil  problem  (KPROB  = 1)  when  INEUB  = 1.  This  is 
the  Neuber’s  Rule  accuracy  factor.  and  it  is  characterized  by  a Uniform  dis- 
tribution. Neuber’s  Rule  is  described  in  Section  2.2. 1.4  of  [1]. 

NEUBA  Uniform  distribution  lower  bound  of  Neuber’s  Rule  accuracy  factor 

NEUBB  Uniform  distribution  upper  bound  of  Neuber’s  Rule  accuracy  factor 


LAMKHA  LAMKHB 

[RE]  [RE] 

Threshold  stress  intensity  factor  uncertainty  Uniform  distribution  information 
XKth  in  Equation  2-8.  This  is  the  threshold  stress  intensity  factor  range  accuracy  fac- 
tor. and  it  is  characterized  by  a Uniform  distribution. 

LAMKHA  Uniform  distribution  lower  bound  of  threshold  stress  intensity  factor 

range  uncertainty 

LAMKHB  Uniform  distribution  upper  bound  of  threshold  stress  intensity  factor 

range  uncertainty 
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LAMKCA  LAMKCB 

[RE]  [RE] 

Critical  stress  intensity  factor  uncertainty  Uniform  distribution  information 
Akc  in  Equation  2-8.  This  is  the  critical  stress  intensity  factor  uncertainty,  and  it  is 
characterized  by  a Uniform  distribution. 

LAMKCA  Uniform  distribution  iower  bound  of  critical  stress  intensity  factor 
uncertainty 

LAMKCB  Uniform  distribution  upper  bound  of  critical  stress  intensity  factor 

uncertainty 


KLAMA  KLAMB 

[RE]  [RE] 


Stress  intensity  factor  calculation  accuracy  factor  Uniform  distribution  information 
This  line  contains  the  Uniform  distribution  bounds  for  the  stress  intensity  factor  cal- 
culation accuracy  factor,  A^,y. 


KLAMA 

KLAMB 


Uniform  distribution  lower  bound  on  stress  intensity  factor  calculation 
accuracy  factor 

Uniform  distribution  upper  bound  on  stress  intensity  factor  calculation 
accuracy  factor 


LAMGRA  LAMGRB 

[RE]  [RE] 

Crack  growth  calculation  accuracy  factor  distribution  information 

This  line  contains  the  Uniform  distribution  bounds  in  loge  space  for  the  crack 

growth  calculation  accuracy  factor.  Xg^^,  in  Equation  2-18. 

LAMGRA  lower  bound  on  crack  growth  calculation  accuracy  factor 

LAMGRB  upper  bound  on  crack  growth  calculation  accuracy  factor 


MVARA  MVARB 

[RE]  [RE] 

Forman  equation  parameter  m Uniform  distribution  information 

This  line  contains  the  Uniform  distribution  bounds  for  the  Forman  equation 

parameter  m in  Equation  2-7.  This  is  required  if  KGROW  = 2. 
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MVARA 

MVARB 


Uniform  distribution  lower  bound  on  Forman  constant  m 
Uniform  distribution  upper  bound  on  Forman  constant  m 


Load  and  Stress  Block 

The  input  for  loads  and  stresses  for  the  HEX  coil  problem  (KPROB  = 1)  and 
EXHEX  problem  (KPROB  = 2)  are  different.  For  the  HEX  coil  problem  the  beam- 
end  forces  (axial  force,  moments,  and  shear  forces)  from  a node  in  a beam  finite 
element  mesh  were  used.  For  the  EXHEX  channel  the  stress  components  (o^,  Oy, 
etc.)  from  a node  in  a three-dimensional  finite  element  mesh  were  used. 

NLOAD 

[INT] 


Number  of  dynamic  loads 

Total  number  of  dynamic  or  time-varying  loads.  NLOAD  cannot  exceed  16. 


PSTAT  TSTAT  MSTAT(I)  MSTAT(2)  VSTAT(1)  VSTAT(2) 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Aerostatic  loads 

This  line  contains  the  six  beam-end  force  components  due  to  aerostatic  loads.  It  is 
required  for  the  HEX  coil  problem  (KPROB  = 1).^ 

PSTAT  P (lbs)  in  Equation  2-1 , the  static  axial  load  component 

TSTAT  Mj^  (in.-lbs),  the  static  torsional  load  component 

MSTAT(I)  My  (in.-lbs)  in  Equation  2-1 , the  static  moment  load  component  about 
the  y-axis 

MSTAT(2)  (in.-lbs)  in  Equation  2-1 , the  static  moment  load  component  about 

the  z-axis 

VSTAT(I)  Vy  (lbs),  the  static  shear  load  component  along  the  y-axis 
VSTAT(2)  (lbs),  the  static  shear  load  component  along  the  z-axis 


^ PROCRK  does  not  require  M^,  Vy,  and  Vz-  Nevertheless,  placeholders  for  these  parameters 
must  be  included  as  the  crack  growth  model  uses  routines  M4L1  and  M4L2  without 
modifications. 
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LDNAME(I)  TYPE(I)  P(l)  T(l)  M(1,l)  M(2,l)  V(1,l)  V(2,l) 

[CHR]  [INT]  [RE]  [RE]  [RE]  [RE]  [RE]  [RE] 


Dynamic  loads 

This  line  contains  the  dynamic  load  file  names,  load  types,  and  the  six  components 
of  the  beam-end  force  magnitudes.  It  is  required  for  the  HEX  coil  problem 
(KPROB  = 1).  A total  of  NLOAD  lines  must  be  specified  (i.e.,  the  value  of  I goes 
from  1 to  NLOAD).^ 

LDNAME(I)  File  name  containing  the  reference  time  history  for  load  I.  The  file 

name  cannot  be  more  than  six  characters  long  and  must  be  enclosed 
by  single  quotes. 

TYPE(I)  Load-type  of  load  I,  used  to  assign  the  appropriate  load  scale  factor 

TYPE  (I)  = 1 Narrow-band  random  load 
TYPE(I)  = 2 Sinusoidal  load 
TYPE(I)  = 3 Aerodynamic  load 

P(l)  P Ohs)  in  Equation  2-1 , the  dynamic  axial  load  magnitude  for  load  I 

T(l)  Mjf  (in.-lbs),  the  dynamic  torsional  load  magnitude  for  load  I 

My  (in.-lbs)  in  Equation  2-1 . the  dynamic  moment  load  magnitude 
about  the  y-axis  for  load  I 

M(2,l)  (in.-lbs)  in  Equation  2-1 , the  dynamic  moment  load  magnitude 

about  the  z-axis  for  load  I 

V(1fl)  Vy  (lbs),  the  dynamic  shear  load  magnitude  along  the  y-axis  for  load  I 

V(2,l)  (lbs),  the  dynamic  shear  load  magnitude  along  the  z-axIs  for  load  I 


SXST  SYST  SZST  SXYST  SXZST  SYZST 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Static  stresses 

This  line  contains  the  six  stress  components  due  to  static  loads.  It  is  required  for 
the  EXHEX  problem  (KPROB  = 2). 

SXST  (psi),  due  to  static  loads 

SYST  Oy  (psi),  due  to  static  loads 


2 PROCRK  does  not  require  Vy,  and  V^.  Nevertheless,  placeholders  for  these  parameters 
must  be  included  as  the  crack  growth  model  uses  routines  M4L1  and  M4L2  without 
modifications. 
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SZST 

(psi),  due  to  static  loads 

SXYST 

Ojy  (psi),  due  to  static  loads 

SXZST 

(psi),  due  to  static  loads 

SYZST 

(psi).  due  to  static  loads 

LDNAME(I)  TYPE(I)  SX(I)  SY(I)  SZ(I)  SXY(I)  SXZ(I)  SYZ(I) 

[CHR]  [INT]  [RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Dynamic  stresses 

This  line  contains  the  dynamic  load  file  names,  load  types,  and  the  six  stress  com- 
ponent magnitudes.  It  is  required  for  the  EXHEX  problem  (KPROB  = 2).  A total  of 
NLOAD  lines  must  be  specified  (i.e.,  the  value  of  I goes  from  1 to  NLOAD). 


LDNAME(I) 

File  name  containing  the  reference  time  history  for  load  source  1.  The 
file  name  cannot  be  more  than  six  characters  long  and  must  be 
enclosed  by  single  quotes. 

TyPE(l) 

Load-type  of  load  1.  used  to  assign  the  appropriate  load  scale  factor 
TYPE(I)  = 1 Narrow-band  random  load 
TYPE(I)  = 2 Sinusoidal  load 

SX(I) 

(psi),  due  to  dynamic  load  source  I 

SY(I) 

Oy  (psi).  due  to  dynamic  load  source  1 

SZ(I) 

(psi),  due  to  dynamic  load  source  1 

SXY(I) 

°xy  (psi)'  'o  dynamic  load  source  1 

SXZ(I) 

<^xz  (psi)'  dynamic  load  source  1 

SYZ(I) 

<^yz  (psi).  due  to  dynamic  load  source  1 

PCO 

[RE] 


External  pressure 

Po  (psi)  in  Equation  2-1 . This  is  the  outer  wall  pressure.  It  is  required  for  the  HEX 
coil  problem  (KPROB  = 1). 

LOCAT 

[INT] 

Critical  location 

Critical  location  of  interest  on  the  duct  wall.  It  is  required  for  the  HEX  coil  problem 
(KPROB  = 1). 
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LOCAT  = 1 outer  wall 

LOCAT  = 2 Inner  wall 


ANGLE 

[RE] 

Critical  angle 

<!>  (degrees)  in  Equation  2*1.  This  is  the  angle  measured  counterclockwise  from 
the  Z-direction  to  the  critical  circumferential  location  of  the  duct.  It  is  required  for 
the  HEX  coil  problem  (KPROB  = 1). 

RSO 

[RE] 

Willenborg  retardation  model  constant 

RSO  in  Equation  2-13.  This  is  the  Willenborg  retardation  model  constant. 

PERIOD 

[RE] 

Period 

T (sec)  in  Equation  2-18.  This  is  the  period  of  the  reference  time  histories,  and  it  is 
required  so  that  life  may  be  provided  in  seconds. 

TRUNC 

[RE] 

Noise  filter 

Value  (psi)  used  to  filter  out  the  insignificant  cycles  in  the  composite  stress-time  his- 
tory during  rainflow  cycle  counting. 

NRAN 

[INT] 

Number  of  history  points 

Number  of  points  in  the  reference  time  history  files  for  the  dynamic  loads.  NRAN 
cannot  exceed  20,000. 
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EM  COEXP  NU 

[RE]  [RE]  [RE] 

Materials  information 

This  line  contains  the  elastic  modulus,  coefficient  of  thermal  expansion,  and 
Poisson’s  ratio.  This  line  is  required  for  the  HEX  coil  problem  (KPROB  = 1). 

EM  E (psi)  in  Equation  2-2,  Young’s  modulus  of  elasticity 

COEXP  a (/°R)  in  Equation  2-2,  the  coefficient  of  thermal  expansion 

NU  V in  Equation  2-2,  the  materials  Poisson’s  ratio 


FK(I)  RT(I) 

[RE]  [RE] 

Fk  versus  R/t  curve 

versus  R/t  points  for  each  segment  of  the  curve  are  used  by  Equation  2-3  in  the 
weld  offset  eccentricity  stress  concentration  calculations.  It  is  required  for  the  HEX 
coil  problem  (KPROB  = 1).  A block  of  10  segments  must  be  provided  (i.e.,  the 
value  of  I goes  from  1 to  10).  Both  FK  and  RT  must  be  positive  and  increase  with 
increasing  I (i.e.,  I = 1 is  the  lower  bound  of  the  first  segment,  and  I = 10  is  the 
upper  bound  of  the  last  segment). 

FK(I)  f^k'^FIt)  value 

RT(I)  fl/f  value 

NUMSEG 

[INT] 

Number  of  segments 

The  number  of  piecewise  linear  segments  in  the  stress-strain  versus  strain  curve 
provided.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1)  when  INEUB  = 1. 


SE(J)  E(J) 

[RE]  [RE] 

Stress-strain  versus  strain  curve 

OE  versus  e points  for  each  segment  of  the  o vs.  e curve  are  used  in  the  Neuber’s 
Rule  calculations.  It  is  required  for  the  HEX  coil  problem  (KPROB  = 1)  when 
INEUB  = 1.  A block  of  NUMSEG  lines  must  be  provided  (i.e.,  the  value  of  J goes 
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from  1 to  NUMSEG).  Both  SE  and  E must  be  positive  and  increase  with  increas- 
ing J as  PROCRK  assumes  that  the  J = 0 point  is  at  the  origin. 

SE(J)  value  of  the  product  of  stress  and  strain,  ae,  at  the  upper  end  of  the 

Jth  segment  of  the  stress-strain  versus  strain  curve 

E(J)  value  of  the  strain  e at  the  upper  end  of  the  Jth  segment  of  the  stress- 

strain  versus  strain  curve 

Materials  Information  Block 

DESCRP 

[CHR] 

Description  of  material  data 

Name  and  test  environment  for  the  material  data.  This  is  a character  string  no 
more  than  40  characters  long,  enclosed  by  single  quotes. 


FTY  KC 

NDIV  IREGOP 

[RE]  [RE] 

[INT]  [INT] 

Materials  information 

Yield  strength,  critical  stress  intensity  factor,  number  of  divisions  of  data,  and 
regression  option.  The  data  in  each  division  must  have  the  same  stress  ratio  but 
data  with  the  same  stress  ratios  may  be  assigned  to  different  divisions  if  desired 
(e.g.,  from  different  tests).  NDIV  cannot  exceed  ten. 

FTY 

yield  strength  (psi) 

KC 

critical  stress  intensity  factor  (ksiVIFT) 

NDIV 

number  of  data  divisions  for  the  material  data 

IREGOP 

3 

regression  option  to  fit  the  generalized  Forman  Equation  2-7 

IREGOP  =0  fix  p regress  for  C,  n,  m,  q 

IREGOP  = 1 fix  m,  p regress  for  C,  n,  q 

IREGOP  =2  fix  q,  p regress  for  C,  n,  m 

IREGOP  = 3 fix  m,  q.  p regress  for  C,  n 

IREGOP  = 4 regress  for  C.  n,  m,  q,  p 

^ When  KGROW  = 1,  the  selected  value  of  ;?i  will  supercede  the  value  obtained  from  the 

regression. 
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DKTHO  CO  DEE 

[RE]  [RE]  [RE] 

Threshold  stress  intensity  factor  range  model  information 

The  parameters  for  the  threshold  stress  intensity  factor  range  vs.  stress  ratio 

model  given  by  Equation  2-10. 

DKTHO  stress  intensity  factor  range,  ^jHo-  stR  = 0 (ksi>/irr) 

CO  empirical  model  constant  Cg 

DEE  empirical  model  exponent  d 

PEE 

[RE] 

p constraint  for  IREGOP  = 0 

Parameter  p in  the  generalized  Forman  Equation  2-7.  This  is  required  when 

IREGOP  = 0. 

EMM  PEE 

[RE]  [RE] 

m,  p constraint  for  IREGOP  = 1 

Parameters  m and  p in  the  generalized  Forman  Equation  2-7.  This  is  required 
when  IREGOP  = 1 . 

QUE  PEE 

[RE]  [RE] 

q,  p constraint  for  IREGOP  = 2 

Parameters  q and  p in  the  generalized  Forman  Equation  2-7.  This  is  required  when 

IREGOP  = 2. 

EMM  QUE  PEE 

[RE]  [RE]  [RE] 

m,  q,  p constraint  for  IREGOP  = 3 

Parameters  m,  q,  and  p in  the  generalized  Forman  Equation  2-7.  This  is  required 
when  IREGOP  = 3. 
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NP(I)  RDATA(1) 

[INT]  [RE] 


Information  for  each  crack  growth  rate  data  division 

Number  of  points  and  stress  ratio  for  each  data  division.  This  line  must  be 

provided  for  each  data  division  I.  NP(I)  for  each  division  cannot  exceed  two 

hundred. 

NP(I)  number  of  data  points  in  the  division 

RDATA(I)  stress  ratio  for  the  data  in  the  division 


DADN(I,J)  DELK(I,J) 

[RE]  [RE] 

Crack  growth  da/dN  vs.  AK  data 

Crack  growth  rate  versus  stress  intensity  factor  range  data  points  for  each  data 
division.  A block  of  NP(I)  lines  must  be  specified  (i.e.,  the  value  of  J goes  from  1 
to  NP(I)).  This  block  must  be  provided  for  each  data  division  (i.e.,  the  value  of  I 
goes  from  1 to  NDIV). 

DADN(I,J)  crack  growth  rate  da/dN  (in./cycle) 

DELK(I,J)  stress  intensity  factor  range  AK  (ksiv^IrT) 

6.1 .3.2  Reference  Time  History  Files 
The  data  format  for  the  reference  time  history  files  Is  given  below.  There  must 
be  NLOAD  files  with  the  same  names,  as  specified  by  LDNAME(I)  in  file  CRKDAT. 
Reference  time  histories  are  typically  generated  by  program  NBSIN  described  in 
Sections  4.5,  6.6,  and  7.7  of  [1]. 

STRHIS(I,J) 

[RE] 

The  points  of  the  Ith  reference  history 

The  points  of  the  reference  time  history  specified  by  LDNAME(I).  The  data  is 
entered  one  point  per  line  for  J = 1, ...,  NRAN. 

6.1.4  Options  and  Capabilities 

PROCRK  is  a Monte  Carlo  simulation  program  which  generates  a sequence  of 
component  lives  for  a particular  failure  mode,  where  life  is  defined  as  the  accumu- 
lated operating  time  at  failure.  The  simulation  has  a double-loop  structure  with 
NHYPER  outer  loops  and  NLIFE  inner  loops.  The  simulation  size  is  dependent  on 
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the  failure  probability  at  which  a life  estimate  is  desired  and  the  precision  desired. 
For  the  HEX  coil  and  EXHEX  applications,  single-loop  runs  with  NHYPER  = 

10,000  and  NLIFE  = 1 were  used  to  characterize  component  reliability,  and  single- 
loop runs  with  NHYPER  = 1000  and  NLIFE  = 1 were  used  for  the  marginal 
analysis  to  assess  the  importance  of  drivers. 

During  a run,  it  may  be  desirable  to  “hold”  a driver  at  a fixed  value.  This  may  be 
the  nominal  or  median  value  of  the  driver.  This  is  done  for  drivers  with  a Beta  or  a 
Uniform  distribution  by  merely  specifying  both  the  upper  and  lower  bounds  to  be 
the  desired  value.  For  drivers  with  a Normal  distribution,  the  standard  deviation  o, 
or  coefficient  of  variation  C,  is  set  at  zero,  and  the  mean,  ft,  is  set  at  the  desired 
value. 

The  procedure  of  holding  certain  drivers  at  fixed  values  while  letting  the  other 
drivers  vary  according  to  their  probability  distributions  may  be  used  for  driver  varia- 
tion sensitivity  studies.  That  is,  the  effect  on  life  of  driver  variation  may  be 
evaluated  by  letting  it  vary  while  holding  other  drivers  at  fixed  values. 

A printout  of  intermediate  calculations  in  various  parts  of  the  program  may  be  ob- 
tained via  the  lOUT  option.  This  output  will  be  printed  in  the  lOUTPR  file.  It  is 
recommended  that  such  output  not  be  requested  when  the  simulation  size  is  large 
since  the  information  will  be  dumped  during  every  simulation  loop. 

6.1.5  Code  Execution  Example 

The  following  example  run  of  the  crack  growth  analysis  code  PROCRK  was  car- 
ried out  with  random  variation  of  all  drivers  for  the  HPOTP  heat  exchanger  coil 
small  tube  outlet  (KPROB  = 1).  In  this  example  run,  1000  lives  were  simulated 
(NLIFE  = 1 times  NHYPER  = 1000)  with  no  variation  in  the  Forman  constant  m, 
KGROW  = 1.  The  Willenborg  retardation  model  and  the  Neuber’s  rule  to  calcu- 
late the  mean  stress  are  switched  on  (IRET  = 1,  INEUB  = 1).  The  B-lives^  to  be 
provided  are  B.1,  B.5,  and  B1  (NBLIFE  = 3,  BLFPER(I)  = 0.001,  BLFPER(2)  = 
0.005,  BLFPER(3)  = 0.01).  The  user  may  refer  to  Section  2.2  for  additional  infor- 
mation on  the  engineering  analysis  and  to  Section  2.3  for  the  results  of  the  case 
study  for  this  component. 


^ A B-life  is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  specified 
as  a percent;  e.g.,  B.l  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 
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Figure  6.1-4  Detail  of  the  HPOTP  Heat  Exchanger  Coil  Small 
Tube  Outlet  Near  Weld  3 

Figure  6.1-4  shows  the  component  in  detail  and  the  location  of  the  critical  weld, 

designated  as  The  external  pressure  PCO  is  3640  psi.  The  elastic  modulus 

EM  is  2.9x10^,  the  coefficient  of  thermal  expansion  COEXP  is  8.8x10“®,  and 
Poisson’s  ratio  NU  is  0.30  for  the  material. 

The  drivers  for  the  crack  growth  failure  of  weld  3 are  as  follows: 


DRIVER 

DISTRIBUTION 

Weld  Offset 

Beta 

Inner  Diameter 

Beta 

Wall  Thickness 

Beta 

Initial  Crack  Aspect  Ratio 

Beta 

Initial  Crack  Size 

Beta 

Random  & Sine  Load  Scale  Factors 

Normal 

Flow  Conditions  (T,-,  Tg,  p,) 

Normal 

Weld  Offset  Stress  Concentration  Accuracy 

Uniform 

Aerodynamic  & Static  Load  Scale  Factors 

Uniform 

Aeroloads  & Dynamic  Stress  Analysis  Accuracy  Factors 

Uniform 

Neuber’s  Rule  Accuracy 

Uniform 

Threshold  Stress  Intensity  Uncertainty  Factor 

Uniform 

Critical  Stress  Intensity  Uncertainty  Factor 

Uniform 

Stress  Intensity  Factor  Calculation  Accuracy 

Uniform 

Growth  Calculation  Accuracy 

Uniform 
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The  rationale  for  the  specification  of  the  driver  distributions  is  given  in  Section  2.3. 
The  initial  crack  size  was  held  at  0.005"  by  fixing  the  upper  and  lower  bounds  of 
the  distribution  at  AIA  = AIB  = 0.005.  Also,  the  weld  offset  was  held  at  6%  by 
fixing  WOFFA  = WOFFB  = 0.06.  The  threshold  stress  intensity  factor  range  ac- 
curacy was  set  to  LAMKHA  = LAMKHB  = 0 resulting  in  a zero  threshold  for  the 
crack  growth  analysis.  The  critical  stress  intensity  factor  accuracy  was  set  to 
LAMKCA  = LAMKCB  = 1. 

In  addition  to  the  static  loads,  there  were  one  narrow-band  random  load,  one 
sinusoidal  load,  and  one  aerodynamic  load.  The  three  dynamic  loads  (NLOAD  = 
3)  used  here  are  a subset  of  the  loads  for  this  component.  The  three  reference 
time  histories  are  in  the  files  named  NBM3,  SIN1,  and  AER01,  and  the  contents  of 
these  input  files  are  given  below.  The  reference  time  histories  have  five  points 
(NRAN  = 5)  and  represent  0.00025  seconds  (PERIOD  = 0.00025)  of  the  loading. 
The  reference  time  histories  used  for  the  case  studies  of  the  HEX  coil  small  tube 
outlet  given  in  Section  2.3  consisted  of  20,000  points.  Shorter  histories  are  used 
here  to  permit  their  inclusion  in  this  example.  The  critical  location  is  the  inner  wall 
(LOCAT  = 2)  at  a circumferential  position  of  ANGLE  = 10°. 

The  material  properties  used  are  for  welded  31 6L  stainless  steel.  The  yield 
strength  FTY  = 27,000  psi,  and  the  critical  stress  intensity  factor  KC  = 80.0 
ksivTn . The  Willenborg  retardation  model  parameter  RSO  = 2.3.  The  threshold 
SIF  model  parameters  DKTHO  = 4.0317,  CO  = 1.070,  and  DEE  = 0.16327. 

Three  divisions  (NDIV  = 3)  of  da/dN  vs.  AK  data,  which  is  a subset  of  the  data 
used  in  the  case  study  of  this  component  described  in  Section  2.3,  are  provided. 
The  first  division  has  16  data  points  generated  at  a stress  ratio  R = 0.90,  the 
second  division  has  18  data  points  at  a stress  ratio  R = 0.70,  and  the  third  division 
has  17  data  points  at  a stress  ratio  of  0.16.  The  regression  option  (IREGOP  = 4), 
which  derives  all  the  Forman  constants  C,  n,  m,  p,  and  q.  was  used.  If  further 
explanation  of  file  CRKDAT  is  required,  refer  to  Section  6.1. 3.1  and  Figure  6.1-1. 

The  echo  of  the  input  data  is  in  the  output  file  CRKRES.  The  simulated  B-lives 
are  also  given  for  the  component.  For  instance,  the  B.1  life  is  1.1x10^  seconds. 
This  value  is  different  from  the  B.1  life  obtained  in  the  case  study  of  this  com- 
ponent given  in  Section  2.3  because  the  number  and  size  of  the  reference  time  his- 
tories, crack  growth  rate  data  points,  and  the  number  of  simulation  trials  have 
been  reduced  to  facilitate  the  example  run.  There  are  only  three  time  histories  with 
just  five  points  each  used  here,  and  therefore  they  do  not  properly  represent  the 
loads  for  the  HEX  coil  problem.  Also,  the  versus  R/t  curve  is  only  an  example 
curve. 
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The  lOUTPR  file  gives  an  echo  of  the  analysis  parameters.  The  dump 
parameter  lOUT  is  zero;  therefore,  no  other  output  is  in  this  file.  The  LOWLIF  file 
contains  the  lowest  one  percent  of  the  1000  simulation  lives. 

Input  File  - CRKDAT 

1 

1 

675 

0 

1 

1000 

1 

1 

3 


0.001 

0.005  0.010 

0.06 

0.06  0.00 

0.00  0.0  0.0 

0.00 

0.00  0.00 

0.00  0.0  0.0 

1.00 

0.1885 

0.1915  0.50 

0.50  0.5  20. 

0.0113 

0.0157  0.27273  0.27273  0.5  20. 

0.200 

1.000  0.50 

0.50  0.0  0.0 

0.005 

0.005  0.00 

0.00  0.0  0.0 

2.00 

2.00  0.15 

1.00 

2.00 

2.00  0.20 

1.00 

486. 

666.  29. 

56.5 

799. 

908.  49.5 

48. 

3808. 

4177.  69. 

69. 

0.80 

1.20 

0.50 

1.50 

0.80 

1.20 

0.90 

1.10 

0.80 

1.20 

0.60 

1.40 

0-00 

0.00 

1.00 

1.00 

0.90 

1.10 

-0.6931 

0.557 

3 

0.00 

0.00  -0.07214  0.00  0.00 

'NBM3'  1 0.00  0.00  0.00  0.355475  0.00  0.00 

'SINl'  2 0.027374  0.000451  0.001621  0.082116  0.205288  0.005789 

'AEROl'  3 0.00  0.00  0.00  0.07179  0.00  0.00 

3640. 

2 

85. 

2.30 

0.00025 

50. 
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5 

29000000.  8.8E-06  0.30 

0.615  2.00 

0.693  4.80 

0.753  7.20 

0.813  9.60 

0.873  12.50 

0.933  15.80 

0.993  20.00 

1.029  24.00 

1.053  30.00 

1.053  200.00 

6 

21.95  0.001 

55.77  0.002 

144.85  0.005 

322.73  0.010 

1945.90  0.050 

50688.0  0.660 

'400F  316L  WELDED,  FROM  Rkd' 
27000  80.0  3 4 

4.0317  1.070  0.16327 

16  0.90 

9.183E-10  2.56 

1.138E--8  2.69 

3.362E-8  2.82 

8.473E-8  3.00 

4.408E-8  3.33 

5.838E-8  3.53 

5.679E-8  3.74 

7.220E-8  3.95 

8.202E-8  4.18 

7.440E-8  4.42 

9.028E-8  4.67 

1.133E-7  4.94 

1.533E-7  5.22 

1.629E-7  5.51 

1.727E-7  5.81 

2.321E-7  5.99 

18  0.70 

4.661E-9  3.58 

2.469E-8  3.80 

1.387E-7  4.49 

1.162E-7  4.88 

1.631E-7  5.28 

1.539E-7  5.74 

1.562E-7  6.24 

1.839E-7  6.77 

2.089E-7  7.35 

3.497E-7  7.99 
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2.949E-7 

9.37 

3.848E-7 

10.15 

6.968E-7 

11.91 

8.980E-7 

12.87 

l.lllE-6 

13.89 

1.380E-6 

15.00 

2.790E-6 

17.49 

3.901E-6 

18.17 

17  0.16 

1.775E-7 

9.10 

1.969E-7 

9.91 

2.454E-7 

10.79 

2.543E-7 

11.78 

4.050E-7 

12.83 

5.355E-7 

13.96 

7.369E-7 

15.20 

1.058E-6 

16.53 

2.008E-6 

18.00 

2.650E-6 

19.56 

4.238E-6 

21.24 

5.679E-6 

23.11 

8.308E-6 

25.07 

9.687E-6 

27.33 

1.649E-5 

32.96 

2.335E«5 

38.56 

3.304E-5 

45.07 

Input  File  - NBM3 

0.862955457680720 

0.981515081918201 

1.03346865031769 

1.10476309499562 

1.32048639932450 


Input  File  - SIN1 

-0.976676043502130 

-0.931062212127054 

-0.862522537797772 

-0.772744694860142 

-0.663939311885647 


Input  File  - AER01 

-0.870754448952271 

-0.953457959513392 


-0.848940797977113 

-0.820263214683910 

-0.395816489110529 


Output  File  - CRKRES 

Copyright  (C)  1991,  California  Institute  of  Technology.  U.S.  Government 
Sponsorship  under  NASA  Contract  NAS7-918  is  acknowledged. 


P R O C R K 
INPUT  DATA 


DRIVERS  PARAMETER  DISTRIBUTIONS 


RHO  THETA 


WELD  OFFSET  (%) 

Be(0.06,  0.06) 

U(0. 00000, 

0.00000) 

U( 

o 

• 

O 

0.0) 

Be(0.00,  0.00) 
TEST  = 1.00 

U(0. 00000, 

0.00000) 

U( 

0.0, 

0.0) 

INNER  DIAMETER 

Be(0.1885,  0.1915) 

U(0. 50000, 

0.50000) 

U( 

0.5, 

20.0) 

WALL  THICKNESS 

Be(0.0113,  0.0157) 

U(0. 27273, 

0.27273) 

U{ 

in 

. 

o 

20.0) 

CRACK  SHAPE  A/C 

Be(0.2000,  1.0000) 

U(0. 50000, 

0.50000) 

U( 

o 

• 

o 

0.0) 

CRACK  SIZE  A 

Be(0.0050,  0.0050) 

U(0. 00000, 

0.00000) 

U( 

o 

• 

o 

0.0) 

LAMBDA  RANDOM  k:  U(2. 00000,  2.00000) 

COEFFICIENT  OF  VARIATION;  0.150 
STRAIN  GAGE  FACTOR:  1.0000000 

LAMBDA  SINE  k:  U(2. 00000,  2.00000) 

COEFFICIENT  OF  VARIATION:  0.200 
STRAIN  GAGE  FACTOR:  1.0000000 


INNER 

TEMPERATURE 

NORMAL: 

MU( 

486.0, 

666.0) 

SIGMA ( 

29.0, 

56.5) 

OUTER 

TEMPERATURE 

NORMAL: 

MU( 

799.0, 

908.0) 

SIGMA ( 

49.5, 

48.0) 

INNER 

PRESSURE 

NORMAL: 

MU(3808.0, 

4177.0) 

SIGMA ( 

69.0, 

69.0) 
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WELD  OFFSET  K FAC 
DYN  AERO  LOAD  FAC 
STAT  AERO  LOAD  FAC 
AERO  STR  ANAL  FAC 
DYN  STR  ANAL  FAC 
NEUBERS  RULE 
LAMBDA  Kth 
LAMBDA  Kc 
K CALC  FAC 
GROWTH  CALC  FAC 


U( 

0.80000, 

1.20000) 

U( 

0.50000, 

1.50000) 

U( 

0.80000, 

1.20000) 

U( 

0.90000, 

1.10000) 

U( 

0.80000, 

1.20000) 

U( 

0.60000, 

1.40000) 

U( 

0.00000, 

0.00000) 

U( 

1.00000, 

1.00000) 

U( 

0.90000, 

1.10000) 

U(- 

-0.69310, 

0.55700) 

INPUT 


P LOADS 

STATIC  AERO 
0.000000 
NBM3 
0.000000 
SINl 
0.027374 
AEROl 
0.000000 


T LOADS 

O.OOOE+00 

O.OOOE+00 

0.451E-03 

O.OOOE+00 


LOADS 

M2  LOADS 

-.721E-01 

O.OOOE+00 

0.162E-02 

O.OOOE+00 


M3  LOADS 

O.OOOE+00 

0.355E+00 

0.821E-01 

0.718E-01 


V2  LOADS 

O.OOOE+00 

O.OOOE+00 

0.205E+00 

O.OOOE+00 


V3  LOADS 

O.OOOE+00 

O.OOOE+00 

0.579E-02 

O.OOOE+00 


MISCELLANEOUS  INPUT 


EXTERNAL  PRESSURE 
ANALYSIS  LOCATICW 
ANGLE  THETA  (DEGREES) 
WILLENBORG  OVERLOAD  FACTOR 


3640. 

2 

85.0 

0.23000E+01 
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STRESS-TIME  HISTORY  PERIOD 


0.00025 


STRESS-TIME  HISTORY  NOISE  FILTER 
NUMBER  OF  TIME-VARYING  LOADS 
NUMBER  OF  POINTS  IN  HISTORIES 

ELASTIC  MODULUS 

COEFF  OF  THERMAL  EXPANSION 

POISSONS  RATIO 

Fk  VS.  Rt  CURVE  INPUT 
Fk  Rt 


0,62 

2.00 

0,69 

4.80 

0.75 

7.20 

0.81 

9.60 

0.87 

12.50 

0.93 

15,80 

0.99 

20.00 

1.03 

24.00 

1.05 

30.00 

1.05 

200.00 

STRESS-STRAIN  CURVE  INPUT 

MAXIMUM  NUMBER  OF  SEGMENTS  6 


50.0 

3 

5 

0.290E+08 

0.87999997E-05 

0.300 
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.IN  PRODUCT 

STRAIN  VALUES 

21.95 

0.00100 

55.77 

0.00200 

144.85 

0.00500 

322.73 

0.01000 

1945.90 

0.05000 

50688.00 

0.66000 

MATERIAL  INPUT 


DESCRIPTI<»J : 4 OOF  316L  WELDED,  FROM  Rkd 


YIELD  STRENGTH  27000. 

CRITICAL  S I F 80. 

NUMBER  OF  DIVISIONS  3 

REGRESSION  OPTION  4 


THRESHOLD  MODEL  DESCRIPTION 

DKTHO  = 0.40317E+01 

Co  = 0.10700E+01 

d = 0.16327E+00 


STRESS  RATIO  R = 0.90 


da/dN 

0.91830E-09 

0.11380E-07 

0.33620E-07 

0.84730E-07 

0.44080E-07 

0.58380E-07 

0.56790E-07 


DELK 

0.25600E+01 

0.26900E+01 

0.28200E+01 

0.30000E+01 

0.33300E+01 

0.35300E+01 

0.37400E+01 
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0.72200E-07 

0.39500E+01 

0.82020E-07 

0,41800E+01 

0,74400E-07 

0.44200E+01 

0.90280E-07 

0.46700E+01 

0,11330E-06 

0.49400E+01 

0.15330E-06 

0.52200E+01 

0.16290E-06 

0.55100E+01 

0.17270E-06 

0.58100E+01 

0.23210E-06 

0.59900E+01 

STRESS  RATIO 

R = 0.70 

da/dN 

DELK 

0.46610E-08 

0.35800E+01 

0.24690E-07 

0.38000E+01 

0.13870E-06 

0.44900E+01 

0.11620E-06 

0.48800E+01 

0.16310E-06 

0.52800E+01 

0.15390E-06 

0.57400E+01 

0.15620E-06 

0.62400E+01 

0.18390E-06 

0.67700E+01 

0,20890E-06 

0.73500E+01 

0.34970E-06 

0.79900E+01 

0.29490E-06 

0.93700E+01 

0.38480E-06 

0.10150E+02 

0.69680E-06 

0.11910E+02 

0.89800E-06 

0.12870E+02 

O.llllOE-05 

0.13890E+02 

0.13800E-05 

0.15000E+02 

0.27900E-05 

0.17490E+02 

0.39010E«05 

0.18170E+02 

STRESS  RATIO 

R = 0.16 

da/dN 

DELK 

0.17750E-06 

0.91000E+01 

0.19690E-06 

0.99100E+01 

0.24540E-06 

0.10790E+02 

0.25430E-06 

0.11780E+02 

0.40500E-06 

0.12830E+02 

0.53550E-06 

0.13960E+02 

0.73690E-06 

0.15200E+02 

0.10580E-05 

0.16530E+02 

0.20080E-05 

0.18000E+02 

0.26500E-05 

0.19560E+02 

0.42380E-05 

0.21240E+02 

0.56790E-05 

0.23110E+02 

0.83080E-05 

0.25070E+02 
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0.96870E-05 

0.16490E-04 

0.23350E-04 

0.33040E--04 


0.27330E+02 

0.32960E+02 

0.38560E+02 

0.45070E+02 


REGRESSION  OUTCOME 


C 


n 


m 


P 


q 


0.56708E-11 


0.25314E+01  -0.19413E+01  0.71522E+00  -0.81965E+00 


SIMULATION  OUTPUT 


SHORTEST  1%  OF  CRACK  GROWTH  LIVES 
LIFE 

0,30110E+06 

0.37117E+06 

0.42265E+06 

0.44193E+06 

0.44601E+06 

0.49042E+06 

0,49447E+06 

0.49949E+06 

0.50079E+06 

0.50608E+06 


B LIVES : EMPIRICAL 


0*00100  0*30110E+06 
0.00500  0.44601E+06 
0,01000  0.50608E+06 


Output  File  - lOUTPR 

PROBLEM  TYPE  (HEX  COIL  = 1,  EXHEX  = 2)  = 1 

FORMAN  EQUATION  WITH  m (CONST  = 1,  VARY  * 2)  = 1 

RANDOM  NUMBER  SEED  = 675.000000000000 

lOUT  - OUTPUT  CONTROL  VARIABLE  = 0 
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INNER  LOOP  SIZE  = 
OUTER  LOOP  SIZE  = 
RETARDATION  SWITCH  (0  - NO,  1 - YES)  = 
NEUBER  SWITCH  (0  - NO,  1 - YES) 


Output  File  - LOWLIF 


1 

O.lOOOOOE-02 

301098, 

2 

0.200000E-02 

371174. 

3 

0.300000E-02 

422653. 

4 

0.400000E-02 

441930. 

5 

0.500000E-02 

446013. 

6 

0.600000E-02 

490422. 

7 

0.700000E-02 

494468. 

8 

0.800000E-02 

499490. 

9 

0.900000E-02 

500786. 

10 

O.lOOOOOE-01 

506082. 

1 

1000 

1 

1 


6.1.6  Error  Messages  and  Possible  Remedies 

The  following  messages,  when  applicable,  will  appear  in  file  lOUTPR.  An  error 
message  stating  that  a limit  has  been  exceeded  will  require  that  the  user  increase 
those  limits,  as  directed,  and  reviewing  or  consulting  Section  7.1  is  desirable.  The 
messages  are  listed  in  alphabetical  order  for  the  convenience  of  the  user. 

ERROR:  CANNOT  OPEN  FILE,  ’filename’  DOES  NOT  EXIST 

Fatal  PROCRK  attempted  to  open  the  indicated  file,  however  the  file  did  not 
exist.  Check  the  directory  for  existence  of  the  file  and  also  check  file 
CRKDAT  for  correct  spelling  of  the  filename. 

ERROR:  INVALID  FORMAN  EQUATION  SPECIFICATION 

Fatal  KGROW  can  only  have  integer  values  of  1 or  2.  Check  file  CRKDAT 
for  the  value  used. 

ERROR:  INVALID  LOCATION  SPECIFICATION 

Fatal  LOCAT  can  only  have  the  integer  value  of  1 or  2.  Check  file  CRKDAT 

for  the  value  used. 

ERROR:  INVALID  NEUBER’S  RULE  SWITCH  SPECIFICATION 

Fatal  INEUB  can  only  have  integer  values  of  0 or  1 . Check  file  CRKDAT  for 
the  value  used. 
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ERROR:  INVALID  PROBLEM  TYPE  SPECIFICATION 

Fatal  KPROB  can  only  have  integer  values  of  0 or  1 . Check  file  CRKDAT  for 
the  value  used. 

ERROR;  INVALID  REGRESSION  OPTION  SPECIFICATION 

Fafa/  IREGOP  can  only  have  integer  values  of  0, 1 , 2,  3,  or  4.  Check  file 
CRKDAT  for  the  value  used. 

ERROR;  INVALID  RETARDATION  SWITCH  SPECIFICATION 

Fatal  I RET  can  only  have  integer  values  of  0 or  1 . Check  file  CRKDAT  for 

the  value  used. 


ERROR:  LOAD  INCORRECTLY  TYPED 

Fatal  TYPE(I)  can  only  have  the  integer  value  of  1,  2,  or  3.  Check  file 
CRKDAT  for  the  value  used. 

ERROR.  NUMBER  OF  GROWTH  RATE  DATA  POINTS  PER  DIVISION  EXCEEDED 
rnaterials  characterization  model  cannot  accept  more  than  200 
aa/dN  vs.  AK  points  in  any  data  division.  It  is  suggested  that  the  number  of 
data  points  in  each  division  be  recounted.  If  more  than  200  points  is 

desired,  the  parameter  MAXDAT  must  be  increased.  Refer  to  Section  7 1 
for  the  routines  involved. 


ERROR:  STRESS-TIME  HISTORY  TOO  LARGE 

Fatal  No  more  than  20,000  points  is  allowed  for  a reference  time  history,  and 
an  attempt  has  been  made  to  use  a larger  history.  Check  file  CRKDAT  for  a 
value  of  NRAN  larger  than  20,000. 


KGT  Kcr  ATA  = ’A(I)’ 

Warning  This  is  information  to  the  user  that  the  stress  intensity  factor  K ex- 
ceeded the  critical  value  Kc  at  crack  length  A(1),  during  block  growth  cal- 
culation, for  a draw  in  the  simulation. 


NO  GROWTH  AT  'J’th  CRACK  LENGTH 

Warning  This  is  information  to  the  user  that  there  was  no  growth  at  the  Jth 
crack  length,  during  block  growth  calculation,  for  a draw  in  the  simulation. 

NO  GROWTH  IN  A DIRECTION  AT  ’J’th  CRACK  LENGTH 

Warning  This  is  information  to  the  user  that  there  was  no  growth  in  the  ’a’ 
direction  at  the  Jth  crack  length,  during  block  growth  calculation  for  a draw 
in  the  simulation. 
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PROGRAM  EXECUTION  TERMINATED 

Fatal  This  message  is  produced  by  routine  TRMNAT  and  follows  all  other 

fatal  messages. 

6.1 .7  Summary  of  Input/Output  Files 

Input  Files 

CRKDAT 

This  file  is  opened  in  PROCRK.  It  contains  all  parameters  for  the  run  options; 
driver  distributions;  engineering  analysis  parameters;  and  the  materials  input,  in- 
cluding da/dN  vs.  AK  data  points. 

User  Specified  

These  are  the  reference  time  history  files  and  are  opened  in  PROCRK.  They  con- 
tain the  time  histories  generated  by  program  NBSIN. 

Output  Files 

This  file  is  opened  in  PROCRK.  It  contains  the  echo  of  the  informatiori  contained  in 
CRKDAT.  and  provides  the  simulated  failure  distribution  B-life  information. 

lOUTPR  

This  file  is  opened  in  PROCRK.  It  contains  information  on  the  particular  run  that  is 
not  echoed  to  CRKRES  and  the  data  dump  provided  when  the  variable  lOUT  is 
equal  to  15  (Monte  Carlo  simulation  and  driver  transformation  calculations),  20 
(crack  growth  calculations),  25  (stress  analysis  calculations),  or  30  (rainflow  cycle 
counting). 

LOWLIF 

This  file  is  opened  in  PROCRK.  It  contains  the  lowest  one  percent  of  the  calcu- 
lated lives  used  by  the  software  described  in  Section  4.2  of  [1]  to  calculate  a,  p, 
and  6,  the  parameters  of  the  Bayesian  prior  failure  distribution. 


® A B-life  is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  specified 
as  a percent;  e.g.,  B.l  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 


Section  6.2 

Low  Cycle  Fatigue  Analysis  User’s  Guide 


6.2.1  BLDLCF  Program 

A user’s  guide  for  running  the  low  cycle  fatigue  (LCF)  analysis  code  BLDLCF  is 
given  here.  The  LCF  analysis  for  the  blade  is  discussed  in  Section  3,  the  program 
description  and  flowcharts  are  presented  in  Section  5.2,  and  the  code  structure 
and  listing  are  provided  in  Section  7.2. 

The  BLDLCF  program  was  used  to  analyze  the  low  cycle  fatigue  failure  of  the 
ATD-HPFTP  first  stage  turbine  blade.  The  output  of  BLDLCF  includes  the  simu- 
lated B-lives  and  a list  of  the  lowest  one  percent  of  lives.  The  list  of  lives  may  be 
used  as  input  to  the  regression  programs  of  [1],  Section  4.2,  to  compute  the 
parameters  of  the  Bayesian  prior  failure  distribution.  This  prior  distribution  and  the 
success/failure  data  are  used  as  input  to  the  Bayesian  updating  program  BAYES 
to  obtain  a posterior  failure  distribution.  Program  Bayes  is  described  in  Section  4 3 
of  [1]. 

6.2.2  How  to  Use  Program  BLDLCF 

The  program  BLDLCF  is  intended  to  be  run  in  batch  (i.e.,  background)  mode. 
BLDLCF  requires  two  input  data  files:  BLDLCD  and  RELATD.  The  materials  char- 
acterization model  portion  of  the  program  requires  both  files  for  all  runs,  even 
when  no  related  S/N  data  is  used.  The  file  BLDLCD  contains  the  analysis  control 
parameters,  driver  distributions,  engineering  analysis  parameters,  and  specific  and 
exogenous  materials  information.  The  file  RELATD  contains  the  related  materials 
information.  A complete  description  of  the  input  data  for  the  BLDLCD  and  RELATD 
data  files  is  given  in  Section  6.2.3. 

The  results  from  the  BLDLCF  program  are  written  to  five  output  files:  BLDLCO, 
RELATO,  DUMP,  lOUTPR,  and  LOWLIF.  BLDLCO  contains  the  echo  of  the  informa- 
tion in  BLDLCD  and  the  results  of  the  simulation.  RELATO  contains  the  echo  of 
the  information  in  RELATD  on  the  related  materials  data.  The  results  of  the 
materials  characterization  calculations  are  primarily  given  in  DUMP  These  calcula- 
tions include  point  and  interval  estimates  for  S/N  curve  parameters  m and  C, 
posterior  credibility  ranges  for  m,  and  an  estimate  of  the  median  S/N  curve.  File 
lOUTPR  contains  an  echo  of  the  analysis  parameters  and,  if  requested,  a dump  of 
intermediate  calculations.  If  the  program  terminates  prematurely,  an  error  mes- 
sage will  be  printed  in  the  lOUTPR  file.  A list  of  error  messages  and  possible 
remedies  for  the  problems  is  given  in  Section  6.2.6.  LOWLIF  contains  the  first  one 
percent  of  the  lives  of  the  simulated  failure  distribution. 


6-47 


1 f.t.  I ‘ ) , ■ 


RReaEWrif.  j-vscir  !>LANK  not  FH-MffD 


6.2.3  Description  of  Input  Data  Files 

Annotated  examples  of  the  complete  data  file  format  structure  for  BLDLCD  and 
RELATD  are  presented  in  Figures  6.2-1  and  6.2-2,  respectively.  The  data  lines  of 
the  input  files  are  given  in  boxes,  with  a description  of  each  data  line  located  ad- 
jacent to  each  box.  The  specific  input  parameters  of  Figures  6.2-1  and  6.2-2  are  in- 
dividually defined  in  Sections  6.2.3. 1 and  6.2.3.2.  Input  parameter  values  given  in 
Figures  6.2-1  and  6.2-2  are  not  necessarily  those  used  in  the  application  case 
study  of  Section  3.3. 

The  input  data  is  read  by  free  format  statements  from  files  BLDLCD  and 
RELATD.  Thus,  the  numbers  may  be  provided  sequentially  on  a line  up  to  80  char- 
acters in  length,  with  each  number  separated  by  a blank  character  or  comma. 

Each  number  may  also  be  on  a separate  line  in  the  file.  However,  it  is  recom- 
mended that  the  input  format  suggested  in  Figures  6.2-1  and  6.2-2  be  followed 
whenever  possible. 

6.2.3.1  Input  File  BLDLCD 

The  required  data  for  the  BLDLCD  file  is  divided  into  the  four  blocks  shown  in 
Figure  6.2-3:  analysis  parameters,  driver  information,  load  and  geometry,  and 
materials  information.  The  analysis  parameters  block  contains  the  analysis 
parameters  and  the  keys  to  select  the  program  options.  The  driver  information 
block  contains  the  parameters  that  define  the  driver  distributions.  The  parametric 
sensitivity  information,  the  nominal  strains,  and  reference  time  history  are  given  in 
the  load  and  geometry  block.  The  materials  information  block  contains  the 
specific  material  S/N  data  including  the  yield  and  ultimate  strengths,  strain  ratio, 
the  S/N  data  points,  life  region  boundaries,  and  materials  characterization  model 
parameter  constraints. 

The  input  parameters  are  described  below  by  using  the  following  convention: 
the  input  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the  variable 
types  are  specified  as  character  [CHR],  integer  [INT],  real  [RE],  and  double 
precision  real  [DRE] ; the  function  of  the  variable  is  underlined  and  followed  by  a 
description  and  a list  of  options,  when  appropriate:  the  program  and  file  names  are 
indicated  by  UPPERCASE  letters.  A consistent  set  of  units  is  given  in  parentheses 
for  specifying  dimension,  load,  and  strain  input  parameters.  All  character  strings 
must  be  enclosed  by  ’single  quotes’.  The  user  is  reminded  about  the  difference 
between  the  number  “0”  and  the  letter  “O”  when  preparing  the  input  files. 
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Random  number  seed 

Value  of  output  dump  controller 

Inner  loop  size 

Outer  loop  size 

Symmetry  number 

Type  of  S/N  variation 

Request  for  truncated  Normal  median  S/N  curve 
Controls  materials  process  variation 
Type  of  materials  intrinsic  variation 
Number  of  B-lives 


Decimal  equivalent  of  percentages  for  B-lives 


1 0.0001 

0.0005  0.001  0.005  0.01  1 

Beta  distribution  on  hgg^ 

, information 

1 676. 

2730. 

0.50 

0.50 

0.0 

0.0 

Beta  distribution  on 

, information 

1 782. 

1982. 

0.50 

0.50 

0.0 

0.0  1 

Beta  distribution  on  m information 

1 2730. 

2730. 

0.50 

0.50 

0.0 

0.0  1 

Beta  distribution  on  Aq  information 

1 0.5 

1.5 

0.50 

0.50 

0.0 

0.0  1 

675 

0 

1 

20000 

50 

2 

0 

0 

1 

5 


Time  indices  of  strain  time  history  defining  steady  state  conditions  with  stochastic  rotor  speed  given  by 
the  included  Normal  distribution  information 


I 5 37592.  50?!  | 


0.0 

0.020 

1640.0 

40.67 

0.0 

0.003 

0.0 

0.003 

0.96 

1.04 

0.80 

1.20 

0.975 

1.025 

0.70 

1.30 

0.00 

0.00 

0.00 

0.00 

Normal  distribution  on  e/^  information 
Normal  distribution  on  information 
Normal  distribution  on  e^  information 
Uniform  distribution  bounds  for  eg 
Uniform  distribution  bounds  for  Ap 
Uniform  distribution  bounds  ^otXma 
Uniform  distribution  bounds  for 
Uniform  distribution  bounds  for  Af^ 
Uniform  distribution  bounds  for  A^/g^ 
Uniform  distribution  bounds  ior Xjmf 


Figure  6.2-1  Format  for  File  BLOLCD 
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Nominal  mechanical  strain  and  corresponding  rotor  speed  co^ 
Period  of  reference  time  history  (missions) 

Noise  filter  (%) 

Number  of  points  in  nominal  time  history 
Walker  exponent  w 


Coefficients  for  the  start  transient  response  surface  function 


1 0.00727362 

0.000067442 

-0.000059109 

-3.52929E-08  1 .0761 1 E-08 

-2.7441 9E-08  1 

Coefficients  for  the  shutdown  transient  response  surface  functions  fQ2,  and 

-0.132623 

0.20 

30523.07 

0.000227427 

950.0 

-21846.15 

-0.000059290 

0.0  0.0 

4.71714E-08 

^Os)-  ^th(W 

Description  of  specific  material  S/N  data  set 
I ’RT  PWA  1480.  001  DIRECTION’  I 

Specific  materials  information:  yield  and  ultimate  strengths,  number  of  data  divisions,  and  total  number 
of  points  in  data  set 

I 1.54  1.57  1 9 "I 

Specific  materials  information  for  each  data  division;  number  of  points  in  data  division,  strain  ratio,  and 
life  region 


Nominal  time  history 


225.8 

0.0 

3025.1 

-0.196921 

6138.8 

0.146025 

8309.0 

-0.200128 

0.0 

0.007393 

0.295 

38482. 

1.0 

0.0 

6 

0.50 

1 


Figure  6.2-1 


Format  for  File  BLDLCD  (Cont’d) 


0.89 

6800. 

0.89 

15000. 

0.67 

27000. 

0.67 

43200. 

0.56 

139300. 

0.56 

545200. 

0.56 

147000. 

0.39 

4344800. 

1.57 

1 

0 

5000. 

1.0E  + 36 

0.00 

0 

0.000  0.000 

£2-  ^2 

^3,^3 

£4.^4 

^5’  ^5 
^6’ ^6 
e,,N7 

^B’  ^8 

Strain  tensile  point 

Number  of  life  regions  with  and  without  data 

Life  boundary  of  region  0 

Life  boundary  of  region  1 

C constraint 

Prior  information  on  m 


Bayesian  prior  distribution  information 


0.00  I Materials  process  variation  information 


Figure  6.2-1  Format  for  File  BLDLCD  (Cont’d) 
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m Number  of  related  data  sets 

I TITANIUM,  -423F,  0,14Fe'~l  Description  of  related  material  S/N  data  set 

Related  materials  information:  yield  and  ultimate  strengths,  number  of  data  divisions,  and  total  number 
of  points  in  data  set 

\ 201700.  215300.  2 10  I 


Related  materials  information  for  data  division  1 : number  of  points  in  data  division,  stress  ratio,  and  life 
region 


I 4 0.10  1 I 


140000. 

38000. 

130000. 

30000. 

130000. 

713000. 

130000. 

310000. 

6 0.10 

2 

120000. 

72000. 

110000. 

3224000. 

100000. 

910000. 

100000. 

3230000. 

120000. 

665000. 

110000. 

56000. 

Si,  Ni 

Sg,  Wg 

53,  A/3 

54,  /V4 

# points  in  division  2,  stress  ratio,  region 

55,  A/5 

Sg.  A/g 

S7.  Nj 
Sq.  Nq 
Sg.  A/g 
Sio-  A/10 


Figure  6.2-2  Format  for  File  RELATD 


Figure  6.2-3  Data  Blocks  for  Input  File 
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Analysis  Parameters  Block 


RAND 

[DRE] 

Random  number  seed 

Needed  by  BLDLCF’s  built-in  random  number  generator, 

lOUT 

[INT] 

Output  dump  controller 

BLDLCF  has  the  ability  to  write  intermediate  calculations  to  file  lOUTPR.  The  fol- 
lowing integer  values  control  the  “dump”  of  BLDLCF’s  calculations. 

lOUT  =0  no  intermediate  calculation  output 
lOUT  = 10  materials  characterization  model  calculations 
lOUT  =15  driver  sampling  and  driver  transformation  calculations 
lOUT  = 20  rainflow  cycle  counting  and  damage  accumulation 

NLIFE 

[INT] 

Inner  loop  number 

Size  of  the  inner  loop  of  the  Monte  Carlo  (MC)  simulation.  A positive  value  is  re- 
quired. 

NHYPER 

[INT] 

Outer  loop  number 

Size  of  the  outer  loop  of  the  MC  simulation.  The  program  requires  a positive  value. 

NSYM 

[INT] 

Symmetry  number 

The  number  of  modeling  units  in  the  component.  A positive  value  is  required. 

VARY 

[INT] 
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Type  of  S/N  variation^ 

Controls  the  type  of  stochastic  variation  to  be  included  in  the  materials  charac- 
terization model  S/N  curve. 


VARY  =0  no  variation  will  be  Included 


VARY  = 1 
VARY  = 2 

VARY  = 3 

VARY  = 4 


allows  only  intrinsic  matericils  variation 

allows  Uniform  variation  of  the  materials  model  shape  parameter  m 
and  intrinsic  materials  variation 

allows  truncated  Normal  variation  of  the  materials  model  shape 
parameter  m and  Intrinsic  materials  variation 

allows  the  variation  in  the  materials  rrKXlel  shape  parameter  /n  to  be 
“bootstrapped”^ 


NMED 

[INT] 

Request  for  truncated  Normal  median  S/N  curve^ 

If  VARY  = 3,  then  NMED  controls  the  calculation  of  the  empirical  median  S/N 
curve. 

NMED  =0  no  median  curve  calculation  is  required 
NMED  = 1 median  calculation  is  required 

MPROC 

[INT] 

Controls  materials  process  variation 

Controls  the  inclusion  of  materials  process  variation  (heat-to-heat  variation). 
Process  variation  in  materials  is  discussed  in  [1],  Section  2. 1.2.3. 

MPROC  =0  no  variation  to  be  included 
MPROC  = 1 variation  is  to  be  included 


VARPHI 

[INT] 


^ A discussion  of  the  possible  stochastic  specifications  of  the  materials  model  shape  parameter 
m is  given  in  [1],  Pages  2-13  through  2-14. 

^ This  option  is  only  available  with  program  BLDLCF  V3.4B1.2. 

® The  median  S/N  curve  for  the  truncated  Normal  distribution  is  discussed  in  [1],  Page  2-15. 
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Type  of  intrinsic  materials  variation 

Controls  the  type  of  intrinsic  materials  variation  to  be  included  in  the  materials  char- 
acterization model  S/N  curve.  VARPHI  is  not  required  if  running  program  BLDLCF 
V3.4B1.2. 

VARPHI  = 1 Weibull  intrinsic  materials  variation  will  be  included 
VARPHI  = 2 Lognormal  intrinsic  materials  variation  will  be  included 

NBLIFE 

[INT] 

Number  of  B-lives 

The  number  of  B-lives  to  be  provided  from  the  simulated  distribution  of  life.  A B-life 
is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  specified 
as  a percentage;  e.g.,  B.1  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 
NBLIFE  must  be  non-negative  and  cannot  exceed  10. 

BLFPER(I)  BLFPER(2)  ...  BLFPER(NBLIFE) 

[RE]  [RE]  [RE] 

B-life  percentages 

The  decimal  equivalent  of  the  percentages  at  which  the  B-lives  are  required;  e.g.,  If 
the  B.1  life  is  desired,  then  BLFPER  = 0.001.  A total  of  NBLIFE  percentages 
must  be  provided.  The  percentage  cannot  exceed  50%  (BLFPER  < 0.50). 

Driver  Information  Biock 


HGASA  HGASB  HGASR1  HGASR2  HGAST1  HGAST2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  hgas  information 

hggs  in  Equation  3-2,  is  the  hot  gas  film  coefficient  at  the  start,  and  it  is  charac- 
terized by  a Beta  probability  distribution.  See  [1],  Section  2.1.3.1  and  Equation  2- 
54,  for  specifying  parameters  to  define  a Beta  driver  distribution.  The  Beta 
distribution  format  consists  of  six  parameters.  The  first  two  parameters  are  the 
lower  and  upper  bounds,  respectively,  for  hg^^-  The  next  two  parameters  are  the 
lower  and  upper  bounds  for  a Uniform  distribution  on  p.  Similarly,  the  last  two 
parameters  describe  a Uniform  distribution  on  6. 

HGASA  lower  bound  of  the  Beta  distribution  on  hg^g 

HGASB  upper  bound  of  the  Beta  distribution  on  hg^g 
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HGASR1 

HGASR2 

HGAST1 

HGAST2 


Uniform  distribution  lower  bound  of  parameter /a  in  the  Beta  distribu- 
tion of  hgas 


Uniform  distribution  upper  bound  of  parameter/?  in  the  Beta  distribu- 
tion of  hga^ 


Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta  distribu- 
tion of  hga* 

Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta  distribu- 
tion of  hgaa 


TGASA  TGASB  TGASR1  TGASR2  TGAST1  TGAST2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 


Beta  distribution  on  information 

Tggg  in  Equation  3-2,  is  the  hot  gas  temperature  at  the  start,  and  it  is  characterized 
by  a Beta  probability  distribution.  See  [1],  Section  2. 1.3.1  and  Equation  2-54,  for 
specifying  parameters  to  define  a Beta  driver  distribution.  The  Beta  distribution  for- 
mat consists  of  six  parameters.  The  first  two  parameters  are  the  lower  and  upper 
bounds,  respectively,  for  Tg^^-  The  next  two  parameters  are  the  lower  and  upper 
bounds  for  a Uniform  distribution  on  p.  Similarly,  the  last  two  parameters  describe 
a Uniform  distribution  on  6. 


TGASA 

TGASB 

TGASR1 

TGASR2 

TGAST1 

TGAST2 


lower  bound  of  the  Beta  distribution  on  Tg^g 

upper  bound  of  the  Beta  distribution  on  Tg^g 

Uniform  distribution  lower  bound  of  parameter/?  in  the  Beta  distribu- 
tion of  Tggg 

Uniform  distribution  upper  bound  of  parameterp  in  the  Beta  distribu- 
tion of  Tggg 

Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta  distribu- 
tion of  Tggg 

Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta  distribu- 
tion of  Tggg 


SLOPEA  SLOPES  SLOPR1  SLOPR2  SLOPT1  SLOPT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  m information 

m (°R/sec)  in  Equation  3-3,  is  the  deceleration  slope  at  shutdown,  and  it  is  charac- 
terized by  a Beta  probability  distribution.  See  [1],  Section  2.1.3.1  and  Equation 
2-54,  for  specifying  parameters  to  define  a Beta  driver  distribution.  The  Beta  dis- 
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tribution  format  consists  of  six  parameters.  The  first  two  parameters  are  the  lower 
and  upper  bounds,  respectively,  for  m.  The  next  two  parameters  are  the  lower  and 
upper  bounds  for  a Uniform  distribution  on  p.  Similarly,  the  last  two  parameters 
describe  a Uniform  distribution  on  d. 

SLOPEA  lower  bound  of  the  Beta  distribution  on  m 

SLOPES  upper  bound  of  the  Beta  distribution  on  m 

SLOPR1  Uniform  distribution  lower  bound  of  parameter^  in  the  Beta  distribu- 

tion of  m 

SLOPR2  Uniform  distribution  upper  bound  of  parameter in  the  Beta  distribu- 
tion of  m 

SLOPT 1 Uniform  distribution  lower  bound  of  parameter  G in  the  Beta  distribu- 

tion of  m 

SLOPT2  Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta  distribu- 

tion of  m 

LAMGA  LAMGB  LAMGR1  LAMGR2  LAMGT1  LAMGT2 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Beta  distribution  on  Aq  information 

Aq  in  Equation  3-4,  is  the  thermal  strain  uncertainty  factor  due  to  gas  temperature 
variation  during  the  start  transient,  and  it  is  characterized  by  a Beta  probability  dis- 
tribution. See  [1],  Section  2. 1.3.1  and  Equation  2-54,  for  specifying  parameters  to 
define  a Beta  driver  distribution.  The  Beta  distribution  format  consists  of  six 
parameters.  The  first  two  parameters  are  the  lower  and  upper  bounds,  respective- 
ly, for  Aq.  The  next  two  parameters  are  the  lower  and  upper  bounds  for  a Uniform 
distribution  onp.  Similarly,  the  last  two  parameters  describe  a Uniform  distribution 
on  0. 

LAMGA  lower  bound  of  Beta  distribution  on  .Iq 

LAMGB  upper  bound  of  Beta  distribution  on  Aq 

LAMGR1  Uniform  distribution  lower  bound  of  parameter  p in  the  Beta  distribu- 

tion of  Aq 

LAMGR2  Uniform  distribution  upper  bound  of  parameter p in  the  Beta  distribu- 
tion of  Aq 

LAMGT 1 Uniform  distribution  lower  bound  of  parameter  6 in  the  Beta  distribu- 

tion of  Aq 

LAMGT2  Uniform  distribution  upper  bound  of  parameter  6 in  the  Beta  distribu- 
tion of  Aq 
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TSUBI  SPDMU  SPDSIG 

[INT]  [RE]  [RE] 

Rotational  speed  Normal  distribution  information 

The  steady  state  rotational  speed  is  characterized  by  a Normal(u,  a^)  distribution. 
The  mean,  /i,  is  equal  to  the  expected  operating  speed  of  the  turbopump,  and  the 
standard  deviation,  o,  is  obtained  from  the  engine  performance  balance.  Both  the 
mean  and  standard  deviation  are  in  rpm. 

TSUBI  time  index  for  strain  time  history  for  which  distribution  on  steady  state 

speed  is  valid 

SPDMU  mean,  fi,  of  Normally  distributed  steady  state  speed 

SPDSIG  standard  deviation,  a,  of  Normally  distributed  steady  state  speed 


FAERRM  FAERRS 

[RE]  [RE] 

Modeling  uncertainty  for  the  start  transient  Normal  distribution  information 
is  the  additive  modeling  uncertainty  characterizing  the  goodness  of  fit  for  the 
start  transient  response  surface  given  by  Equation  3-2.  It  is  characterized  by  a 
Normal(u,  a^)  distribution.  The  mean,  fi,  is  equal  to  the  expected  modeling  uncer- 
tainty, usually  zero,  and  the  standard  deviation,  a,  is  obtained  from  the  curve  fitting 
procedure. 

FAERRM  mean,  n,  of  Normally  distributed  ey^ 

FAERRS  standard  deviation,  a,  of  Normally  distributed 


TSTMU  TSTSIG 

[RE]  [RE] 

Shutdown  transient  starting  temperature  Normal  distribution  information 
T5  (°R)  in  Equation  3-3.  It  is  the  gas  temperature  at  the  start  of  the  shutdown  tran- 
sient and  is  characterized  by  a Normal(u,  a^)  distribution.  The  mean,/^.  is  equal  to 
the  expected  and  the  standard  deviation,  a,  is  obtained  from  the  engine  perfor- 
mance balance. 

TSTMU  mean,  //,  of  Normally  distributed 

TSTSIG  standard  deviation,  a,  of  Normally  distributed  7^ 
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FDERRM  FDERRS 

[RE]  [RE] 

Modeling  uncertainty  for  the  shutdown  transient  Normal  distribution  information 
6q  is  the  additive  modeling  uncertainty  characterizing  the  goodness  of  fit  for  the 
shutdown  transient  response  surface  given  by  Equation  3-3.  It  is  characterized  by 
a Normal(u,  a^)  distribution.  The  mean,  n,  is  equal  to  the  expected  modeling  un- 
certainty, usually  zero,  and  the  standard  deviation,  a,  is  obtained  from  the  curve  fit- 
ting procedure. 

FDERRM  mean,  pi,  of  Normally  distributed  Bq 
FDERRS  standard  deviation,  a,  of  Normally  distributed  bq 

EBENDA  EBENDB 

[RE]  [RE] 

Bending  strain  Uniform  distribution  information 

eb  (%)  in  Equation  3-1.  This  is  the  strain  due  to  gas  bending  and  blade  tilt,  and  it  is 
characterized  by  a Uniform  distribution. 

EBENDA  Uniform  distribution  lower  bound  of  eg 

EBENDB  Uniform  distribution  upper  bound  of  cg 

LAMPA  LAMPB 

[RE]  [RE] 

Deviation  in  blade  pull  load  factor  Uniform  distribution  information 

Ap  in  Equation  3-5.  This  is  the  deviation  in  blade  pull  load  due  to  uncertainty  in 

blade  mass  factor,  and  it  is  characterized  by  a Uniform  distribution. 

LAMPA  variation  factor  Uniform  distribution  lower  bound  of  Ap 

LAMPB  variation  factor  Uniform  distribution  upper  bound  of  Ap 

MANALA  MANALB 

[RE]  [RE] 

Mechanical  strain  analysis  accuracy  factor  Uniform  distribution  information 

^MA  Equation  3-5.  This  is  the  mechanical  strain  analysis  accuracy  factor,  and  it  is 

characterized  by  a Uniform  distribution. 
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MANALA  Uniform  distribution  lower  bound  of 

MANALB  Uniform  distribution  upper  bound 

LAMAA  LAMAB 

[RE]  [RE] 

Coefficient  of  thermal  expansion  variation  factor  Uniform  distribution  information 
Ajj  in  Equation  3-4.  This  is  the  variation  factor  for  the  coefficient  of  thermal  expan- 
sion, a,  and  it  is  characterized  by  a Uniform  distribution. 

LAMAA  Uniform  distribution  lower  bound  of 

LAMAB  Uniform  distribution  upper  bound  of 

TANALA  TANALB 

[RE]  [RE] 

Thermal  strain  analysis  accuracy  factor  Uniform  distribution  information 
Aj^  in  Equation  3-4.  This  is  the  thermal  strain  analysis  accuracy  factor,  and  it  is 
characterized  by  a Uniform  distribution. 

TANALA  Uniform  distribution  lower  bound  of  Xj^ 

TANALB  Uniform  distribution  upper  bound  of  Ay/y 

LAMDAA  LAMDAB 

[RE]  [RE] 

Damage  accumulation  model  accuracy  factor  distribution  information 
This  line  contains  the  Uniform  distribution  bounds  in  loge  space  for  the  damage  ac- 
cumulation model  accuracy  factor,  >n  Equation  2-91  of  [1].  See  [1],  Section 
2.2. 1.4  for  a discussion  of  the  damage  accumulation  calculations. 

LAMDAA  lower  bound  of  damage  accumulation  accuracy  factor 
LAMDAB  upper  bound  of  damage  accumuiation  accuracy  factor 


6-60 


LAMTMA  LAMTMB 

[RE]  [RE] 

Thermal  Mechanical  Fatigue  model  accuracy  factor  distribution  information 
This  line  contains  the  Uniform  distribution  bounds  in  loge  space  for  the  thermal 
mechanical  fatigue  model  accuracy  factor,  in  Section  3.2.6. 

LAMTMA  lower  bound  of  thermal  mechanical  fatigue  accuracy  factor 

LAMTMB  upper  bound  of  thermal  mechanical  fatigue  accuracy  factor 

Load  and  Geometry  Block 

EMNOM  NOMSPD 

[RE]  [RE] 

Nominal  mechanical  strain  and  rotor  speed 

The  line  contains  the  nominal  mechanical  strain,  EMnom  (%).  Equation  3-5,  and 
the  nominal  or  reference  rotor  speed,  (rpm),  corresponding  to  the  nominal 
mechanical  strain  value. 

PERIOD 

[RE] 

Period 

T (missions)  in  Equation  2-91  of  [1].  This  is  the  period  of  the  nominal  strain-time 
history,  and  it  is  required  so  that  life  may  be  provided  in  missions. 

TRUNC 

[RE] 

Noise  Filter 

Value  (%)  used  to  filter  out  insignificant  cycles  in  the  composite  strain-time  history 
during  rainflow  cycle  counting. 

NTIME 

[INT] 

Number  of  history  points 

Number  of  points  in  the  nominal  time  history.  NTIME  cannot  exceed  50. 
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WEXP 

[RE] 


Walker  exponent 

w in  Equation  3-8.  This  is  the  exponent  in  the  Walker  relation  used  in  the 
equivalent  zero  mean  strain  range  calculation. 


FAA  FAB  FAC  FAD  FAE  FAF 

[RE]  [RE]  [RE]  [RE]  [RE]  [RE] 

Coefficients  of  the  start  transient  response  surface  function 

The  coefficients  a,  b,  c,  d,  e,  and  f of  the  start  transient  response  surface  function, 

Equation  3-2. 


^A(Tgas’  ^gas)  ~ ® ^ ^gas  ^ ^gas  ^ ^gas  ® ^gas  ^ ^gas  ^gas 


FD1A 

FD1B 

FD1C 

FD1D 

FD1E 

FD1F 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

[RE] 

FD2A  FD2B 

[RE]  [RE] 


FD3A  FD3B 

[RE]  [RE] 


Coefficients  of  the  shutdown  transient  response  surface  functions 

The  coefficients  d.|^,  d^Q,  d■^Q,  d-^Q,  d■^^,  d■^p,  o^2a>  ^2b>  d^,  d^  of  the  shutdown 

transient  response  surface  functions.  Equations  3-3,  3-6,  and  3-7. 

- ^D2(^.  ^s)  = ^2A  + i^s  ~ 


^(^e)  ~ ^D2>i^d)  ~ ^ZA  ^3fi 
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RPM(I)  ETHNOM(I) 

[RE]  [RE] 


The  points  of  the  nominal  time  history 

The  points  of  the  nominal  time  history.  The  data  is  entered  as  rotor  speed,  thermal 
strain  pairs,  one  pair  per  line  for  I = 1 NTIME. 

Materials  Information  Block 

DESCRP(O) 

[CHR] 

Description  of  specific  material  S/N  data  set 

Name  and  test  environment  for  the  specific  material  S/N  data.  This  is  a character 
string  no  more  than  40  characters  long,  enclosed  by  single  quotes. 

FTY  FTU  NDIV  NPTS(O) 

[RE]  [RE]  [INT]  [INT] 

Specific  materials  information 

Yield  strength,  ultimate  strength,  number  of  divisions  of  data,  number  of  points  in 
S/N  data  sets.  The  data  may  be  divided  when  they  are  assigned  to  a different  life 
region  or  have  different  strain  ratios.  If  all  data  has  a strain  ratio  of  -1 .0,  then  the 
yield  and  ultimate  strengths  are  not  required,  but  zero  values  must  be  specified  as 
placeholders.  NPTS(O)  cannot  exceed  fifty.  The  next  two  data  sets  have  to  be 
provided  for  each  data  division. 

ETY  yield  strength  corresponding  to  the  specific  material  data  set  (%) 

ETU  ultimate  strength  corresponding  to  the  specific  material  data  set  (%) 

NDIV  number  of  data  divisions  for  the  specific  material  data  set 

NPTS(O)  total  number  of  points  in  the  specific  material  S/N  data  set 

NUM  RATIO  REG 

[INT]  [RE]  [INT] 

Materials  information  for  each  data  division  of  the  specific  S/N  data  set 
Number  of  points,  strain  ratio,  and  the  life  region  of  Wrest  for  each  data  division. 
This  line  must  be  provided  for  each  data  division. 

NUM  number  of  S/N  data  points  in  the  data  division 
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RATIO 

REG 


strain  ratio  for  the  data  in  the  data  division 

life  region  number  to  be  assigned  to  the  data  in  the  data  division 


RAWSTR(l,0)  RAWNF(l,0) 

[RE]  [RE] 

Specific  material  S/N  data  points 

Strain  versus  fatigue  life  data  points  for  each  data  division.  A block  of  NUM  lines 
must  be  specified  (i.e.,  the  value  of  I goes  from  1 to  NUM).  This  block  must  be 
provided  for  each  data  division. 

RAWSTR(l,0)  strain  value  (%) 

RAWNF(l,0)  fatigue  life  value  (cycles) 

SZERO 

[RE] 

Tensile  point^ 

Strain  tensile  point,  (%).  Must  be  non-negative.  A value  of  zero  indicates  no 
tensile  point. 


NUMREG  NNODAT 

[INT]  [INT] 

Data  regions^° 

Number  of  life  regions  that  are  data-determined  and  not  data-determined.  NUM 
REG  -I-  NNODAT  cannot  exceed  three.  NUMREG  must  be  1.  2,  or  3,  and 
NNODAT  must  be  non-negative,  and  should  be  0 or  1. 

NUMREG  number  of  life  regions  determined  by  data 

NNODAT  number  of  life  regions  (to  the  right)  not  determined  by  data 


® Extension  of  the  S/N  curve  to  the  left  is  discussed  in  [1],  Page  2-17.  This  option  is  not 
available  with  the  “bootstrapping”  model. 

Extension  of  the  S/N  curve  to  the  right  is  discussed  in  [1],  Page  2-17.  This  option  is  not 
available  with  the  “bootstrapping”  model. 
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NBND(L) 

[RE] 

Life  Boundaries^  ^ 

The  upper  boundaries  of  the  life  regions  are  specified  (cycles).  The  value  of  L 
goes  from  ZROREG  to  the  total  number  of  regions  (equal  to  NUMREG  + 
NNODAT).  If  a non-zero  tensile  point  is  specified,  then  ZROREG  = 0 else 
ZROREG  = 1.  The  program  expects  the  upper  bound  of  the  last  life  region  to  be 
10'”,  a proxy  for  ». 

CZERO 

[RE] 

Prior  information  on  coefficient  of  variation  of  fatigue  strength^^ 

Information  in  the  form  of  a constraint  on  the  coefficient  of  variation  of  fatigue 
strength  C for  the  specific  material  S/N  data  set.  Value  must  be  non-negative  and 
a value  of  zero  indicates  CZERO  is  not  in  use. 


MPNT(L)  MZERO(1,L)  MZERO(2,L) 

[INT]  [RE]  [RE] 

Prior  information  on  the  materials  shape  parameter 

The  number  of  MZERO  values  in  each  life  region,  and  the  lower  and  upper  bound 
for  the  range  of  m.  The  value  of  L goes  from  1 to  (NUMREG  -i-  NNODAT).  If 
VARY  = 3 is  specified  (truncated  Normal  distribution  on  m).  then  a prior  range  of 
m must  be  specified  for  each  region. 

^P^1"(L)  The  number  of  points,  0,  1 , or  2 (no  prior  on  m,  a point  prior  on  m,  or  a 
prior  over  a range  of  m.  respectively),  in  MZERO( ) for  each  region. 

MZERO(I.L)  The  lower  bound  on  the  range  of  m or  the  value  of  the  point  prior  for  m. 


^ ^ Life  region  boundaries  are  discussed  in  [IJ,  Page  2-15. 

The  implicit  constraint  on  the  materials  shape  parameter  provided  by  prior  information  on 
tbe  coefficient  of  variation  of  fatigue  strength  is  discussed  in  [1],  Pages  2-12  throu^  2-D 
This  option  is  not  available  with  the  ^‘bootstrapping’’  model. 

The  explicit  constraint  on  the  materials  shape  parameter  provided  by  prior  information  on  the 
niatenals  shape  parameter  is  discussed  in  [1],  Page  2-12.  This  option  is  not  available  with  the 
bootstrapping”  model. 
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MZER0(2,L)  The  upper  bound  on  the  prior  range  of  m.  Program  requires  that  the 
value  be  zero  if  a point  prior  for  m is  specified. 


DELTA(L)  MO(L)  SIGMA2(L) 

[RE]  [RE]  [RE] 

Information  on  the  Bayesian  prior  distribution  for  the  truncated  Normal  distribu- 

If  VARY  = 3,  then  the  materials  model  uses  the  truncated  Normal  distribution. 
The  truncated  Normal  distribution  requires  some  prior  information  on  the  Normal 
distribution  parameters  because  a Bayesian  analysis  is  performed.  The  informa- 
tion is  required  for  each  life  region.  The  value  of  L goes  from  1 to  (NUMREG  + 
NNODAT). 

DELTA(L)  The  shape  parameter,  d,  of  the  Bayesian  prior  distribution  is  used  to 
compute  the  Bayesian  posterior  distribution  parameters.  Value  must 
be  non-negative.  A value  of  zero  indicates  a diffuse  prior  distribution. 

MO(L)  Location  parameter,  iVq,  of  the  Bayesian  prior  distribution  of  the  shape 

parameter  m.  Must  be  positive.  Required  when  DELTA(L)  is  non-zero. 

SIGMA2(L)  ^ 2 known  variance  of  \n(fatigue  life),  V(ln  N\\nS).  Must  be  non- 
negative. 


KRATIO  LAMN 

[RE]  [RE] 

Materials  process  variation  information 

If  MPROC  = 1 , then  specification  of  KRATIO  and  LAMN  is  required.  KRATIO  is 
Xl(,  the  ratio  MED  K* /MED  K where  MED  K*  is  the  median  value  over  all  heats  for  the 
strain  (%)  at  a life  of  one  cycle,  and  MED  K is  the  median  value  for  the  specific  S/N 
data  for  the  strain  (%)  at  a life  of  one  cycle.  LAMN  is  the  ratio  of  the  variance  of 
ln(/;fe)  conditional  on  strain  over  all  heats  to  the  intrinsic  materials  variation  for  the 
given  S/N  data  conditional  on  strain.  Process  variation  in  materials  is  discussed  in 
[1],  Section  2.1. 2.3. 


Specification  of  the  Bayesian  prior  distribution  for  the  truncated  Normal  case  is  discussed  in 
[1],  Page  2-14. 
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e.2.3.2  Input  File  RELATD 

Th|  input  data  for  file  RELATD,  which  contains  the  related  materials  informa- 
tion,’^ is  given  below.  The  data  format  is  similar  to  that  used  to  specify  the  S/N 
data  in  the  specific  materials  information  block  in  the  BLDLCD  file. 

NSETS 

[INT] 

Number  of  related  data  sets 

Number  of  related  material  S/N  data  sets.  The  following  data  groups  have  to  be 
repeated  as  a block  for  each  data  set.  The  value  of  J varies  from  1 to  NSETS.  If 
there  is  no  related  data,  then  file  RELATD  will  only  contain  the  number  “0”.  NSETS 
cannot  exceed  five. 

DESCRP(J) 

[CHR] 

Description  of  related  material  S/N  data  set 

Name  and  test  environment  for  related  material  S/N  data  set  J.  This  is  a character 
string  no  more  than  40  characters  long  enclosed  by  single  quotes. 


FTY  FTU  NDIV  NPTS(J) 

[RE]  [RE]  [INT]  [INT] 

Related  materials  information 

Yield  strength,  ultimate  strength,  number  of  divisions  of  data,  number  of  points  in 
S/N  data  set.  The  data  may  be  divided  when  they  are  assigned  to  a different  life 
region  or  have  different  strain  ratios.  If  all  data  has  a strain  ratio  of  -1.0,  then  the 
yield  and  ultimate  strengths  are  not  required,  but  zero  values  must  be  specified  as 
placeholders.  NPTS(J)  cannot  exceed  fifty.  The  next  two  data  sets  have  to  be 
provided  for  each  data  division. 

FTY  yield  strength  corresponding  to  related  material  data  set  J (%) 

FTU  ultimate  strength  corresponding  to  related  material  data  set  J (%) 

NDIV  number  of  data  divisions  for  reiated  material  data  set  J 

NPTS(J)  total  number  of  points  in  related  material  S/N  data  set  J 


Related  S/N  data  is  discussed  in  [1],  Page  2-7.  This  option  is  not  available  with  the 
“bootstrapping”  model. 
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NUM  RATIO  REG 

[INT]  [RE]  [INT] 


Materials  information  for  each  data  division  of  the  related  S/N  data  set 
Number  of  points,  strain  ratio,  and  the  life  region  of  interest  for  each  data  division. 
This  line  must  be  provided  for  each  data  division. 

NUM  number  of  S/N  data  points  in  the  data  division 

RATIO  strain  ratio  for  the  data  in  the  data  division 

REG  life  region  number  to  be  assigned  to  the  data  in  the  data  division 


RAWSTR(I,J)  RAWNF(I,J) 

[RE]  [RE] 

Related  material  S/N  data  points 

Strain  versus  fatigue  life  data  points  for  each  data  division.  A block  of  NUM  lines 
must  be  specified  (i.e.,  the  value  of  I goes  from  1 to  NUM).  This  block  must  be 
provided  for  each  data  division. 

RAWSTR(I,J)  strain  value  (%) 

RAWNF(I,J)  fatigue  life  value  (cycles) 

6.2.4  Options  and  Capabilities 

BLDLCF  is  a Monte  Carlo  simulation  program  which  generates  a sequence  of 
component  lives  for  a particular  failure  mode,  where  life  is  defined  as  the  accumu- 
lated operating  time  at  failure.  The  simulation  has  a double-loop  structure  with 
NHYPER  outer  loops  and  NLIFE  inner  loops.  The  simulation  size  is  dependent  on 
the  failure  probability  at  which  a life  estimate  is  desired  and  the  precision  desired. 
For  the  blade  application,  single-loop  runs  with  NHYPER  = 20,000  and  NLIFE  = 

1 were  used  to  characterize  component  reliability,  and  single-loop  runs  with 
NHYPER  = 1000  and  NLIFE  = 1 were  used  for  the  marginal  analysis  to  assess 
the  importance  of  drivers. 

During  a run  it  may  be  desirable  to  “hold"  a driver  at  a fixed  value.  This  may  be 
the  nominal  or  median  value  of  the  driver.  This  is  done  for  drivers  with  a Beta  or  a 
Uniform  distribution  by  merely  specifying  the  upper  and  lower  bounds  to  be  the 
desired  value.  For  drivers  with  a Normal  distribution,  the  standard  deviation,  a,  is 
set  at  zero,  and  the  mean,  fi,  is  set  at  the  desired  value. 
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The  procedure  of  holding  certain  drivers  at  fixed  values  while  letting  the  other 
drivers  vary  according  to  their  probability  distributions  may  be  used  for  driver  varia- 
tion sensitivity  studies.  That  is,  the  effect  on  life  of  driver  variation  may  be 
evaluated  by  letting  it  vary  while  holding  other  drivers  at  fixed  values.  Each  driver 
variation  sensitivity  was  determined  in  the  case  studies  of  this  report  with  the  intrin- 
sic variation  of  the  fatigue  life  of  the  material  included  (VARY  = 1). 

A printout  of  intermediate  calculations  in  various  parts  of  the  program  may  be  ob- 
tained via  the  lOUT  option.  This  output  will  be  printed  in  the  lOUTPR  file.  It  is 
recommended  that  such  output  not  be  requested  when  the  simulation  size  is  large 
since  the  information  will  be  dumped  during  every  simulation  loop.  The  NMED  op- 
tion provides  for  calculation  of  an  empirical  median  S/N  curve  if  the  truncated  Nor- 
mal distribution  or  “bootstrapping”  is  employed.’®  In  this  case,  the  median  S/N 
curve  is  based  on  the  empirical  median  m from  all  the  shape  parameters  used  in 
the  simulation.  The  MPROC  option  activates  the  calculations  for  the  process  varia- 
tion feature  of  the  materials  characterization  model,  as  discussed  in  [1]  Section 
2. 1.2.3. 

6.2.5  Code  Execution  Example 

The  following  example  run  of  the  LCF  analysis  code  for  the  ATD-HPFTP  first 
stage  turbine  blade  was  carried  out  with  random  variation  of  all  drivers.  In  this  ex- 
ample run,  20,000  lives  were  simulated  (NLIFE  = 1 times  NHYPER  = 20.000) 
using  Uniform  shape  parameter  variation.  VARY  = 2 and  NMED  = 0;  Weibull  in- 
trinsic materials  variation,  VARPHI  = 1 ; and  no  materials  process  variation, 

MPROC  = 0.  The  turbine  disk  has  fifty  blades  about  its  circumference,  so  NSYM 
= 50.  The  B-lives’' to  be  provided  are  B.1,  B.2,  B.3,  B.4,  B.5,  B.6,  B.7,  B.8,  B.9, 
and  B1  (NBLIFE  = 10,  BLFPER(1)  = 0.001,  BLFPER(2)  = 0.002,  BLFPER(3) 

= 0.003,  BLFPER(4)  = 0.004,  BLFPER(5)  = 0.005,  BLFPER(6)  = 0.006, 
BLFPER(7)  = 0.007,  BLFPER(8)  = 0.008,  BLFPER(9)  = 0.009,  BLFPER(IO)  = 
0.010).  The  user  may  refer  to  Section  3.2  for  additional  information  on  the  en- 
gineering analysis  and  to  Section  3.3  for  the  results  of  the  case  study  for  this  com- 
ponent. 

The  drivers  for  LCF  failure  of  the  blade  are  as  follows: 


The  truncated  Normal  distribution  for  the  materials  model  shape  parameter  m is  discussed  in 
[1],  Page  2-14. 

A B-life  is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  sr)ecified 
as  a percent;  e.g.,  B.l  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 
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DRIVER 

DISTRIBUTION 

^gas 

Beta 

^gas 

Beta 

m 

Beta 

Beta 

Normal 

Normal 

Ts 

Normal 

Normal 

Uniform 

kp 

Uniform 

^MA 

Uniform 

Uniform 

Uniform 

^dam 

Uniform 

Uniform 

The  rationale  for  the  specification  of  the  driver  distributions  is  given  in  Section  3.3.1. 

The  material  is  for  PWA  1480  tested  in  the  [001]  orientation.  DESCRP  = 'RT, 
PWA  1480,  001  DIRECTION’.  The  data  set  includes  eight  S/N  data  points,  NUM 
= 8.  with  a strain  ratio  of  -1 .0.  RATIO  = -1 .0.  No  strain  tensile  point  is  used, 
SZERO  = 0.  so  only  one  life  region  upper  boundary  must  be  defined,  NBND(O) 

= 1.0E36.  The  number  of  regions  with  data.  NUMREG,  is  1.  and  there  are  no 
regions  to  the  right  without  data,  NNODAT  = 0.^®  The  data  is  in  one  division, 

NDIV  = 1,  and  the  total  number  of  points  is  eight,  NPTS(O)  = 8.  No  constraint 
on  the  coefficient  of  variation  of  fatigue  strength  is  provided.  CZERO  = 0.  No  ex- 
plicit range  on  m is  included  (MPNT(1)  = MZERO(1,L)  = MZERO(2,L)  = 0). 

No  related  data  is  provided.  Thus,  the  RELATD  file  is  empty,  except  for  a single 
entry  to  indicate  NSETS  = 0.’®  If  further  explanation  of  files  BLDLCD  and 
RELATD  is  required,  refer  to  Sections  6.2.3. 1 and  6.2.3.2,  and  Figures  6.2-1  and 
6.2-2,  respectively. 


The  nonparametric  option  is  one  region  only. 

The  nonparametric  option  does  not  use  a constraint  on  the  coefficient  of  variation,  an  explicit 
range  on  m,  or  related  data.  Nevertheless,  placeholders  for  these  parameters  must  be 
included  because  the  nonparametric  model  uses  routine  RCE  without  modifications. 
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The  echo  of  the  input  data  is  in  the  output  file  BLDLCO.  The  simulated  B-lives 
are  also  given  for  the  component.  For  instance,  the  B.1  life  is  69  missions.  The 
lOUTPR  file  gives  an  echo  of  the  analysis  parameters.  The  dump  parameter  lOUT 
is  zero;  therefore,  no  other  output  is  in  this  file.  The  LOWLIF  file  contains  the 
lowest  one  percent  of  the  20,000  simulation  lives.  Finally,  the  DUMP  file  contains 
the  results  of  the  materials  characterization  model  information  aggregation  calcula- 
tions. 

Input  File  - BLDLCD 

675 

0 

1 

20000 

50 

2 

0 

0 

1 

10 

0.001  0.002  0.003  0.004  0.005  0.006  0.007  0.008  0.009  0.010 


676. 

2730. 

0.50 

0.50 

0.00 

0.00 

782. 

1982. 

0.50 

o 

at 

o 

0.00 

0.00 

2730. 

2730. 

0.50 

0.50 

0.00 

o 

o 

o 

0.5 

1.5 

0.50 

o 

o 

o 

o 

o 

0.00 

5 37592.  507. 

0.0  0.020 

1640.0  40.67 

0.0  0.003 

0.00  0.00 

0.96  1.04 

0.80  1.20 

0.975  1.025 

0.70  1.30 

0.00  0.00 

0.00  0.00 

0.295 
38482. 

1.0 
0.0 

6 

0.50 

0.00727362  0.000067442  -0.000059109 

-3.52929E-08  1.07611E-08  -2.74419E-08 


^ The  information  aggregation  calculations  are  discussed  in  [1],  Pages  2-6  through  2-14. 
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-0.132623  0.000227427  -0.000059290  0.00  0.00  4.71714E-08 

0.20  950.0 


30523.07 

-21846.15 

225.8 

0.0 

3025.1 

-0.196921 

6138.8 

0.146025 

8309.0 

-0.200128 

0.0 

0.007393 

'RT,  PWA  1480,  001  DIRECTION' 
1.54  1.57  1 8 

8 -1.0  1 


0.89 

6800, 

0.89 

15000. 

0.67 

27000. 

0.67 

43200. 

0.56 

139300. 

0.56 

545200. 

0.56 

147000. 

0.39 

4344800. 

0.00 

1 0 

l.OE+36 

0.00 
0 0 

.000  0.000 

Input  File  - RELATO 

0 


Output  File  - BLDLCO 

Copyright  (C)  1990,  California  Institute  of  Technology.  U.S.  Government 
Sponsorship  under  NASA  Contract  NAS7-918  is  acknowledged. 


INPUT  DATA 


DRIVERS  PARAMETER  DISTRIBUTIONS 

RHO  THETA 


Hgas 

Be  ( 

676., 

2730.) 

U(0. 50000, 

0.50000) 

U( 

O 

O 

0.0) 

Tgas 

(deg  R) 

Be( 

782., 

1982.) 

U(0. 50000, 

0.50000) 

U( 

o 

• 

o 

0.0) 

DECEL 

SLOPE 

Be( 

2730., 

2730.) 

U(0. 50000, 

0.50000) 

U( 

0.0, 

0.0) 
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Tgas  UNCERT. 


Be(  0.50,  1,50) 


U(0. 50000,  0.50000) 


U(  0.0,  0.0) 


ROTOR  SPEED  VARIATION  (rpm)  AT  TIME  T5 
Faccel  MODELING  ERROR 
STARTING  DECEL  TEMPERATURE  (deg  R) 
Fdecel  MODELING  ERROR 


N(  MEAN,  STD.  DEV.) 
N(  37592.0,  507.0) 
N(  0.0,  0.2000E-01) 
N(  1640.00,  40.67) 
N(  0.0,  0.3000E-02) 


STRAIN  DUE  TO  GAS  BENDING  (%) 

LAMBDA  BLADE  PULL 
MECHANICAL  ANALYSIS  FACTOR 
COEFFICIENT  OF  THERMAL  EXPANSION  FACTOR 
THERMAL  ANALYSIS  FACTOR 


U( 

0.00000, 

0.00000) 

U{ 

0.96000, 

1.04000) 

U( 

0.80000, 

1.20000) 

U( 

0.97500, 

1.02500) 

U( 

0.70000, 

1.30000) 

DAMAGE  MODEL  ACCURACY 


U(ln  1.00000,  In  1.00000) 


TMF  MODEL  ACCURACY 


U(ln  1.00000,  In  1.00000) 


OTHER  STRAIN  HISTORY  INPUT 


NOMINAL  MECHANICAL  STRAIN  (%)  0.2950 

NOMINAL  ROTOR  SPEED  (rpm)  38482. 

STRAIN-TIME  HISTORY  PERIOD  (missions)  1,00 

STRAIN-TIME  HISTORY  NOISE  FILTER  (%)  0.00000 

NUMBER  OF  POINTS  IN  HISTORIES  6 

WALKER  EXPONENT  0 50 
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COEFFICIENTS  OF  ACCELERATION  AND  DECELERATION  FUNCTIONS 


THERMAL  STRAIN  AT  STARTUP  (%): 

Faccel(Tgas,  Hgas)  = 0.727362E-02  + 0.674420E-04  * Tgas  + 

-0.591090E-04  * Hgas  + -0 . 352929E-07  * Tgas  **  2 + 
0.107611E-07  * Hgas**2  + -0 .274419E-07  * Tgas  * Hgas 

THERMAL  STRAIN  AT  SHUTDOWN  ( % ) : 

Fdecell(m,  Tstart)  = -0. 132623E+00  + 0.227427E-03  * Tstart  + 

-0.592900E-04  * m + O.OOOOOOE+00  * Tstart  **  2 + 
O.OOOOOOE+00  * m **  2 + 0.471714E-07  * Tstart  * m 

TIME  AT  SHUTDOWN  ( sec ) : 

Fdecel2(m,  Tstart)  = 0.200000E+00  + (Tstart  - 0.950000E+03  ) / m 

ROTOR  SPEED  AT  SHUTDOWN  (rpm) : 

Fdecel3(t)  = 0.305231E+05  + -0.218462E+05  * t 


STRAIN  HISTORY  INFORMATION 


ROTOR  SPEED 

THERMAL  STRAIN 

rpm 

(%) 

225.8 

0.000000 

3025.1 

-0.196921 

6138.8 

0.146025 

8309.0 

-0.200128 

0.0 

0.007393 

MATERIAL  INPUT 

DESCRIPTION:  RT,  PWA  1480,  001  DIRECTION 

YIELD  STRENGTH  0.15400E+01 

ULTIMATE  STRENGTH  0.15700E+01 

NUMBER  OF  POINTS  8 

ORIGINAL  S/N  STRESS  TRANSFORMED  S/N 
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STRESS 

LIFE 

RATIO 

REGION 

STRESS 

LIFE 

0. 89000E+00 

6800. 

o 

o 

1 

0.89000E+00 

6800. 

0.89000E+00 

15000. 

O 

O 

1 

1 

0.89000E+00 

15000. 

0.67000E+00 

27000. 

o 

o 

1 

0.67000E+00 

27000. 

0.67000E+00 

43200. 

-1.00 

1 

0.67000E+00 

43200. 

0.56000E+00 

139300. 

1 

o 

o 

1 

0.56000E+00 

139300. 

0.56000E+00 

545200. 

-1.00 

1 

0.56000E+00 

545200. 

0.56000E+00 

147000. 

-1.00 

1 

0.56000E+00 

147000. 

0.39000E+00 

4344800. 

o 

o 

1 

0.39000E+00 

4344800. 

THERE  IS  1 

REGION (S)  WITH 

DATA 

AND  0 REGION(S)  TO  THE  RIGHT  WITHOUT  DATA 

THE  UPPER  BOUND(S)  OF  THE  REGION(S)  ARE  (CYCLES): 

O.lOOE+37 


EXOGENOUS  INFORMATION 


CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C:  0.0000 

EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION: 

REGKX)  # OF  POINTS  LOWER  BOUND  UPPER  BOUND 

1 0 0.0000  0.0000 


WEIBULL  VARIATION 


B LIVES: 

EMPIRICAL 

0.00100 

0.693627E+02 

0.00200 

0.104496E+03 

0.00300 

0.141498E+03 

0.00400 

0.171753E+03 

0.00500 

0.203323E+03 

0.00600 

0.223266E+03 

0.00700 

0.244718E+03 

0.00800 

0.266518E+03 

0.00900 

0.286573E+03 

0.01000 

0.314683E+03 

0.50000 

0.900345E+04 
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Output  File  - RELATO 


NUMBER  OF  DATA  SETS:  0 

NOTE:  ALL  Kt  ASSUMED  TO  BE  1.0 


TRANSFORMED  DATA 


Output  File  - DUMP 

Copyright  (C)  1990,  California  Institute  of  Technology.  U.S.  Government 
Sponsorship  under  NASA  Contract  NAS7-918  is  acknowledged. 


RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS 

95%  CONFIDENCE  INTERVALS  ON  C AND  m FOR  EACH  REGION 

REGION:  1 lo  = ( 0.054422790,  0.185977300) 

Jo  = ( 5.152009000,  9.564463000) 

POINT  ESTIMATES  OF  C AND  m FOR  EACH  REGION 
REGION  E(C)  E(m) 

1 0.084455910  7.358236 

POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  REGION 

REGION  LOWER  BOUND  UPPER  BOUND 

1 5.1520  9.5645 


PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE 


NUMBER  OF 

REGIONS : 

1 E ( BETAO ) 

= 15.7104  E(k) 

= 1.0909 

REGION 

m 

K 

LIFE  BOUND 

STRESS  BOUND 

1 

7.35824 

0.30172E+01 

O.lOOE+37 

O.OOOOOE-t-00 

Output  File  - lOUTPR 


RANDOM  NUMBER  SEED  = 675.000000000000 

lOUT  (MATCHR  = 10,  BLDLCF  = 15,  RAINF3  = 20)=  0 

INNER  LOOP  SIZE  = 1 

OUTER  LOOP  SIZE  = 20000 

SYMMETRY  NUMBER  = 50 

TYPE  OF  S/N  VARIATION  DESIRED 
(0-NONE;  1-INTRINSIC;  2-UNIFORM;  3-NORMAL)  = 2 


NORMAL 

MEDIAN  CURVE  (0 

-NO,  1 - YES) 

MATERIALS  PROCESS  VARIATION  DESIRED 

(0 

-NO,  1 - YES) 

TYPE 

OF  INTRINSIC  VARIATION  DESIRED 

( 1 - WEIBULL; 

2 - LOGNORMAL) 

Output  File  - 

LOWLIF 

1 

0.500000E-04 

11.4674 

2 

O.lOOOOOE-03 

20.5764 

3 

0.150000E-03 

20.9020 

4 

0.200000E-03 

23.3439 

5 

0.250000E-03 

28.7136 

6 

0.300000E-03 

33.3230 

7 

0.350000E-03 

35.4286 

8 

0.400000E-03 

37.5925 

9 

0.450000E-03 

45.9977 

10 

0.500000E-03 

50.0363 

11 

0.550000E-03 

50.1602 

12 

0.600000E-03 

50.6590 

13 

0.650000E-03 

54.5432 

14 

0.700000E-03 

54.9887 

15 

0 .750000E-03 

56.3990 

16 

0.800000E-03 

57.8591 

17 

0.850000E-03 

62.6331 

18 

0.900000E-03 

65.5875 

19 

0.950000E-03 

68.4943 

20 

O.lOOOOOE-02 

69.3627 

21 

0.105000E-02 

73.8416 

22 

0.110000E-02 

74.9508 

23 

0.115000E-02 

75.4585 

24 

0.120000E-02 

78.1945 

25 

0.125000E-02 

82.3033 
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26 

0. 130000E-02 

84,9180 

27 

0.135000E-02 

85.5436 

28 

0.140000E-02 

87,7353 

29 

0.145000E-02 

88.8890 

30 

0. 160000E-02 

93,2934 

31 

0.155000E-02 

93,3853 

32 

0.160000E-02 

96.0268 

33 

0.165000E-02 

96.0511 

34 

0.170000E-02 

96.3106 

35 

0.175000E-02 

98.0476 

36 

0. 180000E-02 

99.5991 

37 

0.185000E-02 

101.824 

38 

0.190000E-02 

102.286 

39 

0.195000E-02 

103.012 

40 

0.200000E-02 

104.496 

41 

0.205000E-02 

104.946 

42 

0.210000E-02 

106.325 

43 

0.215000E-02 

110.003 

44 

0.220000E-02 

111.212 

45 

0.225000E-02 

111.670 

46 

0.230000E-02 

113.510 

47 

0.235000E-02 

113.610 

48 

0.240000E-02 

114.501 

49 

0.245000E-02 

116.168 

50 

0.250000E-02 

119,642 

51 

0-255000E-02 

121.653 

52 

0.260000E-02 

126.945 

53 

0.265000E-02 

129.652 

54 

0.270000E-02 

132.441 

55 

0.275000E-02 

132.713 

56 

0.280000E-02 

132.853 

57 

0.285000E-02 

134.850 

58 

0.290000E-02 

136.655 

59 

0.295000E-02 

136.710 

60 

0.300000E-02 

141.498 

61 

0.305000E-02 

146.554 

62 

0.310000E-02 

146.987 

63 

0.315000E-02 

147.589 

64 

0.320000E-02 

154.347 

65 

0.325000E-02 

156.143 

66 

0.330000E-02 

158.882 

67 

0.335000E-02 

159.672 

68 

0.340000E-02 

160.197 

69 

0.345000E-02 

161.686 

70 

0.350000E-02 

164.602 

71 

0.355000E-02 

165.648 

72 

0.360000E-02 

165.831 

73 

0.365000E-02 

165.867 

74 

0.370000E-02 

167.298 

75 

0.375000E-02 

167.348 
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76 

0 .380000E-02 

169.175 

77 

0.385000E-02 

‘ 169,208 

78 

0.390000E-02 

169.766 

79 

0.395000E-02 

169.787 

80 

0.400000E-02 

171.753 

81 

0.405000E-02 

175.717 

82 

0.410000E-02 

176.525 

83 

0.415000E-02 

180.021 

84 

0.420000E-02 

180.784 

85 

0.425000E-02 

181.151 

86 

0 .430000E-02 

182.652 

87 

0.435000E-02 

182.757 

88 

0.440000E-02 

183.970 

89 

0.445000E-02 

184.185 

90 

0.450000E-02 

185.089 

91 

0.455000E-02 

186.951 

92 

0.460000E-02 

187.950 

93 

0.465000E-02 

188.068 

94 

0.470000E-02 

191.095 

95 

0.475000E-02 

193.211 

96 

0 .480000E-02 

199.758 

97 

0.485000E-02 

200.120 

98 

0.490000E-02 

200.299 

99 

0.495000E-02 

200.820 

100 

0.500000E-02 

203.323 

101 

0.505000E-02 

204.715 

102 

0.510000E-02 

206.620 

103 

0.515000E-02 

208.139 

104 

0.520000E-02 

208.957 

105 

0.525000E-02 

209.029 

106 

0.530000E-02 

209.388 

107 

0.535000E-02 

209.562 

108 

0.540000E-02 

211.436 

109 

0.545000E-02 

212.186 

110 

0.550000E-02 

213.019 

111 

0.555000E-02 

213.384 

112 

0 .560000E-02 

215.517 

113 

0.565000E-02 

216.541 

114 

0.570000E-02 

217.368 

115 

0.575000E-02 

219.029 

116 

0,580000E-02 

219.229 

117 

0.585000E-02 

220.573 

118 

0.590000E-02 

221.352 

119 

0.595000E-02 

223.254 

120 

0.600000E-02 

223.266 

121 

0.605000E-02 

224.214 

122 

0.610000E-02 

224.821 

123 

0,615000E-02 

224.941 

124 

0.620000E-02 

225.630 

125 

0.625000E-02 

230.432 
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126 

0.630000E-02 

230.894 

127 

0.635000E-02 

232.867 

128 

0*640000E-02 

233.193 

129 

0.645000E-02 

235.233 

130 

0,650000E-02 

235.455 

131 

0-655000E-02 

235.684 

132 

0.660000E-02 

237.135 

133 

0.665000E-02 

239.252 

134 

0,670000E-02 

240.345 

135 

0.675000E-02 

241.842 

136 

0.680000E-02 

242.162 

137 

0.685000E-02 

242.815 

138 

0.690000E-02 

244.131 

139 

0.695000E-02 

244.176 

140 

0.700000E-02 

244.718 

141 

0.705000E-02 

245.149 

142 

0,710000E-02 

248.546 

143 

©•715000E-02 

251.099 

144 

0.720000E-02 

251.607 

145 

0.725000E-02 

251.614 

146 

0.730000E-02 

252.298 

147 

0,735000E-02 

253.937 

148 

0.740000E-02 

255.248 

149 

0.745000E-02 

259.308 

150 

0.750000E-02 

259.677 

151 

0.755000E-02 

260.639 

152 

0.760000E-02 

261.692 

153 

0.765000E-02 

262.321 

154 

0.770000E-02 

263.077 

155 

0.775000E-02 

263.105 

156 

0.780000E-02 

263.857 

157 

0,785000E-02 

265.718 

158 

0.790000E-02 

265.802 

159 

0.795000E-02 

266.451 

160 

0.800000E-02 

266.518 

161 

0.805000E-02 

266.648 

162 

0.810000E-02 

268.302 

163 

0.815000E-02 

268.492 

164 

0.820000E-02 

268.948 

165 

0,825000E-02 

268.991 

166 

0,830000E-02 

269.684 

167 

0.835000E-02 

272.396 

168 

0.840000E-02 

272.490 

169 

0.845000E-02 

273.289 

170 

0.850000E-02 

273.440 

171 

0.855000E-02 

273.690 

172 

0,860000E-02 

275.113 

173 

0,865000E-02 

277.709 

174 

0.870000E-02 

278.107 

175 

0,875000E-02 

279.670 
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176 

0.880000E-02 

283.247 

177 

0.885000E-02 

283.595 

178 

0.890000E-02 

284.003 

179 

0.895000E-02 

285.168 

180 

0.900000E-02 

286.573 

181 

0.905000E-02 

289.375 

182 

0.910000E-02 

294.471 

183 

0.915000E-02 

294.922 

184 

0.920000E-02 

296.875 

185 

0.925000E-02 

297.684 

186 

0.930000E-02 

299.328 

187 

0.935000E-02 

299.942 

188 

0.940000E-02 

301.087 

189 

0.945000E-02 

303.201 

190 

0.950000E-02 

303.504 

191 

0.955000E-02 

304.032 

192 

0.960000E-02 

305.626 

193 

0.965000E-02 

306.731 

194 

0.970000E-02 

308.299 

195 

0.975000E-02 

308.348 

196 

0.980000E-02 

309.762 

197 

0.985000E-02 

312.676 

198 

0.990000E-02 

314.043 

199 

0.995000E-02 

314.101 

200 

O.lOOOOOE-01 

314.683 

6.2.6  Error  Messages  and  Possible  Remedies 

The  following  messages,  when  applicable,  will  appear  in  file  lOUTPR.  These 
messages  are  primarily  generated  by  the  materials  characterization  model 
(MATCHR)  portion  of  BLDLCF.  An  error  message  stating  that  a limit  has  been  ex- 
ceeded will  require  that  the  user  increase  those  limits,  as  directed,  and  reviewing 
or  consulting  [1],  Section  7. 3. 1.3,  is  desirable.  The  messages  are  listed  in  al- 
phabetical order  for  the  convenience  of  the  user. 

ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF  MO  INCONSISTENT  WITH 
DELTA  IN  REGION  ’L’ 

Fatal  This  error  can  occur  during  the  use  of  the  truncated  Normal  varia- 
tion option  of  the  materials  characterization  model  for  two  reasons.  First, 
the  value  of  d may  be  negative.  Second,  a value  of  d was  specified,  but  the 
value  of  is  not  positive.  Check  file  BLDLCD. 

ERROR:  Co  TOO  LOW 

Fatal  The  constraint,  C^,  imposed  on  the  coefficient  of  variation  of  fatigue 
strength  is  inconsistent  with  the  observed  S/N  data. 
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ERROR:  EXCEEDED  LIMIT  ON  DEGREES  OF  FREEDOM  IN  CHI-SQUARE 

TABLE,  IN  REGION  ’L’ 

Fatal  As  implemented,  the  credibility  interval  calculations  can  handle  no 
more  than  150  degrees  of  freedom,  and  the  amount  of  data  in  the  region  in- 
dicated requires  more.  The  x ^ tables  of  routine  INTRVL  must  be  increased. 
See  [1],  Sections  4. 1.3. 6 and  7.3. 1.3,  for  more  information. 

ERROR:  EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS 

Fatal  The  materials  characterization  model  can  handle  no  more  than  3 
life  regions.  Check  file  BLDLCD  because  the  sum  of  the  number  of  regions 
v\rith  data  and  the  number  of  regions  without  data  is  greater  than  3. 

ERROR:  INVALID  RESPONSE  TO  NORMAL  MEDIAN  CURVE  QUESTION 

Fatal  NMED  can  only  have  the  integer  value  0 or  1.  Check  file  lOUTPR 
for  the  value  used. 

ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS  VARIATION  DESIRED 

Fatal  MPROC  can  only  have  the  integer  value  0 or  1 . Check  file  lOUTPR 
for  the  value  used. 

ERROR:  INVALID  TYPE  OF  S/N  VARIATION  DESIRED 

Fatal  VARY  can  only  have  the  integer  value  0, 1 , 2,  or  3.^^  Check  file 
lOUTPR  for  the  value  used. 

ERROR:  INVALID  VALUE  FOR  RATIO:  ’RATIO’ 

Fatal  An  invalid  value  for  the  strain  ratio  has  been  declared  for  the 
specific  material  data  set.  Only  values  between  -1 .0  and  -1-1.0  inclusive, 
are  possible.  Check  file  BLDLCD. 

ERROR:  INVALID  VALUE  OF  RATIO:  ’RATIO’ 

Fatal  An  invalid  value  for  the  strain  ratio  has  been  declared  for  a related 
material  data  set.  Only  values  between  -1 .0  and  -k  1.0  inclusive,  are  pos- 
sible. Check  file  RELATD. 

ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me 

ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Mo 


VARY  can  also  have  the  integer  value  of  4 if  program  BLDLCF  V3.4B1.2  is  being  used. 
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ERROR:  NO  INTERSECTION  BETWEEN  Jo.  Mo.  AND  Me 

ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me 

Fatal  These  errors  indieate  that  the  speeified  C eonstraint  and/or  prior 
eredibility  range  on  m do  not  agree  with  eaeh  other  and/or  the  observed 
S/N  data. 

ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR  RANGE  ON  M 

Fatal  The  truneated  Normal  variation  option  of  the  materials  charac- 
terization model  requires  a prior  range  on  m.  The  number  of  points  for  the 
prior  range  on  m has  been  incorrectly  specified.  Check  file  BLDLCD  to 
verify  that  the  number  of  points  indicated  for  each  range  has  an  integer 
value  of  1 or  2. 

ERROR:  NUMBER  OF  POINTS  PER  DIVISION  INCORRECTLY  SPECIFIED  IN  SET  ’J’ 
Fatal  The  materials  characterization  model  has  been  given  conflicting  in- 
formation about  the  number  of  points  in  one  of  the  related  S/N  data  sets. 
Check  file  RELATD  for  each  related  data  set  to  compare  the  total  number  of 
points  declared  with  the  sum  of  the  numbers  of  points  in  each  data  division. 

ERROR:  NUMBER  OF  POINTS  PER  DIVISION  INCORRECTLY  SPECIFIED  IN 

SPECIFIC  DATA  SET 

Fatal  The  materials  characterization  model  has  been  given  conflicting  in- 
formation about  the  number  of  points  in  the  specific  S/N  data  set.  Check 
file  BLDLCD.  since  the  total  number  of  points  in  the  specific  data  set 
declared  and  the  sum  of  the  numbers  of  points  in  each  data  division  do  not 
agree. 

ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  SPECIFIED  IN  REGION 

WITHOUT  DATA 

Fatal  The  prior  credibility  range  on  m in  one  of  the  regions  without  data 
has  been  incorrectly  specified.  Check  file  BLDLCD  to  verify  that  either  more 
regions  without  data  have  been  indicated  than  intended  or  that  the  number 
of  points  in  the  prior  on  m in  a region  without  data  has  been  incorrectly 
specified.  Only  the  integer  value  0.  1.  or  2 is  acceptable. 

ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  SET  ’J’ 

Fatal  The  materials  characterization  model  cannot  accept  more  than  50 
S/N  points  in  any  related  material  data  set.  Check  file  RELATD  for  the  total 
number  of  points  in  each  related  data  set  declared,  or  there  may  be  more 
than  50  S/N  points  with  an  incorrect  total  declaration.  It  is  suggested  that 
the  number  of  S/N  data  points  in  each  related  set  be  recounted.  If  more 
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than  50  points  are  desired,  the  parameter  MAXDAT  must  be  increased. 
Refer  to  [1],  Section  7.3. 1.3,  for  the  routines  involved. 

ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS 

Fatal  The  materials  characterization  model  allows  up  to  5 related  data 
sets.  Check  file  RELATD  to  determine  if  more  than  5 related  data  sets  were 
specified.  The  parameter  MAXSET  must  be  increased.  Refer  to  [1],  Sec- 
tion 7.3. 1.3,  for  the  routines  involved. 

ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  SPECIFIC  MATERIAL 

Fatal  The  materials  characterization  model  cannot  accept  more  than  50 
S/N  points  in  the  specific  material  data  set.  Check  file  BLDLCD  for  the  total 
number  of  points  in  the  specific  data  set  declared,  or  there  may  be  more 
than  50  S/N  points  with  an  incorrect  total  declaration.  If  more  than  50 
points  are  desired,  the  parameter  MAXDAT  must  be  increased.  Refer  to 
[1],  Section  7.3.1. 3.  for  the  routines  involved. 

ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL  ’J’ 

Fatal  No  more  than  3 life  regions  are  allowed,  and  an  attempt  has  been 
made  to  place  some  S/N  data  in  a region  number  greater  than  3.  Check  file 
RELATD  for  an  invalid  region  number  immediately  following  the  strain  ratio 
value  in  the  data  set  indicated. 

ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET 

Fatal  No  more  than  3 life  regions  are  allowed,  and  an  attempt  has  been 
made  to  place  some  S/N  data  in  a region  number  greater  than  3.  Check  file 
BLDLCD  for  an  invalid  region  number  immediately  following  the  strain  ratio 
value. 

ERROR:  POSTERIOR  INTERVAL  IN  REGION  ’L’  IS  INCONSISTENT  WITH  POINT 

POSTERIOR  IN  REGION  ’L-1’ 

Fatal  Check  file  DUMP  to  verify  that  the  point  posterior  value  of  m in 
region  ’L-1  ’ is  greater  than  the  upper  bound  of  the  posterior  credibility 
range  in  region  ’L’.  This  error  indicates  a violation  of  the  concavity  assump- 
tion. 

ERROR:  POSTERIOR  INTERVAL  IN  REGION  ’L’  IS  INCONSISTENT  WITH  THE 

POSTERIOR  INTERVAL  IN  REGION  ’L-1’ 

Fatal  Check  file  DUMP  to  verify  that  the  lower  bound  of  the  posterior 
credibility  range  of  m in  region  ’L-T  is  greater  than  the  upper  bound  of  the 
posterior  credibility  range  of  m in  region  ’L’.  The  data  should  be  checked 
for  consistency. 
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ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ’L’ 

Fatal  The  number  of  points  for  the  specified  prior  range  of  m in  the  indi- 
cated region  has  been  incorrectly  provided.  Check  file  BLDLCD  to  verify 
that  the  number  of  points  indicated  for  each  range  has  an  integer  value  of  0 
1,  or  2. 

ERROR:  STRAIN-TIME  HISTORY  TOO  LARGE 

Fatal  No  more  than  50  points  is  allowed  for  the  nominal  time  history  and 
an  attempt  has  been  made  to  use  a larger  history.  Check  file  BLDLCD  for  a 
value  of  NTIME  larger  than  50. 

ERROR:  SXY  > = 0 IN  REGION  ’L’ 

Fatal  During  the  linear  regression  calculations,  for  the  region  indicated, 
the  resulting  value  of  the  sample  covariance  Sj^y  was  found  to  be  non-nega- 
tive. This  suggests  that  the  data  is  specified  erroneously  or  is  inadequate 
for  analysis,  since  life  increasing  with  increasing  strain  contradicts  the  true 
fatigue  behavior  of  materials. 

ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN  REGION  ’L’ 

Fatal  The  materials  characterization  model  does  not  have  the  required 
minimum  number  of  points  in  the  region  indicated  to  perform  a linear  regres- 
sion. If  there  are  no  related  data  sets,  then  there  must  be  at  least  3 points 
in  each  region.  If  there  are  N related  data  sets,  then  the  total  number  of 
points  in  each  region  (specific  and  related  combined)  must  be  at  least 
N + 3. 

IMPOSSIBLE  M RANGE  IN  REGION  ’L’ 

Fatal  Concavity  constraints  during  the  random  m selection  have  required 
an  impossible  range  on  m for  the  region  indicated.  Take  note  of  all  input 
parameters  for  this  run,  and  consult  [1],  Sections  4.1. 5.1,  4.1. 5.2,  and  7.3, 
to  aid  in  identification  of  the  cause  of  this  error. 

NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE  ON  m IN  REGION  ’L’ 

Warning  This  means  that  the  estimate  of  m based  on  the  S/N  data  only,  in 
the  region  indicated,  is  outside  the  range  indicated  by  the  specified  con- 
straints on  m and  C. 

PROCESS  EXECUTION  TERMINATED 

Fatal  This  message  is  produced  by  routine  TRMNAT  and  follows  all  other 
fatal  messages. 
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6.2.7  Summary  of  input/Output  Files 

Input  Files 

BLDLCD 

This  file  is  opened  in  BLDLCF.  BLDLCD  has  the  following  elements:  parameters 
for  the  run  options;  driver  distributions:  values  for  nominal  strains  and  their  as- 
sociated parametric  sensitivity  coefficients;  and  the  specific  and  exogenous 
materials  input,  including  yield  and  ultimate  strengths  (%),  strain  ratio,  S/N  data 
points,  life  (cycles)  boundaries,  region  information,  coefficient  of  variation  con- 
straint, C,  and  prior  ranges  on  the  materials  shape  parameter  m for  each  region. 

RELATD 

This  file  is  opened  in  subroutine  INFAGG.  It  contains  the  related  material  data 
input,  including  yield  and  ultimate  strengths  (%),  strain  ratio,  S/N  data  points,  and 
region  information. 

Output  Files 

BLDLCO 

This  file  is  opened  in  BLDLCF.  It  contains  the  echo  of  the  information  contained  in 
BLDLCD  and  provides  the  simulated  failure  distribution  B-life  information.^ 

RELATO 

This  file  is  opened  in  subroutine  INFAGG.  It  contains  the  echo  of  the  information 
contained  in  RELATD. 

DUMP 

This  file  is  opened  in  BLDLCF.  It  contains  the  results  of  the  information  aggrega- 
tion portion  of  the  materials  model  calculations,  such  as  1^  and  Jo,  the  point  es- 
timates of  m and  C;  posterior  credibility  ranges  for  m;  and  a list  of  the  estimated 
values  for  all  S/N  curve  parameters.  See  [1],  Section  4.1. 

lOUTPR 

This  file  is  opened  in  BLDLCF.  It  contains  information  on  the  particular  run  that  is 
not  echoed  to  BLDLCO  and  the  data  dump  provided  when  the  variable  lOUT  is 
equal  to  10  (materials  characterization  calculations).  15  (Monte  Carlo  simulation 


A B-life  is  the  value  of  accumulated  operating  time  to  failure  at  a failure  probability  specified 
as  a percent;  e.g.,  B.l  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 
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and  driver  transformation  calculations),  or  20  (cycle  counting  and  damage  ac- 
cumulation). 

LOWLIF 

This  file  is  opened  in  BLDLCF.  It  contains  the  first  one  percent  of  the  calculated 
lives  used  by  the  software  described  in  [1],  Section  4.2,  to  calculate  a.  and  6, 
the  parameters  of  the  Bayesian  prior  failure  distribution. 


Reference 

[1]  Moore,  N.,  et  al.,  An  Improved  Approach  for  Flight  Readiness  CertificatiPD.^ 

Methodology  for  Failure  Risk  Assessment  and  Application  Examples.  JPL  Publica- 
tion 92-15,  Jet  Propuision  Laboratory.  California  Institute  of  Technology,  Pasadena, 
California,  June  1,  1992. 
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7.0  Structure  and  Listing  of  Programs 
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Section  7.1 

Crack  Growth  Analysis  Software  PROCRK 

ableT  and^hP^FOR^^^^  ‘'®r  ®^^P''°9rams,  descriptions  of  the  key  vari- 

PRorRK^Jo  n ^ 9'’°'^^  a'^a'ysis  code 

tion  ? p pertinent  crack  growth  methodology  is  given  in  Sec- 

tion s f ThP  description  of  the  program  and  the  flowcharts  are  given  in  Sec 
tion  5.1.  The  user  s guide  for  running  PROCRK  is  given  in  Section  6.1. 

7.1.1  Program  Tree  Structure 

program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  PROCRK  is  given  in  Figure  7.1-1.  The  prooram 
subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters.  ^ 

7.1.2  List  of  Subprograms 

nnmhorf  purposes  is  given  in  Table  7.1-1.  The  section 

next  to  th^names.®  subprograms  are  described  by  means  of  flowcharts  are  given 


7-3 


V i-  2 'V ; 1 


FfW©€Dtf-^ii  P-i-ii:  V’.AfiK  r^Oi 


Figure  7.1-1  Tree  Structure  for  Program  PROCRK 
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NAME 

BETAGN’ 

BLKGRO 

CYCOUN 

DETER4 

GAM 

GRODAT 

HYPDRW 

INPUT 

INSORT 

UFCAL 

M4L1 

M4L2 

NEUBER 

NORMGN^ 

PARDRW 

PROCRK 

PRYRV^ 

RANDOM^ 

SETDEF 

STRAN1 

STRAN2 

STRIFI 


Table  7.1-1  List  of  Subprograms  For  Program  PROCRK 
(Footnotes  are  at  the  end  of  the  table) 

SECTION 

PURPOSE 

4.4.5* 

Generates  Beta(a,  b,  p,  9)  random  variates. 

5.1.2.10 

Calculates  the  crack  growth  rate  per  load  block. 

5.1. 2.9 

Calculates  the  number  of  cycles  by  rainflow  counting,  creates  a 
stress  vs.  cycles  table,  and  determines  the  equivalent  mean  stress. 

5. 1.2.4 

Calculates  the  determinant  of  a 4x4  matrix. 

4.4.4* 

Generates  Gamma(a.  1)  random  variates. 

5. 1.2.4 

Reads  material  properties  and  performs  regression  on  crack  growth 
data. 

5. 1.2.5 

Performs  hyperparameter  draws  in  the  outer  loop. 

5. 1.2.3 

Reads  the  data  from  file  CRKDAT  and  echoes  the  data  to  file 
CRKRES. 

5.B* 

Performs  an  insertion  sort  for  the  lowest  one  percent  of  the  lives  cal- 
culated. 

5. 1.2. 7 

if 

Calculates  the  crack  growth  life. 

5. 1.3.3 

Performs  the  driver  transformation,  for  iocation  1,  the  exterior  sur- 
face of  the  duct. 

5. 1.3.3* 

Performs  the  driver  transformation,  for  location  2.  the  interior  sur- 
face of  the  duct. 

5. 1.3.6* 
* 

Calculates  the  equivalent  mean  stress  from  the  maximum  stress 
based  on  Neuber’s  rule.  See  Section  2.2. 1.4  of  [1], 

4.4.3 

Generates  Normal(u,  a random  variates. 

5. 1.2.6 

Performs  the  random  life  driver  parameter  draws  in  the  inner  loop. 

5.1.2.1 

* 

The  main  routine  that  controls  the  logical  flow  of  the  probabilistic 
crack  growth  analysis. 

7.6.6 

Generates  the  Uniform(a.  b)  and  Uniform(c.  d)  pair  of  independent 
random  variates. 

4.4.2* 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0,  1)  random  variates. 

5. 1.2.2 

Initiali2es  arrays  and  variables  and  sets  them  to  defeult  values. 

5.1. 2.8 

Derives  the  composite  principal  stress  history  for  the  HEX  coil. 

5. 1.2.8 

Derives  the  composite  principal  stress  history  for  the  EXHEX. 

5.1.2.11 

Calculates  the  stress  intensity  factor  coefficients  for  the  HEX  coil 
crack  configuration. 
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NAME 

STRIF2 

TRMNAT 


1 

2 

3 


Table  7.1-1  List  of  Subprograms  For  Program  PROCRK 
(Footnotes  are  at  the  erxl  of  the  table) 

SECTION  PURPOSE 

5. 1 .2. 1 1 Calculates  the  stress  intensity  factor  coefficients  for  the  EXHEX 
crack  configuration. 

4. 1 . 1 1 Performs  premature  program  termination,  when  required. 


See  [1]. 

The  Beta  distribution  is  discussed  in  [1],  Page  2-25. 

The  Normal  distribution  is  discussed  in  [1],  Page  2-23, 
The  Uniform  distribution  is  discussed  in  [1],  Page  2-23. 
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7.1.3  Description  of  Variables 

A list  of  variables  used  in  crack  growth  analysis  code.  PROCRK,  is  given  in  Table 
7.1-2.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the  vari- 
able type  ’ can  be  interpreted  as  follows:  CH6  is  a character  variable,  six  charac- 
ters long;  INT  is  a standard  integer  variable;  LOG  is  a standard  logical  variable;  RE 
is  a standard  real  variable;  and  DRE  is  a double  precision  variable.  The  various 
array  dimensions  are  defined  by  using  the  following  parameters-  MAXBLF 
MAXDAT,  MAXDIV,  MAXLD,  MAXLIF,  MAXM,  and  MAXSEG. 


Table  7.1-2  List  of  Variables  For  Program  PROCRK 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

type  DESCRIPTION 

AERD 

RE 

^Daero  If'  Equation  2-5,  the  randomly  selected  load 
scale  factor  for  the  AERoDynamic  load  com- 
ponents. 

AERDA 

RE 

Uniform  distribution  lower  bound  of  the 
aerodynamic  load  scale  factor. 

AERDB 

RE 

Uniform  distribution  upper  bound  of  the 
aerodynamic  load  scale  factor. 

AERS 

RE 

^STaero  I"  Equation  2-5,  the  rarxlomly  selected 
load  scale  factor  for  the  AERoStatic  load  com- 
ponents. 

AERSA 

RE 

Uniform  distribution  lower  bound  of  the  aerostatic 
load  scale  factor. 

AERSB 

RE 

Uniform  distribution  upper  bound  of  the  aerostatic 
load  sccile  factor. 

Al 

RE 

8j  (in.),  randomly  selected  initial  crack  dimension. 

AIA 

RE 

Lower  bound  of  the  Beta  distribution  on  a,-. 

AIB 

RE 

Upper  bound  of  the  Beta  distribution  on  a,. 

AIR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  a,-. 

AIR1 

RE 

Uniform  distribution  lower  bound  of  parameter  p in 
the  Beta  distribution  fora,-. 

AIR2 

RE 

Uniform  distribution  upper  bound  of  parameter  p in 
the  Beta  distribution  for  a,-. 

AIT 

RE 

Randomly  selected  Beta  distribution  location 
parameter  0 for  ay. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

AIT1 

RE 

Uniform  distribution  lower  bound  of  parameter  B in 
the  Beta  distribution  for  a,-. 

AIT2 

RE 

Uniform  distribution  upper  bound  of  parameter  B in 
the  Beta  distribution  for  a,-. 

ANGLE 

RE 

<p  (rad)  in  Equation  2-1,  the  angle  measured 
counterclockwise  from  Z-direction  to  the  critical  cir- 
cumferential location. 

AOC 

RE 

a/c,  the  randomly  selected  initial  crack  aspect  ratio. 

AOCA 

RE 

Lower  bound  of  the  Beta  distribution  on  a/c. 

AOCB 

RE 

Upper  bound  of  the  Beta  distribution  on  a/c. 

AOCR 

RE 

Randomly  selected  Beta  distribution  location 
parameter^  for  a/c. 

AOCR1 

RE 

Uniform  distribution  lower  bound  of  parameter/}  in 
the  Beta  distribution  for  a/c. 

AOCR2 

RE 

Uniform  distribution  upper  bouixJ  of  parameter/}  in 
the  Beta  distribution  for  a/c. 

AOCT 

RE 

Randomly  selected  Beta  distribution  location 
parameter  d for  a/c. 

AOCT1 

RE 

Uniform  distribution  lower  bound  of  parameter  B in 
the  Beta  distribution  for  a/c. 

AOCT2 

RE 

Uniform  distribution  upper  bound  of  parameter  B In 
the  Beta  distribution  for  a/c. 

ASTR 

RE 

^ROatr  Equation  2-5,  the  randomly  selected 
aerodynamic  stress  analysis  accuracy  factor. 

ASTRA 

RE 

Uniform  distribution  lower  bound  of  the 
aerodynamic  stress  analysis  accuracy  factor. 

ASTRB 

RE 

Uniform  distribution  upper  bound  of  the 
aerodynamic  stress  analysis  accuracy  factor. 

BLFPER(MAXBLF) 

RE 

1-D  array  containing  user-specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-life  is  the  value  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.1  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS 

INT 

The  index  for  the  array  variable  UFE( ) correspond- 

ing  to  the  user-requested  simulated  failure  distribu- 
tion B-lives  contained  in  variable  BLFPER( ). 
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Table  7.1-2  List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

type  DESCRIPTION 

CEE 

RE 

C in  Equation  2-7,  the  Generalized  Forman  model 
parameter. 

Cl 

RE 

Initial  crack  size  c,  (in.)  for  the  elliptic  surface  flaw. 

CO 

RE 

Cq  in  Equation  2-10,  threshold  stress  intensity  fac- 
tor (SIF)  AKjf^  model  parameter. 

COEXP 

RE 

a (/  ”R)  in  Equation  2-3,  the  Coefficient  of  thermal 
Expansion. 

DADB(2) 

RE 

Block  growth  rate  da/dB  in  the  “a"  and  “c"  direc- 
tions. 

DADN(MAXDIV,  MAXDAT) 

RE 

2-D  array  containing  the  crack  growth  rate 
(in./cycle)  in  the  da/dN  vs.  AK  data. 

DEE 

RE 

d in  Equation  2-10,  threshold  SIF  model 

parameter. 

DELK(MAXDIV,  MAXDAT) 

RE 

2-D  array  containing  the  SiF  range  (ksi  vTrT)  in  the 
daldN  vs.  AK  data. 

DESCRP 

CH40  Description  of  the  material. 

DK 

RE 

SIF  range  AK(ksi  vTrT). 

DKEFF 

RE 

Effective  SIF  range  AK^^  after  retardation  given  in 
Equation  2-16. 

DKTH 

RE 

Threshold  SIF  range  AKj^  (ksi  vTrT). 

DKTHO 

RE 

Threshold  SIF  range  (ksi  VlfT)  at  /?  = o used  in 
Equation  2-10. 

DLTAT 

RE 

DeLTA  T.  AT  (“R)  in  Equation  2-2,  the  temperature 
difference  across  the  wall  of  the  duct. 

DPCMU 

RE 

Value  of  (PCMUB  - PCMUA). 

DPCSiG 

RE 

Value  of  (PCSIGB  - PCSIGA). 

DSALT 

RE 

Bin  stress  interval  for  the  stress  level  vs.  number  of 
cycles  table  from  rainflow  counting. 

DSTR 

RE 

^DYNstr  Equation  2-5,  the  randomly  selected 
dynamic  stress  analysis  accuracy  factor. 

DSTRA 

RE 

Uniform  distribution  lower  bound  of  the  dynamic 
stress  analysis  accuracy  factor. 

DSTRB 

RE 

Uniform  distribution  upper  bound  of  the  dynamic 
stress  analysis  accuracy  factor. 

DTIMU 

RE 

Value  of  (TIMUB  - TIMUA). 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Conl’d) 


VARIABLE  NAME  TYPE 

DTISIG  RE 

OTOMU  RE 

DTOSIG  RE 

E(MAXSEG)  RE 

EM  RE 

EMM  RE 

ENN  RE 

FAIL  LOG 

FILNUM(MAXLD)  INT 

FK(10)  RE 

FTEST  LOG 

FTY  RE 

INDIA  RE 

INDIAA  RE 

INDIAB  RE 

INDIR  RE 

INDIR1  RE 

INDIR2  RE 

INDIT  RE 

INDIT1  RE 

INDIT2  RE 


DESCRIPTION 
Value  of  (TISIGB  - TISIGA). 

Value  of  (TOMUB  - TOMUA). 

Value  of  (TOSIGB  - TOSIGA). 

1-D  array  containing  the  strain  c values  for  the 
stress/strain  versus  strain  curve. 

£ (psi)  in  Equation  2-2,  Young’s  moduius  of  elas- 
ticity for  the  material. 

m in  Equation  2-7,  the  Generalized  Forman  model 
parameter. 

n in  Equation  2-7,  the  Generalized  Forman  model 
parameter. 

Unstable  crack  growth  indicator  when  K > . 

1 -D  array  containing  the  file  unit  numbers  for  the 
reference  time  history  files. 

1 -D  array  containing  values  of  F^,  Equation  2-3, 
used  to  find  stress  concentration  due  to  weid 
eccentricity, 

Used  to  test  for  existence  of  files. 

Material  yield  strength  (psi). 

Oy  (in.),  the  randomly  selected  inner  diameter. 

Lower  bound  of  the  Beta  distribution  on  Dy. 

Upper  bound  of  the  Beta  distribution  on  D,. 

Randomly  selected  Beta  distribution  location 
parameter /9  forDy. 

Uniform  distribution  lower  bound  of  parameter/?  in 
the  Beta  distribution  for  Oy. 

Uniform  distribution  upper  boutxf  of  parameter/?  in 
the  Beta  distribution  for  Oy. 

Randomiy  selected  Beta  distribution  location 
parameter  6 for  Oy. 

Uniform  distribution  lower  bound  of  piarameter  6 in 
the  Beta  distribution  for  Oy. 

Uniform  distribution  upper  bound  of  parameter  6 in 
the  Beta  distribution  for  Oy. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

type  description 

INEUB 

INT 

Neuber's  rule  controller.  INEUB  = 0,  no  Neuber’s 
equivalent  mean  stress  calculation:  INEUB  = 1,  in- 
clude Neuber’s  equivalent  mean  stress  calculation. 

lOUT 

INT 

Output  dump  controller.  lOUT  = 0,  no  intermediate 
caicuiation  output;  lOUT  = 15,  driver  sampling 
and  driver  transformation  caiculations;  lOUT  = 20, 
crack  grovrth  calcuiations;  lOUT  = 25,  stress  cal- 
culations; lOUT  = 30,  rainflow  cycle  counting. 

IREGOP 

INT 

Regression  options  for  Forman  growth  rate  Equa- 
tion 2-7.  IREGOP  = 0,  fixp  regress  for  C,  n,  m,  q\ 
IREGOP  = 1 , fix  m,  p regress  for  C,  n,  q;  IREGOP 
= 2,  fix  q,  p regress  for  C,  n,  m\  IREGOP  = 3,  fix 
m,  q,  p regress  for  C,  n;  IREGOP  = 4.  regress  for 
C,  n,  m,  q,  p. 

IRET 

INT 

Willenborg’s  retardation  model  controller.  IRET  = 

0,  no  growth  retardation;  IRET  = 1,  include  growth 
retardation. 

KC 

RE 

Critical  stress  intensity  factor  (ksi). 

KGROW 

INT 

Generaiized  Forman  coefficient  m controiier. 
KGROW  = 1 , no  m variation  will  be  included; 
KGROW  = 2,  allows  Uniform  variation  in  m. 

KLAM 

RE 

Randomly  selected  stress  intensity  factor  calcula- 
tion accuracy 

KLAMA 

RE 

Uniform  distribution  lower  bound  of  the  stress  inten- 
sity factor  caicuiation  accuracy. 

KLAMB 

RE 

Uniform  distribution  upper  bound  of  the  stress  in- 
tensity factor  caicuiation  accuracy. 

KMAX(2) 

RE 

Maximum  stress  intensity  factor  (ksi). 

KMAXEF 

RE 

Effective  maximum  stress  intensity  factor  gff 

after  retardation  given  in  Equation  2-1 2. 

KMIN(2) 

RE 

Minimum  stress  intensity  factor  (ksi). 

KMINEF 

RE 

Effective  minimum  stress  intensity  factor 
after  retardation  given  in  Equation  2-12. 

KOFF 

RE 

^OFF  Equation  2-3,  the  stress  concentration  fac- 
tor due  to  eccentricity  of  the  weld. 

KPROB 

INT 

Type  of  crack  growth  problem.  KPROB  = 1, 
analyze  the  HEX  coil  problem;  KPROB  = 2, 
analyze  EXHEX  problem. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

LAMGR 

TYPE 

RE 

LAMGRA 

RE 

LAMGRB 

RE 

LAMKC 

RE 

LAMKCA 

RE 

LAMKCB 

RE 

LAMKH 

RE 

LAMKHA 

RE 

LAMKHB 

RE 

LAMN 

RE 

LAMNA 

RE 

LAMNB 

RE 

LAMNC 

RE 

LAMND 

RE 

LAMNK 

RE 

LAMNMU 

RE 

DESCRIPTION 

Xg^Q  in  Equation  2-18,  the  randomly  selected  crack 
growth  accuracy  factor.  See  Section  2.2.4  for  a dis- 
cussion of  crack  growth  calculations. 

Uniform  distribution  lower  bound  of  the  crack 
growth  accuracy  factor. 

Uniform  distribution  upper  bound  of  the  crack 
growth  accuracy  factor. 

A/q.  in  Equation  2-8,  the  randomly  selected  critical 
stress  intensity  factor  uncertainty. 

Uniform  distribution  lower  bound  of  the  critical 
stress  intensity  factor  uncertainty. 

Uniform  distribution  upper  bound  of  the  critical 
stress  intensity  factor  uncertainty. 

in  Equation  2-8,  the  randomly  selected 
threshold  stress  intensity  factor  range  uncertainty. 

Uniform  distribution  lower  bound  of  the  threshold 
stress  intensity  factor  range  uncertainty. 

Uniform  distribution  upper  bound  of  the  threshold 
stress  intensity  factor  range  uncertainty. 

Xdrandom  in  Equation  2-5,  the  randomiy  selected 
load  scale  factor  for  the  narrow-band  random 
loads.  See  Section  2.1. 3.2  of  [1]  for  a description 
of  the  parameters  k,  coefficient  of  variation  C,  and 
strain  gage  factor  d. 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
narrow-band  random  load  scale  factor. 

Upper  bourKf  of  the  Uniform  distribution  of  k for 
the  narrow-band  random  load  scale  factor. 

Coefficient  of  variation  C for  the  narrow-band 
random  load  scale  factor. 

Strain  gage  correction  factor  d for  the  narrow-band 
random  load  scale  factor. 

Randomly  selected  k for  the  narrow-band  random 
load  scale  factor. 

The  resulting  mean,  //,  of  the  Normai  distribution 
for  the  narrow-band  random  load  scale  factor, 
where  fi  - d/(1  + kC). 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

type  description 

LAMNSG 

RE 

The  resulting  standard  deviation,  o,  of  the  Normal 
distribution  for  the  narrow-band  random  load  scale 
factor,  where  a = C/(1  + kC). 

LAMS 

RE 

^DsiNUSOiDAL  Equation  2-5,  the  randomly 
selected  load  scale  factor  for  the  superimposed 
sinusoidal  loads.  See  Section  2.1. 3.2  of  [1]  for  a 
description  of  the  parameters  k;  coefficient  of  varia- 
tion C;  and  strain  gage  factor  d. 

LAMSA 

RE 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAMSB 

RE 

Upper  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAMSC 

RE 

Coefficient  of  variation  C for  the  superimposed 
sinusoidal  load  scale  factor. 

LAMSD 

RE 

Strain  gage  correction  factor  d for  the  superim- 
posed sinusoidal  load  scale  factor. 

LAMSK 

RE 

Randomly  selected  k for  the  superimposed 
sinusoidal  load  scale  factor. 

LAMSMU 

RE 

The  resulting  mean,  of  the  Normal  distribution 
for  the  superimposed  sinusoidal  load  scale  factor, 
where /4  = d/(1  kC). 

LAMSSG 

RE 

The  resulting  standard  deviation,  a,  of  the  Normal 
distribution  for  the  superimposed  sinusoidal  load 
scale  factor,  where  a = C/(1  + kC). 

LAMW 

RE 

LAMbda  Weld  offset,  the  raixJomly  selected 
in  Equation  2-3,  the  accuracy  factor  for  the  weld 
offset  eccentricity  stress  concentration  factor,  Kqp^. 

LAMWA 

RE 

Uniform  distribution  lower  bound  of 

LAMWB 

RE 

Uniform  distribution  upper  bound  of  A^^p 

LDNAME(MAXLD) 

CH6 

1 *D  array  containing  LoaD  NAMEs  for  the  dynamic 
or  time-varying  loads.  These  are  the  names  of  the 
reference  time  history  files. 

LIFE(MAXLIF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  PROCRK.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

LOCAT 

INT 

Critical  location  of  interest  on  the  HEX  coil  wall 
where  1 is  the  exterior  surface  of  the  duct,  and  2 is 
the  interior  surface  of  the  duct. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

M(2,  MAXLD) 

RE 

2-D  array  containing  the  dynamic  or  time-varying 
moment  load  components.  M(l,*)  is  My  (in.-lbs)  in 
Equation  2-1 , the  moment  load  components  about 
the  y-axis;  and  M(2,*)  is  M^  (in.-lbs)  in  Equation 
2-1 , the  moment  load  components  about  the  z-axis. 

MAXBLF 

INT 

Maximum  number  of  B-lives  to  be  obtained  from 
the  simulated  failure  distribution.  The  maximum 
number  of  B-lives  allowed  is  10. 

MAXDAT 

INT 

Maximum  number  of  points  per  data  division  al- 
lowed for  dafdN  vs.  AK  curve.  The  maximum  num- 
ber of  data  points  per  division  allowed  is  200. 

MAXDIV 

INT 

Maximum  number  of  data  divisions  allowed  for 
daldN  vs.  AK  curve.  The  maximum  number  of 
data  divisions  sillowed  is  10. 

MAXLD 

INT 

Maximum  number  of  dynamic  or  time-varying  loads 
allowed.  The  maximum  number  of  loads  is  16. 

MAXLIF 

INT 

Maximum  number  of  crack  growth  lives  allowed  for 
the  simulated  failure  distribution.  The  maximum 
number  of  crack  growth  lives  to  be  saved  is  1000. 

MAXM 

INT 

Maximum  number  of  points  allowed  in  the  time 
history  arrays.  The  maximum  number  of  points  is 
20,000. 

MAXSEG 

INT 

Maximum  number  of  segments  2tilowed  in  the 
stress-strain  versus  strain  curve.  The  maximum 
number  of  segments  is  10. 

Ml 

RE 

/ (in."*)  in  Equation  2-1 , the  cross-sectional 
Moment  of  Inertia. 

MLAM(2,  MAXLD) 

RE 

2-D  array  containing  the  dynamic  or  time-varying 
moment  load  components  scaled  by  DSTR  or 
ASTR  and  LAMS,  LAMN,  or  AERD,  as 
appropriate,  according  to  variable  TYPE( ). 
MLAM(1,*)  is  My  (in. -lbs)  in  Equation  2-1,  the  mo- 
ment load  components  about  the  y-axis;  and 
MLAM(2,*)  is  M^  (in. -lbs)  in  Equation  2-1,  the  mo- 
ment load  components  about  the  z-axis. 

MSLAM(2) 

RE 

1- D  array  containing  the  static  moment  load  com- 
ponents scaled  by  ASTR,  and  AERS,  or  SSTR  as 
appropriate.  MSLAM(I)  is  My  (in.-lbs)  in  Equation 

2- 1 , the  moment  load  component  about  the  y-axis; 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME  TYPE 


MSTAT(2) 

RE 

MVAR 

RE 

MVARA 

RE 

MVARB 

RE 

NBIN(IOO) 

INT 

NBUFE 

INT 

NCRL 

INT 

NDIR 

INT 

NDIV 

INT 

NEUB 

RE 

NEUBA 

RE 

NEUBB 

RE 

NEWLIF 

INT 

NHYPER 

INT 

NUFE 

INT 

NLIFET 

INT 

NLOAD 

INT 

NP(MAXOIV) 

INT 

DESCRIPTION 
and  MSLAM(2)  is  (in.-lbs)  in  Equation  2-1,  the 
moment  load  component  about  the  z-axis. 

1-D  array  containing  the  static  moment  load  com- 
ponents. MSTAT(I)  \sMy  (in.-lbs)  in  Equation  2-1, 
the  moment  load  component  about  the  y-axis;  and 
MSTAT(2)  is  (in.-lbs)  in  Equation  2-1,  the  mo- 
ment load  component  about  the  z-axis. 

Randomly  selected  Fornian  coefficient  m. 

Uniform  distribution  lower  bound  of  the  Forman 
coefficient  m. 

Uniform  distribution  upper  bound  of  the  Forman 
coefficient  m. 

1 -D  array  containing  the  number  of  cycles  for  the 
stress  level  vs.  number  of  cycles  table  from 
rainflow  counting. 

Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution. 

Number  of  crack  lengths  for  life  calculations. 

Number  of  directions  to  grow  the  crack  In. 

Number  of  crack  growth  data  divisions. 

Randomly  selected  Neuber's  rule  model  accuracy 
factor 

Uniform  distribution  lower  bound  of  the  Neuber’s 
rule  model  accuracy  factor. 

Uniform  distribution  upper  bound  of  the  Neuber’s 
rule  model  accuracy  factor. 

Crack  growth  life  value  returned  from  call  to 
LIFCAL. 

The  outer  loop  size. 

The  inner  loop  size. 

Total  number  of  lives  calculated  by  program 
PROCRK.  Value  of  NHYPER  * NUFE. 

NLOAD  in  Equation  2-5,  the  number  of  dynamic  or 
time-varying  loads. 

1-D  array  containing  the  number  of  points  per  data 
division  for  the  material  da/dN  data  set. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

NRAN 

INT 

Number  of  RANdom  points.  Number  of  points  in 
the  reference  time  history. 

NU 

RE 

V in  Equation  2-2,  the  materiais  Poisson's  ratio. 

NUMSEG 

INT 

Number  of  segments  of  interest  in  stress-strain 
versus  strain  curve. 

P(MAXLD) 

RE 

1 -D  array  containing  P (lbs)  in  Equation  2-1 , the 
dynamic  or  time-varying  axiai  load  components. 

PC 

RE 

Pj  (psi)  in  Equation  2-1 , the  randomiy  seiected 
internai  pressure. 

PCMU 

RE 

Randomiy  seiected  Normai  distribution  parameter 
H for  the  internal  pressure  p,. 

PCMUA 

RE 

Uniform  distribution  iower  bound  of  parameter  in 
the  Normai  distribution  of  the  internal  pressure  p/. 

PCMUB 

RE 

Uniform  distribution  upper  bound  of  parameter in 
the  Normal  distribution  of  the  internal  pressure  p/. 

PCO 

RE 

Pq  (psi)  in  Equation  2-1 , the  external  pressure. 

PCSIG 

RE 

Randomly  selected  Normal  distribution  parameter 
a for  the  internal  pressure  Pj. 

PCSIGA 

RE 

Uniform  distribution  lower  bound  of  parameter  a in 
the  Normai  distribution  of  the  internal  pressure  p/. 

PCSIGB 

RE 

Uniform  distribution  upper  bound  of  parameter  a In 
the  Normal  distribution  of  the  internal  pressure  Pj. 

PEE 

RE 

p in  Equation  2-7,  the  Generalized  Forman  model 
parameter. 

PERIOD 

RE 

T (sec)  in  Equation  2-18,  the  length  of  time  in 
seconds  of  the  reference  time  history. 

PI 

RE 

ji,  constant  equal  to  3.1415926536... 

PLAM(MAXLO) 

RE 

1 -D  array  containing  P (lbs)  in  Equation  2-1 , the 
dynamic  or  time-varying  axial  load  components 
scaled  by  DSTR  or  ASTR  and  LAMN,  LAMS,  or 
AERD,  as  appropriate,  according  to  variable 
TYPE( ). 

PSLAM 

RE 

P (lbs)  in  Equation  2-1 , the  static  axial  load  com- 

ponent  scaled  by  ASTR,  aiid  AERS,  or  SSTR  as 
appropriate. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

PSTAT 

RE 

P (lbs)  in  Equation  2-1,  the  static  axial  load 
component. 

QUE 

RE 

q in  Equation  2-7,  the  Generalized  Forman  model 
parameter. 

RAND 

DRE  Random  number  seed. 

RDATA(MAXDIV) 

RE 

1 -D  array  containing  the  stress  ratio  for  growth  rate 
data  for  each  data  division. 

REFF 

RE 

Effective  stress  ratio  a^er  retarda- 

tion given  by  Equation  2-16. 

Rl 

RE 

Rj  (in.)  in  Equation  2-1 , the  duct  inner  radius. 

RO 

RE 

Rq  (in.)  in  Equation  2-1,  the  duct  outer  radius. 

ROT 

RE 

R Over  T.  the  value  of  the  ratio  R/t. 

RSO 

RE 

Willenborg  retardation  model  parameter  as  given  in 
Equation  2-13. 

RT(10) 

RE 

1 -D  array  containing  vaiues  of  R/t  used  in 
conjunction  with  Ff^.  Equation  2-3,  to  find  stress 
concentration  due  to  weld  eccentricity,  Kppp. 

SE(MAXSEG) 

RE 

1 -D  array  containing  values  of  the  product  of  stress 
and  strain  ae  for  each  segment  of  the  stress-strain 
versus  strain  curve. 

SPR(MAXM) 

RE 

1-D  array  containing  the  principal  stress-time  his- 
tory a(0  (psi).  Equation  2-5,  resulting  from  the  com- 
bination of  stresses  from  static,  narrow-band 
random,  superimposed  sinusoidal,  and 
aerodynamic  ioad  sources. 

SSTR 

RE 

^STstr  in  Equation  2-5,  the  randomly  selected  static 
stress  analysis  accuracy  factor. 

SSTRA 

RE 

Uniform  distribution  lower  bouixf  of  the  static 
stress  analysis  accuracy  factor. 

SSTRB 

RE 

Uniform  distribution  upper  bound  of  the  static 
stress  anaiysis  accuracy  factor. 

STATIC(4) 

RE 

1 -D  array  containing  values  of  the  static  stresses 
CTgj-  (psi).  Equation  2-5.  STATIC(I)  is  the  axial 
stress  STATIC(2).  STATIC(3),  and  STATIC(4) 

are  not  used  in  the  HEX  coil  or  EXHEX  analyses. 

STRAMP(4.  MAXLD) 

RE 

2-D  array  containing  values  of  the  amplitudes  of 
the  dynamic  or  time-varying  stresses  (psi). 
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Table  7.1-2  List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

Equation  2-5.  STRAMP(1,I)  Is  the  amplitude 

of  the  fth  axial  stress.  STRAMP(2,I),  STRAMP(3,I), 
and  STRAMP(4,I)  are  not  used  in  the  HEX  coil  or 
EXHEX  analyses. 

STRHIS(MAXLD,  MAXM) 

RE 

2-D  array  containing  a/(t),  Equation  2-5,  the 
reference  time  histories  for  the  dynamic  or  time- 
varying  load  components. 

SX(MAXLD) 

RE 

1-D  array  containing  the  time-varying  magnitude  of 
(psi)  stress  component. 

SXY(MAXLD) 

RE 

1 -D  array  containing  the  time-varying  magnitude  of 
Oxy  (psi)  stress  component. 

SXZ(MAXLD) 

RE 

1 -D  array  containing  the  time-varying  magnitude  of 
Oj(z  (P®')  stress  component. 

SXST 

RE 

Static  Cjf  (psi)  stress  component. 

SXYST 

RE 

Static  (psi)  stress  component. 

SXZST 

RE 

Static  Oj^  (psi)  stress  component. 

SY(MAXLO) 

RE 

1 -D  array  containing  the  time-varying  magnitude  of 
ay  (psi)  stress  component. 

SYZ(MAXLD) 

RE 

1 -D  array  containing  the  time-varying  magnitude  of 
Oy2  (psi)  stress  component. 

SZ(MAXLD) 

RE 

1 -D  array  containing  the  time-varying  magnitude  of 
(psi)  stress  component. 

SYST 

RE 

Static  Oy  (psi)  stress  component. 

SYZST 

RE 

Static  (psi)  stress  component. 

SZST 

RE 

Static  O;  (psi)  stress  component. 

T(MAXLD) 

RE 

1-D  array  containing  (in.-lbs)  the  dynamic  or 
time-varying  torsional  load  components.  Not  used 
in  the  HEX  coil  or  EXHEX  analysis. 

THIC 

RE 

t (in.),  the  randomly  selected  wall  thickness  at  the 
weld  used  to  calculate  the  area  A arxJ  outer  radius 
Rq  in  Equation  2-1 . 

THICA 

RE 

Lower  bound  of  the  Beta  distribution  on  t. 

THICB 

RE 

Upper  bound  of  the  Beta  distribution  on  t. 

THICR 

RE 

Randomly  selected  Beta  distribution  location 

parameter  p for  the  wall  thickness  t. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 
THICR1 

THICR2 

THICT 

THICT1 

THICT2 

TIN 

TIMU 

TIMUA 

TIMUB 

TISIG 

TISIGA 

TISIGB 

TOUT 

TOMU 


TYPE  DESCRIPTION 

RE  Uniform  distribution  lower  bound  of  parameter p In 
the  Beta  distribution  of  t. 

RE  Uniform  distribution  upper  bound  of  parameter p in 
the  Beta  distribution  of  t. 

RE  Randomly  selected  Beta  distribution  location 
parameter  d for  the  wall  thickness  t. 

RE  Uniform  distribution  lower  bound  of  parameter  6 in 
the  Beta  distribution  of  t. 

RE  Uniform  distribution  upper  bound  of  parameter  6 in 

the  Beta  distribution  of  t. 

RE  Tj  (“R),  the  randomly  selected  inner  wall  surface 
temperature,  used  to  calculate  AT  ('R),  the 
temperature  difference  across  the  wall  of  the  duct, 
given  in  Equation  2-2. 

RE  RarxJomly  selected  Normal  distribution  parameter 
p for  the  inner  wall  surface  temperature  Tj. 

RE  Uniform  distribution  lower  bouixJ  of  parameter;/  in 
the  Normal  distribution  of  the  inner  wall  surface 
temperature  Tj. 

RE  Uniform  distribution  upper  bound  of  parameter  p in 
the  Normal  distribution  of  the  inner  wall  surface 
temperature  Tj. 

RE  Randomly  selected  Normal  distribution  parameter 
o for  the  inner  wail  surface  temperature  T,. 

RE  Uniform  distribution  lower  bound  of  parameter  a in 
the  Normal  distribution  of  the  inner  Wcill  surface 
temperature  Tj. 

RE  Uniform  distribution  upper  bound  of  parameter  a in 
the  Normal  distribution  of  the  inner  wall  surface 
temperature  Tj. 

RE  Tj,  (*R),  the  randomly  selected  outer  wall  surface 
temperature,  used  to  calculate  AT  ("R),  the 
temperature  difference  across  the  wall  of  the  duct, 
given  in  Equation  2-2. 

RE  Randomly  selected  Normal  distribution  parameter 
p for  the  outer  wall  surface  temperature  T^. 
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Table  7.1-2 


List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME  TYPE 

TOMUA  RE 

TOMUB  RE 

TOSIG  RE 

TOSIGA  RE 

TOSIGB  RE 

TRUNC  RE 

TSTAT  RE 

TYPE(MAXLD)  INT 


V(2,  MAXLD)  RE 

VSTAT(2)  RE 

WIDTH  RE 

WITHA  RE 

WITHB  RE 


DESCRIPTION 

Uniform  distribution  lower  bound  of  parameter  n in 
the  Normal  distribution  of  the  outer  wall  surface 
temperature  Tq. 

Uniform  distribution  upper  bound  of  parameter  fi  in 
the  Normal  distribution  of  the  outer  wall  surface 
temperature  Tq. 

Raixlomly  selected  Normeil  distribution  parameter 

0 for  the  outer  wall  surface  temperature  Tg. 

Uniform  distribution  lower  bound  of  parameter  a in 
the  Normal  distribution  of  the  outer  wall  surface 
temperature  1^. 

Uniform  distribution  upper  bound  of  parameter  a in 
the  Normal  distribution  of  the  outer  wall  surface 
temperature  Tq. 

Value  used  to  filter  out  noise  in  the  principal  stress- 
time history  during  rainflow  cycle  counting.  See 
Section  2.2.1 .4  of  (1  ] for  a discussion  of  rainflow 
cycle  counting. 

Mjf  (in.-lbs),  the  static  torsional  load  component. 
Not  used  in  the  HEX  coH  or  EXHEX  analysis. 

1 -D  array  containing  the  type  of  dynamic  or  time- 
varying  load,  used  to  assign  the  appropriate  load 
scale  factors.  TYPE(*)  = 1,  use  the  narrow-band 
rarxJom  load  scale  foctor;  TYPE(*)  = 2,  use  the  su- 
perimposed sinusoidal  load  scale  factor;  and 
TYPE(*)  = 3,  use  the  aerodynamic  load  factor. 

2-0  array  containing  the  time-varying  shear  load 
components  Vy  and  (lbs).  Not  used  in  the  HEX 
coil  or  EXHEX  analysis. 

1-D  array  containing  the  static  shear  load  com- 
ponents Vy  and  (lbs).  Not  used  in  the  HEX  coil 
or  EXHEX  analysis. 

W (in.),  the  randomly  selected  plate  width  used  to 
calculate  the  SIF  for  the  EXHEX  crack  configura- 
tion. 

Lower  bound  of  Beta  distribution  for  IV. 

Upper  bouixJ  of  Beta  distribution  for  IV. 
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List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

WITHR 

RE 

Randomly  selected  Beta  distribution  location 
parameter /o  for  the  width  \N. 

WITHR1 

RE 

Uniform  distribution  iower  bourKi  of  parameter  p in 
the  Beta  distribution  of  IV. 

WITHR2 

RE 

Uniform  distribution  upper  bound  of  parameter  p in 
the  Beta  distribution  of  IV. 

WITHT 

RE 

Randomly  selected  Beta  distribution  location 
parameter  S for  the  width  IV. 

WITHT1 

RE 

Uniform  distribution  iower  bound  of  parameter  6 in 
the  Beta  distribution  of  IV. 

WITHT2 

RE 

Uniform  distribution  upper  bound  of  parameter  6 in 
the  Beta  distribution  of  W. 

WOFF 

RE 

^Off  Equation  2-3,  the  randomly  selected  Weld 
OFFset  (%). 

WOFFA 

RE 

Lower  bound  of  the  first  Beta  distribution  on  V^Qff. 

WOFFB 

RE 

Upper  bound  of  the  first  Beta  distribution  on  Woff- 

WOFFC 

RE 

Lower  bourKi  of  the  secorxf  Beta  distribution  on 

^OFF- 

WOFFD 

RE 

Upper  bound  of  the  second  Beta  distribution  on 

'^OFF- 

WOFFE 

RE 

Decimal  equivalent  percentage  weight  occurring  in 
the  first  Beta  distribution  of  the  weld  offset 

WOFFHI 

RE 

Upper  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset 

WOFFLO 

RE 

Lower  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset  Wq^p 

WOFFR 

RE 

Randomly  selected  Beta  distribution  location 
parameter/)  for  the  weld  offset  Wq^p 

WOFFR1 

RE 

Uniform  distribution  lower  bound  of  parameter  p in 
the  first  Beta  distribution  of  Wopp. 

WOFFR2 

RE 

Uniform  distribution  upper  bound  of  parameter/)  in 
the  first  Beta  distribution  of  Wqpp- 

WOFFR3 

RE 

Uniform  distribution  lower  bound  of  parameter  p in 
the  second  Beta  distribution  of  W^pp 

WOFFR4 

RE 

Uniform  distribution  upper  bouixJ  of  parameter  p in 
the  second  Beta  distribution  of  Wq^p 
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List  of  Variables  For  Program  PROCRK  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

WOFFT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  the  weld  offset  Wq^^. 

WOFFT1 

RE 

Uniform  distribution  lower  bound  of  parameter  d in 
the  first  Beta  distribution  of 

WOFFT2 

RE 

Uniform  distribution  upper  bound  of  parameter  6 in 
the  first  Beta  distribution  of 

WOFFT3 

RE 

Uniform  distribution  lower  bound  of  parameter  6 in 
the  second  Beta  distribution  of  WQpp. 

WOFFT4 

RE 

Uniform  distribution  upper  bouixl  of  parameter  6 in 
the  second  Beta  distribution  of  Wppp. 
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^**Z^X**yt****************************************************it**»***itir*** 

C probabilistic  CRACK  GROWTH  PROGRAM 

C 

c 
c 
c 
c 
c 
c 
c 

c 

C*****************i*********^r**^r**^,********1,^,i,^,^,^,^,^,^^^^,^,^,^,^^^,^^^^^^^^^^^^^^^ 
PROGRAM  PROCRK 


THIS  PROGRAM  DRAWS  MANY  ROUTINES  FROM  PROGRAM  HEXHCF  (JPL  PUB  92-15) 

DATE:  DECEMBER  1992 

VERSION:  92.5 

<0)  1991,  Califprnia  Institute  of  Technology, 
is  actowledged  under  NASA  Contract  NAS7-918 


C SUBPROGRAMS:  SETDEF,  INPUT,  GRODAT,  HYPDRW,  PARDRW,  LIFCAL,  INSOOT* 

C FILES:  1 :CRKDAT-OLD;  3 : CRKRES-NEW;  8 ;IOUTPR-NEW; 

c 9 :LOWLlF-NEW;  11-26 :user  nloned-OLD 

C=============;^ 

c IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXLD,  MAXLIF,  MAXM,  MAXSEG 
^PARAMETER  (M^LF  =^10^  M^D^= 

INTEGER  BIJPOS  I lOUT  ^ K LO^T,  NBLIFE,__ NDIR, 


^^IFET,'NL5Mr6RAS, 

NUM,  NUMSEG,  TYPE (MAXLD) 


INTEGER  INEUB,  IRET,  KGROW,  KPROB 
DOUBLE  PRECISION  RAND 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


REAL 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

£t 


REAL 


AOCA,  AOCB,  AOCR,  AOCRl, 

t^raA(SFt?  cIe,""??!^ 

COEXP,  DEE,  / / f 

DKTHO,  DLTAT,  DPCMU,  DPCSIG,  DSTR,  DSTRA  DSTRS 

ite; 

KLAMB,  lamkh,  lamkha,  lamkhb, 

^-AMKCB,  lamgr,  lamgra,  lamgrb, 

LAMNC,  LAMND,  LAMNMU,  LAMNSG, 
LAMSC,  LAMSD,  LAMSMU,  LAMSSG, 
LAMW,  LAMWA,  LAMWB,  LIFE (MAXLIF) 

M(2,  MAXLD),  MSTAT(2), 

MVAR,  MVARA,  MVARB,  NEUB,  NEUBA,  NEUBB.  NEWLIF  NU 

PCMUB,  Pc5,'Pci^,  f>CS?GA, 
PCSIGB,  PEE,  PERIOD,  PSTAT,  OUE,  RSO, 

SE(MAXSEG),  SSTR,  SSTRA, 

SSTRB,  STRHIS (MAXLD,  MAXM),  SX ( MAXLD ) , SXST 

> L S^^ST , SXZ  ( MAXLD)  , ' ^T  ' sf(tdxu»  . 

, SYZST,  SZ  (MAXLD),  SZST,  ^ 

“PBIC,  THICA,  THICB,  THICR,  THICRl, 

THICTI,  THICT^,  TIMU,  TIMUA, 

TIMUB,  TISIG,  TISIGA,  TISIGB,  TOMU, 

TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB, 

TRUNC,  TSTAT,  V(2,  MAXLD). 

VSTAT ( 2 ) , WIDTH , WITHA, 

WPTHRI,  WITHR2,  WITHTl,  WITHT2,  WITHR.  WITHT 
WOFF,  WOFFA,  WOFFB,  WOFFC,  WOFFD,  ' 

WOFFE,  WOFFHI , WOFFLO,  WOFFR,  WOFFRl.  WOFFR2  WOFFR3 
WOFFR4,  WOFFT,  WOFFTi;  WOFFT^,  WO^S,  WOFTT4 


CHARACTER* 6 LDNAME (MAXLD ) 
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COMMON/LOADS/NLOAD,  PSTAT,  TSTAT,  MSTAT,  VSTAT,  TYPE, 

& P,  T,  M,  V,  PCO,  SXST,  SYST,  SZST,  SXYST, 

& SXZST,  SYZST,  SX,  SY,  SZ,  SXY,  SXZ,  SYZ 

COMMON/DRIVRS/  AERDA,  AERDB,  AERSA,  AERSB,  AIA, 

& AIB,  AIRl,  AIR2,  AITl,  AIT2,  AIR,  AIT, 

& AOCA,  AOCB,  AOCRl,  AOCR2,  AOCTl,  AOCT2,  AOCR,  AOCT, 

& ASTRA  ASTRH 

& DPCMU!  DPCSIG,  DSTRA,  DSTRB-  DTIMU,  DTISIG,  DTOMU,  DTOSIG, 

& INDIAA,INDIAB,INDIR1,  INDIR2,  INDIR,  INDITI,  INDIT2,  INDIT, 

& KLAMA,  KLAMB,  LAMGRA,  LAMGRB,  LAMKHA,  LAMKHB,  LAMKCA,  LAMKCB, 

& LAMNA,  LAMNB,  LAMNC,  LAMND,  LAMNHU,  LAHNSG, 

& LAMSA,  LAMSB,  LAMSC,  LAMSD,  LAMSMU,  LAMSSG, 

& LAMWA,  LAMWB,  MVARA,  MVARB,  NEUBA,  NEUBB, 

& PCMU,  PCMUA,  PCMUB,  PCSIG,  PCSIGA,  PCSIGB, 

& RAND, 

& SSTRA,  SSTRB, 

& THICA,  THICB,  THICRl,  THICR2,  THICR,  THICTl,  THICT2,  THICT, 

& TIMU,  TIMUA,  TIMUB,  TISIG,  TISIGA,  TISIGB, 

& TOMU,  TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB, 

& WITHA,  WITHB,  WITHRl,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT, 

& WOFFA,  WOFFB,  WOFFC,  WOFFD,  WOFFE,  WOFFHI,  WOFFLO, 

& WOFFRl,  WOFFR2,  WOFFR3,  WOFFR4,  WOFFR,  WOFFTl,  WOFFT2, 

& WOFFT3,  WOFFT4,  WOFFT 

COMMON/CNTRL/INEUB,  I RET,  KGROW,  KPROB 

COMMON/NAMES/LDNAME 

COMMON  lOUT 

c** ★*★**★★★★★★*★★★★★★**★★*★★★ ★♦★★★★★★★★★**^***************^**********^’^* 
C IMPORTANT  VARIABLES  IN  PROCRK 

C****  ★***★*★★****  ♦♦*******^************’<^************************^^****** 

c 

C AERD 
C AERDA 
C AERDB 
C AERS 
C AERSA 
C AERSB 
C AI 
C AIA 
C AIB 
C AIR 
C AIRl 
C AIR2 
C AIT 
C AITl 
C AIT2 
C ANGLE 
C 

C AOC 
C AOCA 
C AOCB 
C AOCR 
C AOCRl 
C AOCR2 
C AOCT 
C AOCTl 
C AOCT2 
C ASTR 
C ASTRA 
C 

C ASTRB 
C 

C BLFPERO 
C BLFPOS 
C CEE 
C Cl 
C CO 
C COEXP 
C DADB(2) 

C DADN( ) 


BETA  HYPER- 

DISTRIBUTION 

PARAMETERS 


ACCURACY  FACTOR  FOR  AERO  DYNAMIC  LOADS 

AERO  DYNAMIC  LOADS  ACCURACY  UNIFORM  DISTRIBUTION  LOWER  BOUND 
AERO  DYNAMIC  LOADS  ACCURACY  UNIFORM  DISTRIBUTI<»i  UPPER  BOUND 
ACCURACY  FACTOR  FOR  AERO  STATIC  LOADS 

AERO  STATIC  LOADS  ACCURACY  UNIFORM  DISTRIBUTION  LOWER  BOUND 
AERO  STATIC  LOADS  ACCURACY  UNIFORM  DISTRIBUTION  UPPER  BOUND 
INITIAL  CRACK  DIMENSION  ”a*' 

INITIAL  CRACK  LOWER  BOUND 
INITIAL  CRACK  UPPER  BOUND 
INITIAL  CRACK  CHOSEN  RHO 
INITIAL  CRACK  RHO  LOWER  BOUND 
INITIAL  CRACK  RHO  UPPER  BOUND 
INITIAL  CRACK  CHOSEN  THETA 
INITIAL  CRACK  THETA  LOWER  BOUND 
INITIAL  CRACK  THETA  UPPER  BOUND 
ANGLE  THETA  MEASURED  COUNTER-CLOCKWIBfi  FROM  THE  Z-DiraCTION 
GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS 
SHAPE  “a/c” 

LOWER  BOUND 
UPPER  BOUND 
CHOSEN  RHO 
RHO  LOWER  BOUND 
RHO  UPPER  BOUND 
CHOSEN  THETA 
THETA  LOWER  BOUND 
THETA  UPPER  BOUND 


SHAPE 

SHAPE 

SHAPE 

SHAPE 

SHAPE 

SHAPE 

SHAPE 

SHAPE 


BETA  HYPER- 
DISTRIBUTION 
PARAMETERS 


FOR  CALCULATIONS 

INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
AERODYNAMIC 
AERODYNAMIC 
BOUND 

AERODYNAMIC  STRESS  ANALYSIS  ACCURACY  UNIFORM  DISTRIBUTION  UPPER 
BOUND 

1-D  ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  CALCULATED 

POSITION  IN  LIFE()  OF  EMPIRICAL  BLIVES 

COEFFICIENT  ”C”  IN  THE  GENERALIZED  FORMAN  MODEL 

INITIAL  CRACK  SIZE 

THRESHOLD  MODEL  COEFFICIENT  ”Co” 

COEFFICIENT  OF  THERMAL  EXPANSION 

BLOCK  GROWTH  RATE  da/dB  ( l=a  DIRECTION,  2=C  DIRECTION) 

GROWTH  RATE  DATA  ARRAY  da/dN 


STRESS  ANALYSIS  ACCURACY^ 

STRESS  ANALYSIS  ACCURACY  UNIFORM  DISTRIBUTION  LOWER 
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C DEE 
C DELK( ) 
C DESCRP 
C DK 
C DKEFF 
C DKTH 
C DKTHO 
C DLTAT 
C 

C DPCMU 
C DPCSIG 
C DEALT 
C DSTR 
C DSTRA 
C DSTRB 
C DTIMU 
C DTISIG 
C DTOMU 
C DTOSIG 
C E() 

C EM 
C EMM 
C ENN 
C FAIL 
C 

C FILNUM( 
C 

C FK(10) 

C FTEST 
C FTY 
C INDIA 
C INDIAA 
C INDIAB 
C INDIR 
C INDIRl 
C INDIR2 
C INDIT 
C INDITl 
C INDIT2 
C INEUB 
C lOUT 
C IRET 
C 

C IREGOP 
C KC 
C KGROW 
C 

C KLAH 
C KLAMA 
C KLAMB 
C KMAX() 

C KMAXEF 
C KMIN() 

C KMINEF 
C KOFF 
C KPROB 
C LAMGR 
C LAMGRA 
C LAMGRB 
C LAMKC 
C LAMKCA 
C LAMKCB 
C LAMKH 
C LAMKHA 
C LAMKHB 
C LAMN 
C LAMNA 
C LAMNB 
C LAMNC 
C LAMND 
C LAMNK 
C 

C LAMNMU 
C 

C LAMNSG 


BETA  HYPER- 
DISTRIBUTION 
PARAMETERS 


THRESHOLD  MODEL  COEFFICIENT  "d” 

SIF  RANGE  FOR  GROWTH  RATE  DATA 
DESCRIPTION  OF  THE  MATERIAL  DATA 
SIF  RANGE 

EFFECTIVE  SIF  RANGE  AFTER  RETARDATION 
THRESHOLD  SIF  RANGE 

THRESHOLD  MODEL  COEFFICIENT  "DKtho" 

TEMPERATURE  DIFFERENCE  BETWEEN  INNER  AND  OUTER 
SURFACES  — DeLTA  (Ti  - To) 

EQUAL  TO  PCMUB  - PCMUA 
EQUAL  TO  PCSIGB  - PCS IGA 

STRESS  LEVEL  VS.  NUMBER  OF  CYCLES  TABLE 
DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR 
STRESS  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
STRESS  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
EQUAL  TO  TIMUB  - TIMUA 
EQUAL  TO  TISIGB  - TISIGA 
EQUAL  TO  TOMUB  - TOMUA 
EQUAL  TO  TOSIGB  - TOSIGA 

1-D  ARRAY  WHICH  CONTAINS  THE  STRAIN  VALUES 
ELASTIC  MODULUS 

COEFFICIENT  "m"  IN  THE  GENERALIZED  FORMAN  MODEL 
COEFFICIENT  "n"  IN  THE  GENERALIZED  FORMAN  MODEL 
LOGICAL  VARIABLE  TO  INDICATE  UNSTABLE  CRACK. 

K GREATER  THAN  Kcr 

CONTAINING  UNIT  NUMBER  FOR  STRESS-TIME  HISTORIES 

FZLiES 

I7D  ARRAY  WITH  Fk  VALUES  OF  THE  Fk  VS.  Rt  CURVE 
File  TEST  — USED  TO  TEST  EXISTENCE  OF  FILE 
MATERIAL  YIELD  STRENGTH 

SELECTED  INTERIOR  DIAMETER  ' 

INTERIOR  DIAMETER  LOWER  BOUND 
INTERIOR  DIAMETER  UPPER  BOUND 
SELECTED  RHO  FOR  INTERIOR  DIAMETER 
INTERIOR  DIAMETER  - RHO  LOWER  BOUND  '\ 

INTERIOR  DIAMETER  - RHO  UPPER  BOUND  / 

SELECTED  THETA  FOR  INTERIOR  DIAMETER 
INTERIOR  DIAMETER  - THETA  LOWER  BOUND 
INTERIOR  DIAMETER  - THETA  UPPE31  BOUND  / 

NEUBER'S  RULE  CONTROL  ( 1=INCLUDE,  0=EXCLUDE) 

CONTROLS  DUMP  TO  SCREEN /PRINTER  ' 

RETARDATION  MODEL  CONTROLLER  ( 1=INCLUDE, 

U— £XCLuDE ) ^ 

FORMAN  EQUATION  REGRESSION  OPTION 
CRITICAL  STRESS  INTENSITY  FACTOR  KC 

generalized  FORMAN  COEFFICINET  m (C(MJST=1, 

STRESS  IN'IeNSITY  FACTOR  CALCULATION  ACCURACY 

ACCURACY  UNIFORM  DISTRIBUTION  LOWER  BOUND 
^IMUM^^^^°*^  accuracy  UNIFORM  DISTRIBUTION  UPPER  BOUND 

MINIMUM^  maximum  SIF  AFTER  RETARDATION 

EFFECTIVE  MINIMUM  SIF  AFTER  RETARDATION 
STRESS  CONCENTRATION  DUE  TO  WELD  OFFSET 
TYPE  OF  PROBLEM  (HEX  COIL  = 1,  EXHEX  = 2^ 

GROWTH  CALCULATION  ACCURACY  FACTOR  ^ 

accuracy  uniform  DISTRIBUTION  LOWER  BOUND 

c^¥?^aE^?^?^Sncerta™t^  distribution  upper  bound 

UNCERTAINTY  UNIFORM  DISTRIBUTION  LOWER  BOUND 

distribution  UPPER  S 

SIGMA  NARROW-BAND  RANDOM  LOADS 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  — LOWER  BOUND  OF  k 
narrow-band  random  LOADS  — UPPER  BOUND  OF  k 
FOR  NARROW-BAND  RANDOM  LOADS  COEFFICIENT  OF  VARIATION 
random  loads  STRAIN  GAGE  ACCURACY  FACTOR 

^^^ui\o°SA^S°sizE^^  random  loads  k — INDICATES  VARIATION 
^^^STRIBU^ON)^°^  narrow-band  RANDOM  LOADS  (MU,  NORMAL 
STANDARD  DEVIATION  OF  LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS 
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c 

C LAMS 
C LAMSA 
C LAMSB 
C LAMSC 
C LAMND 
C LAMSK 
C 

C LAMSMU 
C 

C LAMSSG 
C 

C LAMW 
C 

C LAMWA 
C LAMWB 
C LDNAMEO 
C LIFE() 

C 

C LOCAT 
C 

C M() 

C 

C MAXBLF 
C MAXDAT 
C MAXDIV 
C MAXLD 
C MAXLIF 
C MAXM 
C MAXSEG 
C MI 
C MLAM(  ) 

C 

C 

C 

C MSLAMO 

C 

C 

C MSTATO 
C 

C MVAR 
C MVARA 
C MVARB 
C NBIN(IOO) 
C NBLIFE 
C NCRL 
C NDIR 
C NDIV 
C NEUB 
C NEUBA 
C NEUBB 
C NEWLIF 
C NHYPER 
C 

C NLIFE 
C NLIFET 
C NLOAD 
C NORM 
C 

C NP(  ) 

C 

C NRAN 
C NU 

C NUMSEG 


C PCMU 
C PCMUA 
C PCMUB 
C PCO 
C PCSIG 
C 

C PCSIGA 
C PCSIGB 
C PEE 


(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — LOWER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — UPPER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  COEFFICIENT  OF  VARIATION 
SUPERIMPOSED  SINE  LOADS  STRAIN  GAGE  ACCURACY  FACTOR 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  k — INDICATES  VARIATION 
DUE  TO  SAMPLE  SIZE 

MEAN  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  (MU,  NORMAL 
DISTRIBUTION) 

STANDARD  DEVIATION  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  ACCURACY  FACTOR  FOR  WELD  ECCENTRICITY  STRESS 
CONCENTRATION  FACTOR,  Koff 
LAMW  LOWER  BOUND 
LAMW  UPPER  BOUND 

1-D  ARRAY  CONTAINING  LoaD  NAMES  FOR  THE  TIME-VARYING  LOADS 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED 
— SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 

LOCATION  OF  INTEREST  WHERE  1 IS  THE  EXTERIOR  SURFACE  OF  THE 
DUCT,  AND  2 IS  THE  INTERIOR  SURFACE  OF  THE  DUCT 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 
ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  PERCENTAGE  PROBABILITY  LEVELS 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  DIVISION  ALLOWED 

MAXIMUM  NUMBER  OF  DATA  DIVISIONS  ALLOWED 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 

MAXIMUM  NUMBER  OF  CRACK  GROWTH  LIVES  ALLOWED 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 

MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED  ( STRESS -STRAIN  CURVE) 

MOMENT  OF  INERTIA  FOR  DUCT 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  SCALED 
BY  DSTR  OR  ASTR  AND  LAMS,  LAMN,  OR  AERD  AS  APPROPRIATE 
(INDICATED  BY  TYPE(})  — MLAM(1,*)  ARE  THE  M2  LOADS; 
MLAM(2,*)  ARE  THE  M3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  LOADS  SCALED  BY  ASTR 

AND  AERS  OR  SSTR  AS  APPROPRIATE  — MSLAM(l)  IS  THE  M2  LOAD; 
MSLAM(2)  IS  THE  M3  LOAD 

1-D  ARRAY  CONTAINING  THE  STATIC  LOADS  — MSTAT(l)  IS  THE  M2 
LOAD;  MSTAT(2)  IS  THE  M3  LOAD 
SELECTED  FORMAN  COEFFICIENT  m 

FORMAN  COEFFICIENT  m UNIFORM  DISTRIBUTION  LOWER  BOUND 
FORMAN  COEFFICIENT  m UNIFORM  DISTRIBUTION  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  CYCLES  AFTER  RF  COUNTING 
NUMBER  OF  BLIVES  TO  BE  CALCULATED 

NUMBER  OF  CRACK  LENGTHS  FROM  Ai  TO  Af  TO  DO  GROWTH  INTEGRATION 
NUMBER  OF  DEGRESS  OF  FREEDOM  FOR  CRACK  GROWTH  ( 1 OR  2 ) 

NUMBER  OF  DIVISIONS  OF  GROWTH  RATE  DATA 
SELECTED  NEUBER'S  RULE  MODEL  ACCURACY  FACTOR 
NEUB  UNIFORM  DISTRIBUTION  LOWER  BOUND 
NEUB  UNIFORM  DISTRIBUTION  UPPER  BOUND 
LIFE  VALUE  RETURNED  FROM  CALL  TO  LIFCAL 
NUMBER  OF  SETS  OF  HYPERPARAMETER  DISTRIBUTIONS  TO  BE 
SAMPLED  FROM 

NUMBER  OF  DUCT  FAILURE  LIVES  TO  BE  CALCULATED 
TOTAL  NUMBER  OF  LIVES  CALCULATED 
NUMBER  OF  TIME-VARYING  LOADS 

RANDOM  VARIABLE  (SOMETIMES  UNIFORM,  SOMETIMES  NORMAL)  USED 
TO  OBTAIN  SELECTED  TEMPERATURES  AND  PRESSURE 
1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  PER  DATA  DIVISION 
FOR  CRACK  GROWTH  RATE  DATA 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 
POISSON'S  RATIO 

NUMBER  OF  SEGMENTS  OF  INTEREST  IN  STRESS-STRAIN  CURVE 
1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 
SELECTED  INTERNAL  PRESSURE,  PSI 

SELECTED  MEAN  OF  NORMALLY  DISTRIBUTED  INTERNAL  PRESSURE 
MEAN  OF  INTERNAL  PRESSURE  LOWER  BOUND 
MEAN  OF  INTERNAL  PRESSURE  UPPER  BOUND 
EXTERNAL  PRESSURE,  PSI 

SELECTED  STANDARD  DEVIATION  OF  NORMALLY  DISTRIBUTED 
INTERNAL  PRESSURE 

STANDARD  DEVIATION  OF  INTERNAL  PRESSURE  LOWER  BOUND 
STANDARD  DEVIATION  OF  INTERNAL  PRESSURE  UPPER  BOUND 
COEFFICIENT  IN  THE  GENERALIZED  FORMAN  MODEL 
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C PERIOD 
C PI 

C PLAM( ) 

C 

C 

C PSLAM 
C 

C PSTAT 
C QUE 
C RAND 
C RDATA( ) 
C REFF 
C RI 
C RO 
C ROT 
C RSO 
C RT(IO) 

C SE(  ) 

C 

C SPR( ) 

C SSTR 
C SSTRA 
C SSTRB 
C STATIC ( ) 
C STRAMP ( ) 
C STRHISO 
C 

C SX() 

c 

C SXY{  ) 

C 

C SXZ  ( ) 

c 

C SXST 
C SXYST 
C SXZST 
C SY(  ) 

C 

C SYZ ( ) 

C 

C SZ() 

c 

C SYST 
C SYZST 
C SZST 
C T() 

C TEST 
C 

C THIC 
C THICA 
C THICB 
C THICR 
C THICRl 
C THICR2 
C THICT 
C THICTl 
C THICT2 
C TIN 
C TIMU 
C TIMUA 
C TIMUB 
C TISIG 
C TISIGA 
C TISIGB 
C TOUT 
C TOMU 
C TOMUA 
C TOMUB 
C TOSIG 
C TOSIGA 
C TOSIGB 
C TSTAT 
C TRUNC 
C TYPE() 


LENGTH  OF  TIME  IN  SECONDS  OF  STRESS-TIME  HISTORY 
CONSTANT  FOR  THE  VALUE  3.14.. 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS  SCALED 
BY  DSTR  OR  ASTR  AND  LAMS,  LAMN,  OR  AERD, 

AS  APPROPRIATE  (INDICATED  BY  TYPE () ) 

STATIC  AXIAL  LOAD  SCALED  BY  ASTR  AND  AERS  OR  SSTR  AS 
APPROPRIATE 
STATIC  AXIAL  LOAD 

COEFFICIENT  IN  THE  GENERALIZED  FORMAN  MODEL 

RANDOM  NUMBER  SEED 

STRESS  RATIO  R FOR  GROWTH  RATE  DATA 
EFFECTIVE  STRESS  RATIO  AFTER  RETARDATION 
INNER  RADIUS  FOR  DUCT 
OUTSIDE  RADIUS  FOR  DUCT 
RATIO  R/t 

WILLENBORG  RETARDATION  MODEL  CONSTANT 

l-D  ARRAY  CONTAINING  THE  R/t  VALUES  OF  THE  Fk  VS.  Rt  CURVE 
1-D  ARRAY  OF  PRODUCT  OF  STRESS  AND  STRAIN  FOR  EACH  SEGMENT  OF 
THE  STRESS-STRAIN  VS  STRAIN  CURVE 
PRINCIPAL  STRESS  HISTORY  (MAXM) 

SELECTED  STATIC  STRESS  ANALYSIS  ACCURACY 
SSTR  UNIFORM  DISTRIBUTION  LOWER  BOUND 
SSTR  UNIFORM  DISTRIBUTION  UPPER  BOUND 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
2-D  ARRAY  CONTAINING  THE  AMPLITUDES  FOR  THE  TIME- VARYING 

STRESS-TIME  HISTORIES 

^^COMPOOTNT^^  time- VARYING  MAGNITUDE  OF  SIGMAX  STRESS 

1-D  ARRAY  FOR  TIME-VARYING  MAGNITUDE  OF  SIGMAXY  STRESS 
COMPONENT 

1-D  ARRAY  FOR  TIME-VARYING  MAGNITUDE  OF  SIGMAXZ  STRESS 
COMPONENT 

STATIC  SIGMAX  STRESS  COMPONENT 
STATIC  SIGMAXY  STRESS  COMPONENT 
STATIC  SIGMAXZ  STRESS  COMPONENT 

1-D  ARRAY  FOR  TIME- VARYING  MAGNITUDE  OF  SIGMAY  STRESS 
COMPONENT 

1-D  ARRAY  FOR  TIME-VARYING  MAGNITUDE  OF  SIGMAYZ  STRESS 
COMPONENT 

1-D^ARRM^FOR  time-varying  MAGNITUDE  OF  SIGMAZ  STRESS 

STATIC  SIGMAY  STRESS  COMPONENT 
STATIC  SIGMAYZ  STRESS  COMPONENT 
STATIC  SIGMAZ  STRESS  COMPONENT 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
UNI FORM (0,1)  RANDOM  VARIATE  USED  TO  DETERMINE 
HYPERDISTRIBUTION  TO  SELECT  FROM 
SELECTED  WALL  THICKNESS  AT  WELD,  IN  \ 

WALL  THICKNESS  LOWER  BOUND 
WALL  THICKNESS  UPPER  BOUND 
SELECTED  RHO  FOR  WALL  THICKNESS 
WALL  THICKNESS  - RHO  LOWER  BOUND 
WALL  THICKNESS  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  WALL  THICKNESS 
WALL  THICKNESS  - THETA  LOWER  BOUND 
WALL  THICKNESS  - THETA  UPPER  BOUND  / 

SELECTED  INNER  WALL  SURFACE  TEMPERATURE  (RANKINE) 

SELECTED  MEAN  OF  INNER  WALL  TEMPERATURE 
MEAN  OF  INNER  WALL  TEMPERATURE  LOWER  BOUND 
MEAN  OF  INNER  WALL  TEMPERATURE  UPPER  BOUND  ' \ 

SELECTED  STD  DEVIATION  OF  INNER  WALL  TEMPERATURE.  / 

STD  DEVIATION  OF  INNER  WALL  TEMPERATURE  LOWER  BOUND  I 

STD  DEVIATION  OF  INNER  WALL  TEMPERATURE  UPPER  BOUND  /' 

SELECTED  OUTER  WALL  SURFACE  TEMPERATURE  (RANKINE)  \ 

SELECTED  MEAN  OF  OUTER  WALL  TEMPERATURE 
MEAN  OF  OUTER  WALL  TEMPERATURE  LOWER  BOUND 
MEAN  OF  OUTER  WALL  TEMPERATURE  UPPER  BOUND 
SELECTED  STD  DEVIATION  OF  OUTER  WALL  TEMPERATURE 
STD  DEVIATION  OF  OUTER  WALL  TEMPERATURE  LOWER  BOUND  i 

STD  DEVIATION  OF  OUTER  WALL  TEMPERATURE  UPPER  BOUND  / 

STATIC  TORQUE  LOADS  owuni/  / 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
1-p  ARRAY  CONTAINING  THE  TYPE  OF  TIME-VARYING  LOAD,  USED  FOR 
LOAD  FACTORS  — TYPE ( * ) =1  INDICATES  NARROW-BAND  RANDOM; 


BETA  HYPER  - 
DISTRIBUTION 
PARAMETERS 


NORMAL 

HYPER- 

DISTR 


NORMAL 

HYPER- 

DISTR 
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c 

c 

C V() 

c 

C VSTATO 
C 

C WIDTH 
C WITHA 
C WITHB 
C WITHR 
C WITHRl 
C WITHR2 
C WITHT 
C WITHT 1 
C WITHT2 
C WOFF 
C WOFFA 
C WOFFB 
C WOFFC 
C WOFFD 
C WOFFE 
C WOFFHI 
C WOFFLO 
C WOFFR 
C WOFFRl 
C WOFFR2 
C WOFFR3 
C WOFFR4 
C WOFFT 
C WOFFTl 
C WOFFT2 
C WOFFT3 
C WOFFT4 

C===== 


TYPE(*)  = 2 INDICATES  SUPERIMPOSED  SINUSOID;  TYPE(*)  = 3 
INDICATES  AERODYNAMIC 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — 

ARE  THE  V2  LOADS;  V(2,^)  ARE  THE  V3  LOADS 
1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — VSTAT(l)  IS 
THE  V2  LOAD;  VSTAT(2)  IS  THE  V3  LOAD 
SELECTED  PLATE  WIDTH,  IN  \ 

WIDTH  LOWER  BOUND 
WIDTH  UPPER  BOUND 
SELECTED  RHO  FOR  WIDTH 
WIDTH  - RHO  LOWER  BOUND  \ 

WIDTH  - RHO  UPPER  BOUND  ./ 

SELECTED  THETA  FOR  WIDTH 
WIDTH  - THETA  LOWER  BOUND 

WIDTH  - THETA  UPPER  BOUND 

SELECTED  WELD  OFFSET  (%) 

WELD  OFFSET  LOWER  BOUND  - 
WELD  OFFSET  UPPER  BOUND  - 
WELD  OFFSET  LOWER  BOUND  - 
WELD  OFFSET  UPPER  BOUND  - 
PERCENTAGE  OCCURING  IN  HYPERDISTRIBUTION 
SELECTED  WELD  OFFSET  UPPER  BOUND 
SELECTED  WELD  OFFSET  LOWER  BOUND 
SELECTED  RHO  FOR  WELD  OFFSET 
WELD  OFFSET  - RHO  LOWER  BOUND 
WELD  OFFSET  - RHO  UPPER  BOUND 
WELD  OFFSET  - RHO  LOWER  BOUND 
WELD  OFFSET  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  WELD  OFFSET 
WELD  OFFSET 
WELD  OFFSET 
WELD  OFFSET 


BETA  HYPER 

DISTRIBUTION 

PARAMETERS 


HYPERDISTRIBUTION 
HYPERDISTRIBUTION 
HYPERDISTRIBUTION 
HYPERDISTRIBUTION 
1 


HYPERDISTRIBUTION 

HYPERDISTRIBUTION 

HYPERDISTRIBUTION 

HYPERDISTRIBUTION 


THETA  LOWER  BOUND  - HYPERDISTRIBUTION 
THETA  UPPER  BOUND  - HYPERDISTRIBUTION 
THETA  LOWER  BOUND  - HYPERDISTRIBUTION 


WELD  OFFSET  - THETA  UPPER  BOUND  - HYPERDISTRIBUTION  2 


BETA 

HYPER 

DISTR 


OPEN  THE  INPUT  AND  OUTPUT  FILES 


OPEN 

(1, 

FILE  = 

'CRKDAT' , 

STATUS  = 

'OLD' ) 

OPEN 

FILE  - 

'CRKRES' , 

STATUS  = 

'NEW' ) 

OPEN 

8, 

FILE  = 

'lOUTPR' , 

STATUS  = 

'NEW' ) 

OPEN 

(9, 

FILE  = 

'LOWLIF' , 

STATUS  = 

'NEW' ) 

C SET  DEFAULT  VALUES 

CALL  SETDEF  (LIFE,  NCRL) 

C READ  AND  ECHO  GENERAL  DATA 

CALL  INPUT  (ANGLE,  BLFPER,  COEXP,  E,  EM, 

& LOCAT,  NBLIFE,  NHYPER,  NLIFE,  NLIFET,  NRAN, 

& NU,  NUMSEG,  PERIOD,  RSO,  SE,  STRHIS,  TRUNC) 

C READ  MATERIAL  PROPERTIES  AND  PERFORM  REGRESSION  ON  CRACK  GROWTH  DATA 

CALL  GRODAT  (CEE,  CO,  DEE,  DKTHO,  EMM,  ENN,  FTY,  KC,  PEE,  QUE) 

C FOR  HEX  COIL  GROW  CRACK  IN  TWO  DIRECTIONS  BUT  FOR  EXHEX  ONLY  ONE 

IF(KPROB  .EQ,  1)  THEN 
NDIR  = 2 
ELSE 

NDIR  = 1 
ENDIF 

C »»  THIS  LOOP  SAMPLES  HYPERPARAMETER  SETS  «« 

DO  300  K = 1,  NHYPER 

CALL  HYPDRW  (AERD,  AERS,  ASTR,  DSTR,  KLAM,  LAMGR,  LAMKC, 

& LAMKH,  LAMW,  NEUB,  SSTR,  MVAR) 

C IF  COEFFICIENT  m IS  VARYING 
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IF(KGROW  .EQ.  2)  THEN 
EMM  = MVAR 
ENDIF 


C »»  THIS  LOOP  GENERATES  CRACK  GROWTH  LIVES  «« 

DO  200  1=1,  NLIFE 
C PERFORM  DRIVER  DRAWS 

CALL  PARDRW  (AI,  Cl,  DLTAT,  INDIA,  LAMN,  LAMS,  PC, 
* THIC,  WIDTH,  WOFF) 

C PERFORM  CRACK  GROWTH  LIFE  CALCULATION 


& 

& 

& 

& 

& 


CALL  LIFCAL  (^MRD,  AERS,  ASTR,  Al,  ANGLE,  Cl,  CEE, 

CO,  COEXP,  DEE,  DKTHO,  DLTAT,  DSTR,  E,  EM, 

^NDIA,  KC,  KLAM,  LAMGR,  LAMKC, 

LOCAT,  NEUB,  NEWLIF, 

NCRL,  NRAN,  NU,  NUMSEG,  PC,  PEE,  PERIC», 

QUE,  RSO,  SE,  SSTR,  STRHIS,  THIC,  TRUNC,  WIDTH,  WOFF) 


C SAVE  AND  SORT  THE  SHORTEST  1%  OF  LIVES  AFTER  SORTING 

IF  (NLIFET  .GT.  1)  THEN 

ENDIF^  INSORT  (NEWLIF,  LIFE,  NLIFET) 

200  CONTINUE 

300  CONTINUE 

C WRITE  OUT  THE  LIVES  AND  BLIVES 

WRITE(3,1000) 

IF  (NLIFET  .GT.  1)  THEN 
NXm  = NLIFET/ l60 
WRITE  (3,1200) 

DO  400  1=1,  NUM 

WRITE (3, 1100)  LIFE(I) 

CON^NUE^^'*^  NLIFET),  LIFE(I) 

WRITE<3,  1300) 

DO  500  J = 1,  NBLIFE 

^FPOS  = NINT  (BLFPER(J)  ♦ FLOAT  (NLIFETH 
COn¥?nSI‘  kFPER(A);  LIFE(BLp4S) 

ELSE 

WRITE(3, 1500)  NEWLIF 
ENDIF 


400 


500 


STOP 


FORMATS 


1000  FORMAT (///, 3 OX, ' SIMULATION  OUTPUT',///) 

1100  FORMAT(20X,E12.5)  ,///) 

1200  FORMAT(13X, 'SHORTEST  1%  OF  CRACK  GROWTH  LIVES  ',//, 
& 20X, ' LIFE 

format (///, 2X, 'B  LIVES:  EMPIRICAL'  /) 

1400  FORMAT(2X,F7.^,5X,E12.5)  ,/) 

1500  FORMAT(13X, 'CRACK  GROWTH  LIFE  = '.E12.5) 

END  ' *■"' I 


********************************** ****************************** 
C SUBROUTINE  LIFCAL  CALCULATES  CRACK  GROWTH  LIFE 


C PROGRAMMER:  S.  SUTHARSHANA 
C DA'TE  : DECEMBER  1992 
C VERSION  ; 92.5 
C 

r California  Institute  of  Technology. 

C is  actawl^ed  under  NASA  Contract  NAS7-918 

SUBROUTINE  LIF^  (^RD,  AERS,  ASTR,  AI,  ANGLE,  Cl,  ***;************ 
& CO,  COEXP,  DEE,  DKTHO,  DLTAT,  DSTR,  E,  EM, 
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& EMM,  ENN,  FTY,  INDIA,  KC,  KLAM,  LAMGR,  LAMKC, 

& LAMKH,  LAMN,  LAMS,  LAMW,  LOCAT,  NEUB,  NEWLIF, 

& NDIR,  NCRL,  NRAN,  NU,  NUMSEG,  PC,  PEE,  PERIOD, 

& QUE,  RSO,  SE,  SSTR,  STRHIS,  THIC,  TRUNC,  WIDTH,  WOFF) 

C SUBPROGRAMS:  STRANl,  STRAN2,  CYCOUN,  BLKGRO 

C IMPLICIT  NONE 

INTEGER  J,  JLAST,  NBIN(IOO),  MAXLD,  MAXM,  MAXSEG 

PARAMETER  (MAXLD  = 16,  MAXM  = 20000,  MAXSEG  = 10) 

C========:======  LOCAL  VARIABLES  =====================»=* 

REAL  A(2),  AF,  AOC,  DADB(2),  DELA,  DELC,  DSALT, 

& NEWA(lOl),  PDADB,  PDCDB,  RATIO,  SM,  SPR(MAXM),  TOTLIF 

LOGICAL  FAIL 


C A() 

C DELA 
C DELC 
C NEWA(  ) 
C PDADB 


CRACK  LENGTH  IN  THE  ”a”  AND  DIRECTIONS 

CRACK  LENGTH  INCREMENT  IN  THE  DIRECTION 

CRACK  LENGTH  INCREMENT  IN  THE  "C”  DIRECTION 

ARRAY  OF  CRACK  LENGTHS  TO  PERFORM  BLOCK  GROWTH  CALCULATIONS  AT 
PREVIOUS  da/dB 


O 


EXTERNAL  VARIABLES  INPUT  AND  OUTPUT 


INTEGER  INEUB,  IRET,  KGROW,  KPROB 

INTEGER  lOUT,  LOCAT,  NDIR,  NCRL,  NLOAD,  NRAN, 

& NUMSEG,  TYPE (MAXLD) 

REAL  AERD,  AERS,  ASTR,  AI,  ANGLE,  Cl,  CEE,  CO, 

& COEXP,  DEE,  DKTHO,  DLTAT,  DSTR,  E( MAXSEG),  EM, 

& EMM,  ENN,  FTY,  INDIA,  KC,  KLAM, 

& LAMGR,  LAMKC,  LAMKH,  LAMN,  LAMS,  LAMW,  M(2, MAXLD), 

& MSTAT(2),  NEUB,  NEWLIF,  NU,  P(MAXLD),  PC,  PCO,  PE±, 

& PERIOD,  PSTAT,  QUE,  RSO,  SE(MAXSEG),  SSTR, 

& STRHIS  (MAXLD, MAXM ) , 

& SX(MAXLD),  SXST,  SXY(MAXLD),  SXYST,  SXZ(MAXLD), 

& SXZST,  SY(MAXLD),  SYST,  SYZ(MAXLD),  SYZST,  SZ(MAXLD),  SZST, 

& T(MAXLD),  THIC,  TRUNC,  TSTAT,  V(2, MAXLD),  VSTAT(2), 

& WIDTH,  WOFF 

CHARACTER*6  LDNAME ( MAXLD ) 

COMMON/CNTRL/ INEUB,  IRET,  KGROW,  KPROB 
COMMON  /NAMES  /LDNAME 

COMMON/LOADS/NLOAD,  PSTAT,  TSTAT,  MSTAT,  VSTAT,  TYPE, 

& P,  T,  M,  V,  PCO, 

& SXST,  SYST,  SZST,  SXYST,  SXZST,  SYZST, 

& SX,  SY,  SZ,  SXY,  SXZ,  SYZ 

COMMON  lOUT 

C PERFORM  LOAD  TO  STRESS  TRANSFORMATION 

IF  (KPROB  .EQ.  1)  THEN 
AF  = THIC 

CALL  STRANl  (AERD,  AERS,  ASTR,  ANGLE,  COEXP,  DLTAT,  DSTR,  EM, 

& INDIA,  LAMN,  LAMS,  LAMW,  LOCAT,  NRAN,  NU,  PC, 

& SPR,  STRHIS,  THIC,  WOFF) 

ELSEIF  (KPROB  .EQ.  2)  THEN 
AF  = WIDTH/2.0 

CALL  STRAN2  (DSTR,  LAMN,  LAMS,  NRAN,  SPR,  SSTR,  STRHIS) 

ENDIF 


C PERFORM  CYCLE  COUNTING 

CALL  CYCOUN  (DSALT,  E,  EM,  NBIN,  NEUB,  NUMSEG,  NRAN,  SE, 

& SPR,  SM,  TRUNC) 

C ESTABLISH  CRACK  LENGTHS  AT  WHICH  BLOCK  GROWTH  CALCULATIONS  ARE  PERFORMED 
NEWA(l)  = AI 

DELA  = EXP(  LOG (AF/AI)/ FLOAT (NCRL)  ) 


7-32 


50 


DO  50  J = 1,  NCRL 

NEWA(J+1)  = NEWA(J)*DELA 
CONTINUE 


A(^  = NEWA(l) 

TOTLIF  =0.6 
FAIL  = .FALSE. 

JLAST  = 1 

IF(NDIR  .EQ.  2)  THEN 
A(2)  = Cl 
ENDIF 

PDADB  =0.0 
PDCDB  =0.0 


C CALCULATE  CRACK-GROWTH  LIFE  FOR  THE  LOAD  BLOCK 
C »»  THIS  LOOP  IS  FOR  EVERY  CRACK  LENGTH 


DO  100  J = 1,  NCRL 

DADB(l)  =0.0 
DADB(2)  = 0.0 


& 

& 

& 


CALL  BLKGRO 


(A,  CEE,  CO,  DADB,  DEE,  DKTHO, 
DSALT,  EMM,  ENN,  FAIL,  FTY,  INDIA 
LAMKC,  LAMKH,  NBIN,  NDIR,  PEE, 
QUE,  RSO,  SM,  THIC,  WIDTH) 


KC, 


KLAM, 


IF(IOUT  .EQ.  20)  THEN 
WRITE(8,*)  A(l),  A(2) 
IF(NDIR  .EQ.  2)  THEN 
AOC  = A(l)/A(2) 
WRITE (8,*)  AOC 
ENDIF 
ENDIF 


DADB(l) 


DADB(2) 


IF (PDADB  .GT.  0.0)  THEN 

DELA  = NEWArj)  - NEWA(J-l) 

~ 2 . 6*DELA/ (DADB(l)  + PDADB)  + TOTLIF 
ELSEIF( PDCDB  .GT.  0.0)  THEN  ' 

END^^^^  ~ 2 . 0*DELC/ (DADB(2)  + PDCDB)  + TOTLIF 


& 


IF  (DADB(l)  .GT.  0.0)  THEN 
A(l)  = NEWA(J+1) 

IF(NDIR  .EQ.  2)  THEN 

RATIO  = DADB(2)/DADB(1) 

DELC  = (NEWA(J+1)  - NEWA( J) ) * RATIO 
A(2)  = A(2)  + DELC 
ENDIF 

IF (FAIL)  THEN 

FAIL  = .FALSE. 

WRITE(8,*)'K  GT  Kcr  AT  A = 'A(l) 

GO  TO  110 
ENDIF 
JLAST  = J 
ELSE 


IF (FAIL)  THEN 

FAIL  = .FALSE. 

WRITE(8,*)'K  GT  Kcr  AT  A = ',A(1) 
GO  TO  lio  ' ' 

ELSE 


IF(NDIR  .EQ.  1 .OR.  A(2)  .GT.  WIDTH/2.0 
.OR.  DADB(2)  .EQ.  6.6)  THEN 
TOTLIF  = 1.6e+37 

^ITE(8i*)'NO  GROWTH  AT',  J, 'th  CRACK  LENGTH' 
ENDIF 


& 


IF(NDIR  .EQ.  2 .AND.  A(2)  .LT.  WIDTH/2.0)  THEN 
DELC  = A(2)*(  EXP(LOG(WIDTH/(2.0*A(2) ) )/ 
FLOAT ( NCRL- J+1 ) ) - 1.0) 

A(2)  = A(2)  + DELC 
A(l)  = NEWA( JLAST) 

ENDIF 
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WRITE(8,^)  ^NO  GROWTH  IN  A DIRECTION  AT,  J,  'th  CRACK  LENGTH' 
ENDIF 

PDADB  = DADB(l) 

PDCDB  = DADB(2) 

CC  WRITE(8,*)  A(l),  A(2),  DELA,  DELC,  TOTLIF 

100  CONTINUE 

C CALCULATE  LIFE 

110  CONTINUE 

NEWLIF  = LAMGR  * PERIOD  * TOTLIF 


RETURN 

END 

C**  ★*★★★★★★*★★★****★*  ★♦**★*♦♦***** ’^**^^^***'*f*****’*f  ******************* 

C SUBROUTINE  BLKGRO  CALCULATES  THE  CRACK  GROWTH  RATE  PER  BLOCK 
C 

C PROGRAMMER  i S.  SUTHARSHANA 
C 

C DATE  : DECEMBER  1992 
C VERSION:  92.5 
C 

C Copyright  (C)  1991,  California  Institute  of  Technology • 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 

★★★★★★★★★**★*★★*★***************************** ************************ 

SUBROUTINE  BLKGRO  (A,  CEE,  CO,  DADB,  DEE,  DKTHO,  DSALT, 

& EMM,  ENN,  FAIL,  FTY,  INDIA,  KC,  KLAM, 

& LAMKC,  LAMKH,  NBIN,  NDIR,  PEE,  QUE,  RSO,  SM, 

& THIC,  WIDTH) 

C SUBPROGRAMS:  STRIFl,  STRIF2 


C IMPLICIT  NONE 


INTEGER  I,  IDIR,  lOUT,  NBIN (100),  NDIR 


INTEGER  INEUB,  IRET,  KGROW,  KPROB 


REAL  A{2),  AB(2),  AO(2),  AORPO,  AORPA,  ARPI,  CEE, 

& CO,  CONST,  DA,  DADB(2),  DEE,  DK, 

& DKEFF,  DKTH,  DKTHO,  DSALT,  EMM,  ENN, 

& F0(2).  F2(2),  FTY,  INDIA,  KC,  KCR,  KLAM, 

& KMAX(i),  KMAXRQ,  KMIN{2),  KMINEF,  LAMKC,  LAMKH, 

& PI,  PLSR(2),  PEE,  QUE,  REFF,  RPI, 

& RPO(2),  RSO,  SALMAX,  SALTF,  SM,  THIC,  WIDTH 


C’ 

C 

c 

C 

C 

C 

c 

c 

c 

C 

c 

c 

c= 


AB( 

AO() 

AORPO 

AORPA 

ARPI 


PLSR( ) 
RPI 
RPO(  ) 


DESCRIPTION  OF  LOCAL  VARIABLES 
CRACK  LENGTHS  DURING  GROWTH  IN  THE  BLOCK 
CRACK  LENGTHS  AT  THE  LAST  OVERLOAD 
AO  + RPO 
AORPO  - AB 
AORPO  - AB 

SIF  COEFF  FOR  TENSILE  STRESS 

SIF  COEFF  FOR  BENDING  STRESS 

REQUIRED  SIF  FOR  WILLENBORG  MODEL 

PLANE  STRAIN/STRESS  PLASTIC  ZONE  SIZE  COEFF 

CURRENT  PLASTIC  ZONE  SIZE 

OVERLOAD  PLASTIC  ZONE  SIZE 


LOGICAL  FAIL 


COMMON/CNTRL/ INEUB,  IRET, 
COMMON  lOUT 

DATA  PI/3.14159265358979/ 

ABU)  = A(l) 

AB(2)  = A(2) 

AO(l)  =0,0 
AO(2)  = 0.0 
RPd(l)  =0.0 


KGROW,  KPROB 
PLSR/0. 053051647, 


0.159154943/ 
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RPO(2)  = 0.0 


IF(IOUT  .EQ. 
WRITE (8,* 
WRITE(8, * 
ENDIF 


) 

) 


20)  THEN 

'INSIDE  BLKGRO  ROUTINE' 
'A,  C ',A(1),  A(2) 


C CALCULATE  THE  S'TRESS  INTENSITY  FACTOR  COEFFICIENTS 


CONST  = SQRT(PI*A(1) ) * KLAM 
IF(KPROB  .EQ.  1)  THEN 

CALL  STRIFlfA(l),  A(2), 
ELSEIF(KPROB  .EQ.  2 THEN 

STRIF2(A(1),  FO,  F2, 


FO,  F2,  INDIA,  THIC) 
WIDTH) 


C 

C 


LOOP  FOR  EVERY  STRESS  CYCLE 
AND  LOOP  FOR  'a'  DIRECTION 


IN  HISTORY 
(=1)  AND  'c' 


SALMAX  = DSALT*101.0 


DIRECTION  (=2) 


DO  200  1=1,  100 

IF  (NBIN(I)  .GT.  0)  THEN 
SALTF  = SALMAX  - FLOAT ( I ) *DSALT 


DO  100  IDIR=1,NDIR 


& 


KMAX(IDIR) 

KMIN(IDIR) 


CONST* 

CONST* 


IDIR)*SALTF  + F2(IDIR)*SM) 
(IDIR)*SALTF  + f2(IDIR)*SM) 


IF(IOUT  .EQ.  20)  THEN 

WRI'TE(8,*)  'DIRECTION  = 
WRITE(8,*)  'DIR,  KMAX  1,2, 
KMIN(IDIR 
ENDIF 


IDIR 

KMIN  1,2 


IDIR,  KMAX (IDIR) 


C IF  MAXIMUM  SIF  IS  NEGATIVE  OR  ZERO  NO  GROWTH  IN  THIS  DIRECTION 

IF(KMAX(IDIR) .LE.0.0)  THEN 
GO  TO  95 
ENDIF 


C 


RESET  MINIMUM  SIF  TO  ZERO  IF  NEGATIVE 


IF(KMIN(IDIR) .LE.0.0) 
KMIN(IDIR)  = 0.0 
ENDIF 


THEN 


= KMAX  (IDIR)  - KMIN  (IDIR) 
REFF  = KMIN (IDIR) /KMAX (IDIR)  ' 
KMAXEF  = KMAX (IDIR) 


(KMAX( IDIR) /FTY) **2 


IF  (IRET  .EQ.  1 ) THEN 

AORPO  = AO(IDIR)  + RPO(IDIR) 

RPI  = PLSR(IDIR)  * (Kl" 

ARPI  = AB(IDIR)  + RPI 
IF(ARPI  .GT.  AORPO)  THEN 
RPO(IDIR)  = RPI 
AO (IDIR)  = AB(IDIR) 

£ZiS£ 

AORPA  = AORPO  - AB(IDIR) 

KMAXRQ  = FTY*(  AORPA/PLSR( IDIR) ) ** ( 0 5) 

KMAXEF  = KMAX  IDIR)  - (KMAXRQ  -KMAX  IDIR) 1 //RSO-1  0 

IF(  KMINEF.GT.0.0  ) THEN 
DKEFF  = KMAXEF  - KMINEF 
REFF  = KMINEF/KMAXEF 
ELSE 


DKEFF  = KMAXEF 
REFF  =0.0 
ENDIF 
ELSE 
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GO  TO  95 
ENDIF 
ENDIF 

IF(IOUT  .EQ.  20)  THEN 

WRITE (8,*)  'AORPA,  AORPO,  KMAXRQ,  RPI,  RPO,  AO', 

& AORPA,  AORPO,  KMAXRQ,  RPI,  RPO(IDIR), 

& AO(IDIR) 

ENDIF 

ENDIF 

C CALCULATE  BLOCK  CRACK  GROWTH  RATE  AND  NEW  CRACK  LENGTH 

IF(IOUT  .EQ.  20)  THEN 

WRITE (8,*)  'CYC,  DIR,  DKEFF,  REFF  ' , I, IDIR,DKEFF,REFF 
ENDIF 

C CHANGE  FROM  PSI  TO  KSI 

DK  = DKEFF/ 1000.0 

C CALCULATE  CRACK  GROWTH 

IF(  REFF  .LE.  0.9  ) THEN 

DKTH=LAMKH*DKTHO* ( 1 . 0 - CO*REFF) **DEE 
ELSE 

DKTH=LAMKH*(DKTHO*(1.0  - 0 .90*CO)**DEE) 

& *10.0*(1.0  - REFF) 

ENDIF 


KCR  = KC  * liAMKC 
KMAXEF  = KMAXEF/1000.0 

IF  ( (DK.  GT.  DKTH)  .AND.  (KMAXEF  .LE.  KCR)  ) THEN 
DA  = FLOAT(NBIN(I) ) * 

& CEE  * ((1.  - REFF)**EMM)  * (DK)**ENN 

& * (DK  - DKTH)**PEE 

& / ( ( (1.  - REFT)  * KCR  - DK  )**QUE  ) 

DADB(IDIR)  = DADB(IDIR)  + DA 
AB(IDIR)  = AB(IDIR)  + DA 
IF(IOUT  .EQ.  20)  THEN 

WRITE(8,*) 'DIR,  DA,  DADB,  AB  ',IDIR,  DA, 

& DADB(IDIR) ,AB(IDIR) 

ENDIF 

ELSEIF  (KMAXEF  .GT.  KCR  ) THEN 
FAIL  = .TRUE. 

RETURN 

ENDIF 

95  CONTINUE 

100  CONTINUE 

ENDIF 
200  CONTINUE 

RETURN 

END 


C=======================================— ====== 

C SUBROUTINE  INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  12MAY88 

C VERSION : 2 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged . 


SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

C INPUTS:  NEWLIF,  LIFE,  NLIFET 

C OUTPUTS ; LIFE 

C IMPLICIT  NONE 

COMMON  lOUT 


7-36 
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INTEGER  I,  lOUT,  MAXLIF,  NLIFET,  NUM,  PLACE 
PARAMETER  (MAXLIF  = 1000) 

real  LIFE(MAXLIF),  NEWLIF,  TEMP(MAXLIF) 


I 

lOUT 
LIFE(  ) 

MAXLIF 

NEWLIF 
NLIFET 
NUM 
PLACE 
TEMP( ) 


LIST  OF  VARIABLES 

^■pF^i^’'Bi°sSRlED''°  ^IVES  GENERATED  BY  THE 

^^^^CALCULAT^N^  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 

LIFE  VALUE  TO  BE  INSERTED  INTO  TTFP/\ 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  i>FM 
W^ER  OF  LIFE  VALUES  M Liren 

NEWLIF  IS  TO  Bt  INSERTPn  TM'm  tt'c*!’/  \ 

<>■'  I.IFE(rV2i°sSll^  WON  INSERT, 


UPON  INSERTION 


NUM  = NLIFET  / 100 

FIND  POSITION  IN  LIFE( ) FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE(NUM))  GOTO  400 

DO  100  I = 1,  num 

PLA^^=  then 

GOTO  110 
ENDIF 
100  CONTINUE 
110  CONTINUE 


STORE  VALUES  OF  LIFE ( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMPO 


DO  200  I = (PLACE  + 1),  nUM 
TEMPJI)  = LIFE(I-1 
200  CONTINUE  ' ^ 

INSERT  NEWLIF 

LIFE (PLACE)  = NEWLIF 

SHIFT  VALUES  OF  LIFE()  FOLLOWING  NEWLIF 

DO  300  I = (PLACE  +1),  NUM 
LIFE(I)  4 TEMP(I) 

300  CONTINUE  ' ' 


IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE  ( ) THEN  RETURN 


400  CONTINUE 


return 

END 

Cl  & iunur'c*'D  . ▼ 


^j^j^RONDALSKI,  l.  newlin 
RANDOM 


c INDEPENDeSt  ^Doi5  vXS£A?ls  U(RH01,RH02)  and  U(THE1,THE2) 

C PROGRA^:  Lj^^RONDALSKI,  L.  NEWLIN 

c SUBPROGRAM:  RANDOM 


SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl,  THE2,  X,  Y) 


COMMON  lOUT 
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DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 
INTEGER  I OUT 


CALL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'FRAC  =' , FRAC 

X = FRAC  * (RH02  - RHOl)  + WlOl 


C 


CALL  RANDOM  (FRAC,  RAND) 

IF  (lOUT  .EQ.  15)  WRITE(8,*) 
y = FRAC  * (THE2  - THEl)  + T 


'FRAC 

HEl 


FRAC 


IF  (lOUT  .EQ.  15) 
& ' THEl  =' , 


WRITE(8,*)  'RHOl 
THEl,  ' THE2  =' , 


=',  RHOl,  ' RH02 
THE2,  ' X =',  X, 


RH02, 
= ',  Y 


RETURN 

C******  ******  ******  * It  ******************************************  ****** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Miles,  R.  F.,  The  RANDOM  convputer  Progr^;  A Linear  Congruential 
Random  Numoer  Generator,  JPL  Publication  85—98,  JPL  Document 
5101-277,  Feb.  15,  1986. 

PROGRAMMER: 

DATE: 

VERSION: 


L.  GRONDALSKI,  L.  NEWLIN 
1DEC87 

MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 
V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V2l  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

C IMPLICIT  NONE 

COMMON  lOUT 
INTEGER  lOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC,  RAND,  RANDIV,  RANM,  RANSUB, 
& RANT,  RANX 


C 

C 

C FRAC 
C lOUT 
C RANA 
C RANC 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  = 671093.0 
RANC  = 7090885.0 
RANM  = 33554432.0 

10  RANX  = RANA  * RAND  + RANC 
RANDIV  = RANX  / RANM 
RANT  = DINT (RANDIV) 

RANSUB  = RANT  * RANM 
RAND  = RANX  - RANSUB 
FRAC  = SNGL(RAND/  RANM) 


IF  ((FRAC  .EQ.  0.0)  .OR.  (FRAC  .EQ.  1.0))  GOTO  10 
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IF  (lOUT  .EQ. 
& ' RANT  = ' , 

i ' FRAC  = ' , 


2)  WRITE (8,* 
rant,  ' RANS 
FRAC 


) 'RANX 
UB  ='  , 


=',  RANX, 
RANSUB,  ' 


' RANDIV  =',  RANDIV, 
rand  =',  RAND, 


RETURN 

END 


NOTES;  lOUT=2  DUMPS  TO  SCREEN 


fiS- 

PROSMM^..  L.^|RO»pjLSKI,  I..  Si!!' 

National  Bureau  of  Standards,  ADDlied 
1970  with  correction^;  Printxng%ovember 


c 

c 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM : RANDOM 

C IMPLICIT  NONE 

COMMON  lOUT 
DOUBLE  PRECISION  RAND 

real  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  = 3.1415926536) 

INTEGER  TOUT 


C 

C 

C FRAC 
C lOUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 


UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 
STANDARD  DEVIATION  OF  NORMAL 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0  li 
UNIFORM  RANDOM  NUMBER  U ( 0 ! 1 1 
NORMAL  RANDOM  NUMBER  ON  N(0^ 
NORMAL  RANDOM  NUMBER  ON  N(0’ 


DISTRIBUTKMJ 


) 

) 


IF  (lOUT  .EQ.  15) 

& WRITE(8,*)  'RAND  =',  RAND,  ' MU  =',  MU,  ' SIGMA  =', 

CALL  RANDOM  (FRAC,  RAND) 

Ul  = FRAC  ^ 


SIGMA 


CALL  RANDOM  (FRAC,  RAND) 

U2  — FRAC 
IF  (lOUT  .EQ.  15) 

i WRITE(8,*)  'Ul  =',  Ul,'  U2  =',  U2 


Zl  = SQRT  (-  2. 
Z2  = SQRT  ( - 2 . 


* ALOG(Ul) ) * 

* ALOG(Ul) ) * 


COS (2.  * PI  * U2) 
SIN(2.  * PI  * U2) 


X = SIGMA  * Zl  + MU 
IF  (lOUT  .EQ.  15) 
i WRITE(8,*)  'Zl  =',  Zl,  ' Z2 


Z2,  ' X =',  X 


RETURN 

END 
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c************ ************************************** ********************** 

C SUBROUTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
C ONE  OF  THE  PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  50CT87 

C** ★★★****★♦*★* *^^  *^^* ^* ************** *******^^***^********^**^********^*** 


SUBROUTINE  TRMNAT 

WRITE(8,*)  'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 


1 (PLAIN  WELD,  EXTERIOR  SURFACE  OF  THE  DUCT)  UNDER  THERMAL 


★★★★★*  **♦★*★★★**  *★★★★★★★★★★★#★*★★★★★*★★★*■★  ***^  **’******  ***’^*^*****’*^ 

C SUBROUTINE  M4L1  PERFORJ^  THE  C^CULATIC^^S  NECESSARY  TO  FIND  THE  S^SS^ 

C FOR  LOCATION 
C LOADING 
C PROGRAMMER: 

C DATE : 

C VERSION : 


L,  NEWLIN 
JUL92 
92.4 


C 

C 

C 

C 


SUBROUTINE  M4L1  (ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K 
& NLOAD,  NU,  P,  PC,  PCO,  PSTAT, 

& T,  THIC,  TSTAT,  V,  VSTAT,  WOFF 


, LAMW,  M,  MSTAT 
STATIC,  STRAMP, 

, FK,  RT) 


I 


INPUTS : 


ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K, 
PC,  PCO,  PSTAT,  STATIC,  T,  THIC, 


LAMW,  M,  MSTAT,  NLOAD, 
TSTAT,  V,  VSTAT,  WOFF, 


RT 


OUTPUTS:  STATIC,  STRAMP 


C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  I,  lOUT,  J,  MAXLD,  NLOAD 
REAL  PI 


PARAMETER  (MAXLD  =16,  PI  = 3.1415926536) 


REAL 

& 

& 

& 

& 

& 

& 


ALPHA,  ANGLE,  AREA,  DI,  DLTAT,  EM,  FK(IO),  GEOM,  IFK, 
K(2,  2),  KOFF,  LAMW,  M(2,  MAXLD),  MI,  MSTAT(2),  NU, 
P(MAXLD),  PC,  PCO,  PSTAT,  RDIFF,  RI,  RI2,  RO,  RO^ 
ROT,  RT(iO),  SIGIA(MAXLD),  SIGIB(MAXLD) , SKTI,  SKT2, 
STATIC (4),  STHMA,  STRIA,  STR2A,  STRlB,  STR2B,  STRlC, 
STRAMP(4,  MAXLD),  T ( MAXLD ) , THIC,  TSTAT,  V(2,  MAXLD), 
VSTAT ( 2 ) , WOFF 


C 

C 

C ALPHA 
C ANGLE 
C AREA 
C DI 
C DLTAT 
C EM 
C FK( ) 

C 

C GECM 
C I 
C 

C IFK 
C lOUT 
C J 
C 

C K() 

C 

C 


LIST  OF  VARIABLES 

COEFFICIENT  OF  THERMAL  EXPANSION 
ANGLE  THETA  IN  RADIANS 
CROSS  SECTION  AREA  OF  DUCT  WALL 
INTERIOR  DIAMETER 

TEMPERATURE  DIFFERENCE  BETWEEN  INNER  AND  OOTER  SURFACES 
YOUNG'S  MODULUS  PRIOR  'TO  YIELD 

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
INTERMEDIA'TE  THERMAL  STRESS  CALCULATION  VARIABLE 
CONTROLS  DO  LOOP  FOR  RANDOM,  SUPERIMPOSED  SINUSOIDAL  AND 
AERODYNAMIC  LOADS 

INTERPOLATED  VALUE  OF  Fk  CORRESPONDING  TO  THE  VALUE  OF  r/t 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  RT( ) AND  FK{)  DURING 
INTERPOLATION 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  DUCT 
EXTERIOR  FOR  AXIAL  DIRECTION;  K(2,l)  IS  FOR  DUCT  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  DUCT  INTERIOR  FOR  AXIAL 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KOFF 

LAMW 

M{) 

MAXLD 

MI 

MSTAT(  ) 

NLOAD 

NU 

PCO 

PI 

PSTAT 

RDIFF 

RI 

RI2 

RO 

R02 

ROT 

RT() 

SIG1A( ) 

SIG1B( ) 

SKTl 
SKT2 
STATIC ( ) 


STHMA 
STRIA 
STRlB 
STRIC 
STR2A 
STR2B 
STRAMP( ) 


THIC 

TSTAT 

V() 

VSTAT( ) 
WOFF 


FOR  DUCT  INTERIOR  FOR  HOOP  DIRECTICMJ 

gSHvT 

£2"™SlfMT“.r5gi''?SE'S!!  S’"  ~ 

NUMBER  OF  TIME-VARYING  LOADS 
POISSON'S  RATIO 

time-varying  axial  loads 

LIMIT  PRESSUI^  ON  INSIDE  OF  THE  VESSEL 

LIMIT  PRESSURE  ON  OUTSIDE  OF  THE  VESSEL 

SELF  EXPLANATORY  CONSTANT 

STATIC  AXIAL  LOAD 

EQUAL  TO  R02  - RI2 

INTERIOR  RADIUS 

INNER  RADIUS  SQUARED 

OUTER  RADIUS 

OUTER  RADIUS  SQUARED 

EQUAL  TO  r / t (R  Over  T) 

FO^^  T?ffi-V^?iNG*I:oIEs°^ 

t?J1I-^^y?ng'^oIEs°"'  BEmil^G 

CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
ST^SS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 
1— D ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRE^<?P<> 

STATIC(l)  IS  THE  AXIAL  STRils T sTlilC < 2 ) h35p  STRESS- 

THE  RADIAL  STRESS;  STATIC(4)  IS  THE  SHEAR  STRESS 
STRESS  DUE  TO  THERMAL  GR^IENT  STRESS 

THE  STATIC  AXIAL  STRESS  DUE  TO  FORCE 
TIffi  STATIC  AXIAL  STRESS  DUE  TO  BENDING 

THE  MOMENTUM  CHANGE  f FLUID) 

TIE  STATTr  H^D  SURFACE  DUE  TO  INTERNAL  PRESSURE 

A HOOP  STRESS  AT  OUTER  SURFACE  DUE  TO  EXTERNAL  PRESSURE 

1-p  ARRAY  CONTAINING  THE  TIME-VARYING  TOROUE  LOADS 
WALL  THICKNESS  AT  DUCT  OUTER  RADIUS 
STATIC  TORQUE  LOAD 

EJSI 

WELD  OFFSET 


C 

c 


i^JSilT?^OF  ThI  CONCENTRATION  FACTOR  DUE  TO 

RI  = DI  / 2.0 

ROT  = (DI  + THIC)  / (2.0  * THIC) 


DO  50  J = 2,  10 

|;^ND  factor  Fk  CORRESPONDING  TO  VALUE  OF  r/t 

(Ror  .ge.  rt(j-I)))  then 


ENDIF 
50  CONTINUE 


IFK  - ^FK(J)  - FK(J-l))  *’  (ROT  - RT(i-l)) 
RT(J-l))  + FK(J-l)  " 


V-  \ / 

/ (RT(J) 


KOFF  - LAMW  * (1.0  + 3,0  * IFK  * WOFF) 


IF  (lOUT  .EQ, 
WRITE ( 8 , ^ ) 
WRITE (8,*) 
WRITE(8,*) 


25)  THEN 
'DI  = ' 
'THIC  = ' 
'IFK  = ' , 


DI,  ' RI  = ',  RI 
, THIC,  ' ROT  = ' 
IFK,  ' WOFF  = 


, ROT 
WOFF 
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' , KOFF 


WRITE (8,*)  'LAMW  = LAMW,  ' KOFF  = 

ENDIF 

C CALCULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 

AREA  = PI  * ( (RI  + THIC)  **  2 - RI  **  2) 

MI  = PI  * ((RI  + THIC)  **  4 - RI  **  4)  / 4.0 

C OBTAIN  STRESS  CONCENTRATION  FACTORS  AND  RADII  APPROPRIATE  TO  LOCATIC*! 

C THIS  IS  THE  EXTERIOR  SURFACE 

SKTl  = K(l,l) 

SKT2  = K(2, 1) 

RO  = RI  + THIC 


IF  (lOUT  .EQ. 
WRITE(8,*) 
WRITE(8,*i 
WRITE(8,*) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


25)  THEN 
'AREA  = ' , 


'K(2,l 
'THIC  • 
'ALPHA 
' DLTAT 


AREA.  ' 

MI  = ' , MI 

\ , * SKTl  = ' , 

SKTl 

, K(2,lj 

1 , ' SKT2  = ' , 

SKT2 

THIC,  ' 

RO  = ' , RO 

ALPHA, 

' NU  = ' , NU 

DLTAT, 

' EM  = ' , EM 

RI2  = RI  **  2 
R02  = RO  **  2 
RDIFF  = R02  - RI2 

GEOM  = 1.00  - 2.00  * LOG  (RO  / RI)  * RI2  / RDIFF 
C TEMPERA'TURE  STRESS 

STHMA  = ((EM  * ALPHA  * DLTAT)  / (2.00  * (1.00  - NU) 

& * LOG  (RO  / RI)))  * GEOM 

C AXIAL  S'TRESS  CALCULATIONS 

STRIA  ==  PSTAT  / AREA 

STRlB  = (MSTAT(l)  * COS  (ANGLE)  + MSTAT(2)  * SIN  (ANGLE))  * RO 
& /MI 

STRIC  = (PC  - PCO)  * RI2  / RDIFF 

STATIC(l)  = (STRIA  + STRlB  + STRlC)  * SKTl  * KOFF  + STHMA 

C HOOP  (2)  AND  RADIAL  (3)  STRESS  CALCULATIONS 

S'TR2A  = 2.0  * PC  * RI2  / RDIFF 
STR2B  = - PCO  * (R02  + RI2)  / RDIFF 

STATIC(2)  = (STR2A  + STR2B)  * SKT2  + STHMA 

STATIC(3)  = - PCO 

C SHEAR  STRESS 

STATIC(4)  = TSTAT  * RO  / (2.0  * MI)  - (2.0  / AREA 
& * (VSTAT(l)  * COS  (ANGLE)  + VSTAT(2)  * SIN  (ANGLE))) 


IF 


(IOUT.EQ.25 
TOITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


) THEN 

R02  = ' , R02 , ' RI2  = ' , RI2 
RDIFF  = ' , RDIFF,  ' GEOM  = ' , 
STATIC  STRESS  VALUES  ' 

AXIAL  STRESSES' 

STRIA  = ' , STRIA,  ' STRlB 
STRlC  = ' , STRIC,  ' STHMA 
STATIC(l)  = ',  STATIC(l) 
HOOP  STRESSES' 

STR2A  = ' , STR2A,  ' S'TR2B 
STHMA  = ' , STHMA 

STATIC(2)  = ',  STATIC (2) 
RADIAL  S'TRESS',  ' STATIC (3) 
SHEAR  STRESS',  ' STATIC(4) 


GEOM 


= ' , STRlB 
= ' , STHMA 


= ' , STR2B, 


= ',  STATIC(3) 
= ',  STATIC(4) 
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WRITE (8,*) 

ENDIF 

DO  100  1=1,  NLOAD 
C AXIAL  STRESS  CALCULATIONS 

SIGIA(I)  = P(I}  / AREA 

SIGIB(I)  = (M(1,I)  * COS  (ANGLE)  + M(2,I)  * SIN  (ANGLE)) 

& * RO  / MI 

STRAMP(1,I)  = (SIGlA(I)  + SIGlB(I))  * SKTl  * KOFF 

C HOOP  (2)  AND  RADIAL  (3)  STRESSES  ARE  ZERO 

C BECAUSE  PRESSURES  ARE  CONSTANT 

STRAMP(2,I)  =0.0 

STRAMP(3,I)  = 0.0 

C SHEAR  STRESS 

STRAMP(4,I)  = T(I)  * RO  / (2.0  * MI)  - (2.0  / AREA 
i * (V(1,I)  * COS  (ANGLE)  + V(2,I)  * SIN  (ANGLE))) 


IF  (IOUT.EQ.25)  THEN 


WRITE(8, *) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,  *) 
WRITE( 8,  *) 
WRITE ( 8 , * ) 
ENDIF 


STRESS  VALUES  FOR  I = ' I 
AXIAL  STRESSES' 

SIGIA  = SIGIA(I),  ' SIGIB 
STRAMP(1,I)  = STRAMPfl,!) 


'HOOP  stresses'' 
'RADIAL  STRESS 
'SHEAR  STRESS' 


STRAMP(2,I)  = 
STRAMP(3,I)  = 
STRAMP(4,I)  = 


SIGIB(I) 

',STRAMP(2,I) 
',STRAMP(3,I) 
, S'TRAHP{4,I) 


100  CONTINUE 


IF  (TOUT  .EQ.  25)  THEN 

WRITE (8,*)  'I  AXIAL  HOOP  RADIAL  SHEAR' 

WRI'TErS,*)  STATIC(l),  STATIC(2),  STATIC(3),  STATIC(4) 
DO  300  1=1,  NLOAD 

WRITE(8,*)  I,  STRAMP(1,I),  STRAMP(2,I),  STRAMP(3,I), 
& STRAMP (4,1) 

300  CONTINUE 
ENDIF 


RE'TURN 

END 


C SUBROUTINE  M4L2  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  FIND  THE  STRESS 
C FOR  LOCATION  2 (PLAIN  WELD,  INTERIOR  SURFACE  OF  THE  DUCT),  UNDER 
C THERMAL  LOADING 
C PROGRAMMER:  L.  NEWLIN 

C DATE;  JUL92 

C VERSION:  92.4 

C******T«r  ★*****^******i4r**‘*******^***#********* 

SUBROUTINE  M4L2  (ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K,  LAMW,  M,  MSTAT, 

& NLOAD,  NU,  P,  PC,  PCO,  PSTAT,  STATIC,  STRAMP, 

& T,  THIC,  TSTAT,  V,  VSTAT,  WOFF,  FK,  RT) 

C INPUTS:  ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K,  LAMW,  M,  MSTAT,  NLOAD,  NU, 

C P,  PC,  PCO,  PSTAT,  T,  THIC,  TSTAT  V,  VSTAT,  WOFF,  FK,  RT 

C OUTPUTS;  STATIC,  STRAMP 
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C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  I,  I OUT,  J,  MAXLD,  NLOAD 
REAL  PI 


PARAMETER  <MAXLD  = 16,  PI  = 3.1415926536) 

REAL  ALPHA.  ANGLE,  AREA,  DLTAT,  EM,  FK(IO),  GEOM,  IFK,  DI, 
£>  K(2,  2),  KOFF,  LAMW,  M(2,  MAXLD),  MI,  MSTAT(2),  NU, 

& P(MAXLD).  PC,  PCO,  PSTAT,  RDIFF,  RI,  RI2,  r6,  R02, 

& ROT,  RT(IO),  SIGIA(MAXLD) , SIGlB(MAXLD) , SKTl,  SKT2, 

& STATIC(4),  STHMA,  STRIA,  STR2A,  STRlB,  STR2B,  STRlC, 

& STRAMPM,  MAXLD),  T ( MAXLD ) , THIC,  TSTAT,  V(2,  MAXLD), 

& VSTAT(2),  WOFF 


C 

C 

C ALPHA 
C ANGLE 
C AREA 
C DI 
C DLTAT 
C EM 
C FK( ) 

C 

C GEOM 
C I 
C 

C IFK 
C lOUT 
C J 

c 

c K() 
c 
c 
c 

C KOFF 
C LAMW 
C M() 

C 

c MAXLD 
C MI 
C MSTAT(  ) 
C 

C NLOAD 
C NU 
C P() 

C PC 
C PCO 
C PI 
C PSTAT 
C RDIFF 
C RI 
C RI2 
C RO 
C R02 
C ROT 
C RT(  ) 

C 

C SIG1A( ) 

C 

C SIGIBO 
C 

C SKTl 
C SKT2 
C STATIC ( ) 
C 
C 

C STHMA 
C STRIA 


LIST  OF  VARIABLES 


COEFFICIENT  OF  THERMAL  EXPANSION 
ANGLE  THETA  IN  RADIANS 
CROSS  SECTION  AREA  OF  DUCT  WALL 
INTERIOR  DIAMETER 

TEMPERATURE  DIFFERENCE  BETWEEN  INNER  AND  OUTER  SURFACES 
YOUNG'S  MODULUS  PRIOR  TO  YIELD 

1- D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 

INTERMEDIATE  THERMAL  STRESS  CALCULATION  VARIABLE 
CONTROLS  DO  LOOP  FOR  RANDOM,  SUPERIMPOSED  SINUSOIDAL  AND 
AERODYNAMIC  LOADS 

INTERPOLATED  VALUE  OF  Fk  CORRESPONDING  TO  THE  VALUE  OF  r/t 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  RT()  AND  FK()  DURING 
INTERPOLATION 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  DUCT 
EXTERIOR  FOR  AXIAL  DIRECTION;  K(2,l)  IS  FOR  DUCT  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  DUCT  INTERIOR  FOR  AXIAL 
DIRECTION;  K(2,2)  IS  FOR  DUCT  INTERIOR  FOR  HOOP  DIRECTION 
STRESS  CONCENT^TION  FACTOR  DUE  TO  ECCENTRICITY  OF  WELD 
ACCURACY  FACTOR  OF  Fk  - r/t  CURVE 

2- D  array  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 
ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 
MOMENT  OF  INERTIA 

1-D  ARRAY  CONTAINING  THE  STATIC  TIME-VARYING  LOADS  — M(l)  IS 
THE  M2  LOAD;  M(2)  IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 
POISSON'S  RATIO 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

LIMIT  PRESSURE  ON  INSIDE  OF  THE  VESSEL 

LIMIT  PRESSURE  ON  OUTSIDE  OF  THE  VESSEL 

SELF  EXPLANATORY  CONSTANT 

STATIC  AXIAL  LOAD 

EQUAL  TO  R02  - RI2 

INTERIOR  RADIUS 

INNER  RADIUS  SQUARED 

OUTER  RADIUS 


OUTER  RADIUS  SQUARED 
EQUAL  TO  r / t (R  Over  T) 

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  'TO  FIND  STRESS 
CONCENTRATION  DUE  *rO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  S'TRESS  DUE  TO  FORCE 
FOR  THE  TIME-VARYING  LOADS 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  STRESS  DUE  TO  BENDING 
FOR  THE  TIME-VARYING  LOADS 
STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 


STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  

STATIC(l)  IS  THE  AXIAL  S'TRESS;  STATIC(2)  IS  THE  HOOP  STRESS; 
STATIC(3)  IS  THE  RADIAL  STRESS;  STATIC(4)  IS  THE  SHEAR  STRESS 
THE  STATIC  AXIAL  STRESS  DUE  TO  THERMAL  GRADIENT 


THE  STATIC  AXIAL  STRESS  DUE  'TO  FORCE 
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nn 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


STRIB 
STRIC 
STR2A 
STR2B 
STRAMP( ) 


TSTAT 

V() 

VSTATO 

WOFF 


THE  STATIC  AXIAL  STRESS  DUE  TO  BENDING 

mSf  AXIAL  STRESS  DUE  TO  MOMENTUM  CHANGE  (FLUID) 

Jot  f STRESS  AT  OUTER  SURFACE  DUE  TO  INTERNAL  PRESSURE 
STRESS  AT  OUTER  SURFACE  DUE  TO  EXTERNAL  PRESSURE 
CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
AXIAL  STRESSES;  STRAMP(2,*)  ARE 
STRESSES;  STRAMP(3,*)  ARE  THE  RADIAL  STRESSES; 
STRAMP(4,*)  ARE  THE  SHEAR  STRESSES 

CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
WALL  THICKNESS  AT  DUCT  OUTER  RADIUS  ^ 

STATIC  TORQUE  LOAD 

CONTAINING  THE  TIME-VARYING  SHEAR  LOADS V(l,*) 


ARE  THE  V2  LOADS;  V( 

1-D  ARRAY  CONTAINING  T„„ 
LOAD;  V(2)  IS  THE  V3  LOAD 
WELD  OFFSET 


2,*)  ARE  THE  V3  LOADS 
'HE  STATIC  SHEAR  LOADS  — V(l)  IS  THE  V2 


C 

C 


CALCULATE  KOFF,  THE  STRESS  CONCENTRATION 
ECCENTRICITY  OF  THE  WELD 


FACTOR  DUE  TO 


RI  = DI  / 2.0 

ROT  = (DI  + THIC)  / (2.0  * THIC) 


DO  50  J = 2,  10 

FACTOR  Fk  CORRESPONDING  TO  VALUE  OF  r/t 


ENDIF 
50  CONTINUE 


/ (RT(J)  - RT(J-l) 


* (ROT  - RT( J-1) ) ' 
))  + FK(J-l) 


KOFF  = LAMW  * (1.0  + 3.0  * IFK  * WOFF) 


IF  (lOUT  ,EQ.  25)  THEN 
WRITE (8,*)  'DI  = 
WRITE (8,*)  'THIC  = ' 
WRI'TE(8,*)  'IFK  = ' , 
WRITE (8,*)  'LAMW  = ' 
ENDIF 


DI,  ' RI  = ',  RI 
, THIC,  ' ROT  = ' 
IFK,  ' WOFF  = ', 
, LAMW,  ' KOFF  = 


, ROT 
WOFF 
',  KOFF 


C 


C^^^'CULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 


AREA  = PI  * ((RI  + THIC)  **  2 - RI  **  2) 

MI  = PI  * ((RI  + THIC)  **  4 - RI  **  4)  / 4.0 


OBTAIN  STRESS  CONCENTRATION 
THIS  IS  THE  INTERIOR  SURFACE 


FACTORS  AND 


RADII  APPROPRIA'TE 


TO  LOCATION 


SKTl  = K(l,2) 
SKT2  = K(2,2) 
RO  = RI  + THIC 


xr  ( lOUT  . 
WRITE (8 
WRI'TE(8 
WRITE (8 
WRI'TE(8 
WRITE (8 
WRITE(8 
WRITE(8 
ENDIF 


25)  THEN 
'AREA  = ' , 
'K(l/2)  = 
'K(2,2)  = 
'THIC  = ' , 
'ALPHA  = ' 
'DLTAT  = ' 


AREA,  ' MI  = ', 
',  K(l,2),  ' SKTl 
',  K(2,2),  ' SKT2 
THIC,  ' RO  = ', 

, ALPHA,  ' NU  = ' 
, DLTAT,  ' EM  = ' 


, NU 
, EM 


SKTl 

SKT2 


RI2  = RI  **  2 
R02  = RO  **  2 
RDIFF  = R02  - RI2 

GEOM  = 1.00  - 2.00  * LOG  (RO  / RI)  * ro2  / RDIFF 
C TEMPERATURE  STRESS 


STHMA  = ((EM  * ALPHA  * DLTAT)  / (2.00  * (1.00  - NU) 
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& * LCX3  ( RO  / RI ) ) ) » GEOM 

C AXIAL  STRESS  CALCULATIONS 

STRIA  — PSTAT  / ARKA 

STRIB  = (MSTAT(l)  * COS  (ANGLE)  + MSTAT(2)  * SIN  (ANGLE)) 

& * RI  / MI 

STRIC  = (PC  - PCO)  * RI2  / RDIFF 

STATIC(l)  = (STRIA  + STRlB  + STRlC)  * SKTl  * KOFF  + STHHA 

C HOOP  (2)  AND  RADIAL  (3)  STRESS  CALCULATIONS 

STR2A  = PC  * (RI2  + R02 ) / RDIFF 
STR2B  =-2.0*  PCO  * R02  / RDIFF 

STATIC(2)  = (STR2A  + STR2B)  * SKT2  + STHMA 

STATIC(3)  = - PC 

C SHEAR  STRESS 

STATIC(4)  = TSTAT  * RI  / (2.0  * MI)  - (2.0  / AREA 
& * (VSTAT(l)  * COS  (ANGLE)  + VSTAT(2)  * SIN  (ANGLE))) 


IF  (IOUT.EQ.25 
WRITE ( ‘ 
WRITE ( 

WRITE ( 
WRITE? 

WRITE ( 

WRITE ( 

WRITE ( 

WRITE ( 

WRITE ( 


:8,*) 

S!'*) 

[8,*) 

If'* 

;|,*) 

If,*) 

|8,*) 


WRITE ( 
WRITE? 
WRITE ( 
WRITE ( 
ENDIF 


8,*) 

8,*) 

8,*) 

8,*) 


) THEN 

■R02  = R02,  'RI2  = RI2 

RDIFF  = ' , RDIFF,  ' GEOM  = ' , GEOM 
STATIC  STRESS  VALUES' 

AXIAL  STRESSES' 

STRIA  = ' , STRIA,  ' S'TRIB  = ' , STRIB 
STRIC  = ' , STRIC,  ' STHMA  = ' , STHMA 
STATIC(lj  = ',  STATIC(l) 

HOOP  STRESSES' 

STR2A  = ' , STR2A,  ' S'TR2B  = ' , STR2B, 
STHMA  = '.  STHMA 

STATIC(2)  = ',  STATIC(2) 

RADIAL  STRESS',  ' STATIC (3)  = ',  STAT1C(3) 

SHEAR  STRESS',  ' STATIC(4)  = ',  STATIC(4) 


DO  100  1=1,  NLOAD 
AXIAL  STRESS  CALCULATIONS 


SIGIA(I)  = P(I)  / AREA 

SIGlB(I)  = (M(1,I)  * COS  (ANGLE)  + M(2,I)  * SIN  (ANGLE)) 

5 * RI  / MI 

STRAMP(1,I)  = (SIGlA(I)  + SIGIB(I))  * SKTl  * KOFF 

C HOOP  (2)  AND  RADIAL  (3)  STRESSES  ARE  ZERO 

C BECAUSE  PRESSURES  ARE  CONSTANT 

STRAMP(2,I)  =0.0 

STRAMP(3,I)  =0.0 

C SHEAR  STRESS 

STRAMP(4,I)  = T(^I)  * RI  / (2.0  * MI)  - (2.0  / AREA  * 

6 (V(1,I)  * COS  (ANGLE)  + V(2,I)  * SIN  (ANGLE))) 


IF  (IOUT.EQ.25)  THEN 


WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 


STRESS  VALUES  FOR  I = ' , I 
AXIAL  STRESSES' 

SIGlA  = ',  SIGlA(I),  ' SIGIB  = ',  SIGlB(I) 
STRAMP(1,I)  = ',  STRAMP(1,I) 

HOOP  STRESSES',  ' STRAMP(2,I)  = ' ,STRAMP(2, I) 

RADIAL  STRESS',  ' S'TRAMP(3,I)  = ' ,STRAMP(  3, 1 ) 

SHEAR  STRESS',  ' STRAMP(4,I)  = ',  STRAMP(4,I) 
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ENDIF 
100  CONTINUE 


300 


IF  (lOUT  .EQ.  25)  THEN 

WRITE(8,’*f)  'I  AXIAL  HOOP  RADIAL  SHEAR' 

VpiTO/8,^)  STATIC(l),  STATIC(2),  STATIC(3),  STATIC(4) 
DO  300  1=1,  NLOAD  ' ' 

WRITE(8,*)  I,  STRAMP(1,I),  STRAMP(2,I),  STRAMP ( 3 , I ) , 
^ STRAMP(4,I)  \ f 

CONTINUE 
ENDIF 


RETURN 

END 


C^ 

C 

C 

C 

C 

c 

c 

c 

c 

c 


SUBROUTINE  CYCOUN  CALCULATES  THE  NUMBER  OF  CYCLES  BY  RAINFLOW 
COUNTING,  CREATES  A STRESS  VS.  CYCLES  TABLE,  AND  DETERMINES 
THE  EQUIVALENT  MEAN  STRESS 


PROGRAMMER: 

DATE: 

VERSION: 


S.  SUTHARSHANA,  L.  NEWLIN 

DECEMBER  1992 

92.5 


***ilr**ilr**iAr 


SUBROUTINE  CYCOUN  (DSALT,  E,  EM,  NBIN,  NEUB,  NUMSEG,  M, 
& SE,  SPR,  SM,  TRUNC) 

C INPUTS:  E,  EM,  M,  NEUB,  NUMSEG,  SE,  SPR,  TRUNC 

C 

C OUTPUTS:  SPR,  DSALT,  NBIN,  SM 
C SUBPROGRAM:  NEUBER 
C IMPLICIT  NONE 

COMMON  lOUT 


INTEGER  MAXM,  MAXSEG 

PARAMETER  (MAXM  = 20000,  MAXSEG  = 10) 

INTEGER  I,  INDEX(MAXM),  lOUT,  J,  JMAX,  K,  M,  N, 
5.  NBIN(IOO),  NEWTOT,  NUMSEG,  OVER 

INTEGER  I NEUB,  IRET,  KGROW,  KPROB 

REAL  DSALT,  E(MAXSEG),  EE(MAXM),  EM,  HIGH, 

LOW,  NEUB,  NEUBER,  S(MAXM),  SALTF, 
SE(MAXSEG),  SPR(MAXM),  SEFMAX, 

SM,  SMEANF,  SMAX,  SMIN,  SP(MAXM), 
TESTl(MAXM),  TEST2(MAXM),  TRUNC 

COMMON /CNTRL/INEUB,  IRET,  KGROW,  KPROB 


& 

& 

& 

& 


C 

c 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LIST  OF  VARIABLES 


input  variables : 


E() 

EM() 

I OUT 
M 

MAXM 

MAXSEG 

NUMREG 

NUMSEG 

SE() 


1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES 
YOUNG'S  MODULUS  BEFORE  YIELD 
OUTPUT  DUMP  CONTROLLER 

TOTAL  NUMBER  OF  STRESS  DATA  POINTS  PER  PERIOD 
MAXIMUM  NUMBER  OF  POINTS  IN  STRESS  TIME  HIS'TORY 
MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED 
NUMBER  OF  REGIONS  OF  INTEREST 
NUMBER  OF  SEGMENTS  OF  INTEREST 

1-D  ARRAY  CONTAINING  THE  STRESS-STRAIN  PRODUCTS 
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C SPR(M)  PRINCIPAL  STRESS  HISTORY 

C TRUNC  VALUE  USED  TO  FILTER  OUT  NOISE 

C 

C intermediate  variables: 


C EE() 

C INDEX ( } 

C I,J,K 
JMAX 
N 

NEUB 
NEUBER 
NEWTOT 
OVER 

S(NEWTOT) 
SALTF 
SEFMAX 
SH 

C SHEANF 
C SP(M+1) 

C TESTl ( ) 

C TEST2 ( ) 


HOLDING  ARRAY  USED  TO  FIND  CYCLES  DURING  RAINFLOW  ANALYSIS 
COUNTER  FOR  EFFECTIVE  STRESSES 
COUNTERS  FOR  VARIOUS  DO  LOOPS 
INDEX  (LOCATION)  OF  SEFMAX  IN  SPR( ) 

NUMBER  OF  CYCLES  FOUND  DURING  RAINE1#0W  ANALYSIS 

NEUBER 'S  RULE  MODEL  ACCURACY  FACTOR 

FUNCTION  TO  CALCULATE  EQUIVALENT  MEAN  STRESS 

TOTAL  NUMBER  OF  EFFECTIVE  STRESS  VALUES  AFTER  FILTERING 

FLAG  INDICATING  THAT  LIFE  IS  ONLY  ONE  CYCLE 

FILTERED  EFFECTIVE  STRESSES 

ALTERNATING  STRESS  FOR  UUIGEST  STRESS  RANGE  CYCLE 

LARGEST  EFFECTIVE  STRESS 

SM  = EQUIVALENT  MEAN  STRESS 

MEAN  STRESS  FOR  LARGEST  STRESS  RANGE  CYCLE 

RESEQUENCED  EFFECTIVE  STRESSES;  # OF  PTS  = M+1 

1-D  ARRAY  USED  IN  FILTERING  THE  STRESSES 

1-D  ARRAY  USED  IN  FILTERING  THE  STRESSES 


c dump  input  data 

if  (lout. eq. 30)  then 

write (8,*)'  cycoun  inputs' 
write(8,*) 'm  ; ' ,m 

WRITE(8,*)  'EM  :',EM, ' TRUNC  : ' ,TRUNC, ' NEim  :',NEUB 
WRITE(8,*)  'E():',  E 
WRITE(8,*)  'SE():',  SE 
WRITE ( 8 , * ) ' NUMSEG : ' , NUMSEG 
write! 8,*)'  ' 
endif 


C INITIALIZE  ARRAYS 

DO  50  I = 1,  MAXM 
SP(I)  = 0.0 
S(I)  = 0.0 
EE(I)  = 0.0 
INDEX(I)  = 0 
TESTl !l)  =0.0 
TEST2(I)  =0.0 
50  CONTINUE 

SM  = 0.0 


C********************  BEGIN  RESEQUENCE  ******************** 
C RESEQUENCE  effective  stresses  (needed  for  rainflow  analysis); 

C largest  effective  stress  is  placed  at  beginning  and  end  of  SP(M+1) 

C find  SEFMAX,  the  largest  sigma, eff,  and  JMAX,  its  location  within  SPR(M) 

SEFMAX  = -l.OE+20 
DO  200  1=1, M 

IF  ( SPR(I)  .GT.  SEFMAX  ) THEN 
SEFMAX  = SPR(I) 

JMAX  = I 
ENDIF 
200  C<»ITINUE 


assign  all  points  from  JMAX  out, 
DO  210  1=1,  M-JMAX+1 
J = JMAX-1  + I 
SP(I)  = SPR(J) 

210  CONTINUE 


to  the  beginning  of  SP ( ) 


c 


assign  points  before  JMAX  to  the  end  of  SP 
J = 0 

DO  220  I = M-JMAX+2,  M 
J = J + 1 
SP(I)  = SPR(J) 

220  CONTINUE 

SP(M+1)  = SPRfJMAX) 
if  (iout.eq.30)  then 


() 
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write(8,*) 'sefmax: 
write (8,*) 'sp(m+l) 
endif 


sefmax,'  jmax:',jmcix 
, (sp(i) ,i=l,m+l) 


C*****^******<lr**ilr^**Tfr*^  END 


RESQUENCE  T^**^*^**^***nr*******^**** 


r**ntnr^r**********  FILTER  ************************** 

S the  reseguenced  effective  stresses,  leavinci  onlv  Desks  and 
C valleys  (excursions  larger  than  TRUNC  are  deleted  durinq^’rainf low 
C counting)  in  (NEVJTOT),  where  NEWTOT  is  the  new  numbS  of  ^iSts 


300 


DO  300  I = 2,  M 

TESTl(I)  = SP(I- _ 
TEST2(I)  = TEST1( 
CONTINUE 


Ih 


SP(I) 

(SP(I) 


SP(I+1) ) 


c 

c 

c 

c 

c 


305 


if  (lout  .eq.  30)  then 
do  305  i = 2,  m 

write (8,*)  'testl 
continue 
endif 


testl (i),  ' test2 


test2 ( i ) 


K = 1 

INDEX(l)  = 1 
DO  310  I = 2.  M 

IF  ((TCSTl(I)  ,NE.  0)  ,AND.  (TEST2{I)  .LT.  0))  THEN 
K — K + 1 
INDEX(K)  = I 
ENDIF 
310  CONTINUE 

NEWTOT  = K + 1 
INDEX(NEWTOT)  = M + 1 

DO  320  1=1,  NEWTOT 
K = INDEX(I) 

S(I)  = SP(K) 

320  CONTINUE 

if  (iout.eq.30)  then 

write ( 8 , * ) ' newtot : ' , newtot 

5 ' / (s(i),i=l, newtot) 


FILTER 


C***^********^^**w*****^**  END 

^ vcTo^r  ^'5  RAIN  FLOW 

identify  cycles  within  effective  stress  data, 
S (NEWTOT),  places  each  cyclers  max  amd  min  values  into  SPR(N) 


counters:  I counts  # of  cycles  found,  J counts  how  many  S()'s  counted, 
K accumulates  unmatched  points  ' ' 


1 = 0 
J = 0 
K = 0 

400  CONTINUE 


J = J+1 
K = K+1 

C to  avoid  riding  beyond  end  of  filtered  stress  data 

IF  ( J .GT.  NEWTOT  ) GOTO  499 

^ ^ holding  array  to  be  checked  for  cycles 

410  IF  ( K .LT.  3 ) GOTO  400 

IF  (ABS  (EE(K)  - EE(K-l))  .LT.  ABS  (EE(K-l)  - EE(K-2)))  GOTO  400 
c if  not,  then  a cycle  has  been  found,  but  we  need  to  check  for  truncation 
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c 


IF  (ABS  (EE(K-l)  - EE(K-2))  ,GT.  TRUNC)  THEN 
cycle  is  large  enough  to  save 
I = I+l 

SMAX  = AMAX1(  EE(K-l),  EE(K-2)  ) 

SMIN  = AMIN1(  EE(K-l),  EE(K-2)  ) 

SMEANF  = (SMAX  + SMIN)/2.0 
SPR(I)  = SMAX  - SMEANF 

ENDIF 

C discard  points  K-1  and  K-2,  and  decrement  the  counter  of  unmatched  points 

EE(K-2)  = EE(K) 

K = K-2 

C return  for  more  counting 
GOTO  410 
499  CONTINUE 

C N equals  the  final  number  of  cycles  found 
N = I 

if  (iout.eq.25)  then 
write(8,*)'N  :',n 
write ( 8 , * ) ' spr { n ) : ' 
do  12  i=l,n 

write (8,*)  spr(i) 

12  continue 
endif 

IF  (N  .EQ.  0)  THEN 

C TRUNCATION  FILTER  TOO  LARGE  ~ NO  CYCLES  LEFT 
GOTO  710 
ENDIF 


C 

end  rainflow 

C calculate  alternating  and  mean  effective  stresses  for  the  largest 
C stress  cycle 

SALTF  = SPR(N) 

C Assign  the  stress  cycles  to  bins 

DSALT  = SALTF/100.0 

LOW  = SALTF  + DSALT/2.0 

DO  510  1=  1,  100 
HIGH  = LOW 
LOW  = LOW  - DSALT 
NBIN(I)  = 0 
DO  5d0  J=l,  N 

IF(  (SPR(J)  .GT.  LOW)  .AND.  (SPR(J)  .LT.  HIGH)  ) THEN 
NBIN(I)  = NBIN(I)  + 1 
ENDIF 

500  CONTINUE 

510  CONTINUE 

if  (iout.eq.25)  then 

write ( 8 , * ) ' saltf  : ' , saltf 
write ( 8 , * ) ' smeanf : ' , smeanf 

endif 

c*******  Determine  Equivalent  Mean  Stress,  SM(N)  for  the  largest  cycle  **** 
c 

OVER  = 0 

C We  are  calculating  the  equivalent  meeui  stress  using  neuber's  rule 
C SM  is  the  equivalent  mean  stress 
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IF  (INEUB  .EQ.  1)  THEN 

SM  - NEUBER  (EM,  S^TF,  SMEANF,  NUMSEG,  E,  SE,  NEUB,  OVER) 
(aout.eq.25)  write(S,*) 'sm  : ' , sm  ' ' 

SM  = SMEANF 
ENDIF 

710  CONTINUE 


RETURN 
END 

^**M^r™^«*,*,^^^!\*,l****!**.**^*!.*.********************************************** 


USES  NEUBERS  RULE  AND  THE  STRESS-STRAIN  CURVE  TO  CALCULATE  THE 
THE  MEAN  STRESS.  PROGRAM  ASSUMES  THAT  THE^MSS  STRAIN  cESv^ 
PIECEWISE  LINEAR  WITH  AT  MOST  FIVE  ^CTIONS.  STRAIN  CURVE  IS 

PROGRAMER:  L.  NEWLIN 
DATE;  13SEP88 

VERSION:  92.1,  92.2,  92.3,  92.4,  92.5 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  NEUBER  (EM,  SALT,  SMEAN,  NUMSEG,  E,  SE,  NEUB,  OVER) 


C 

C 


INPUTS : 
OUTPUTS : 


SMEAN,  NUMSEG,  SE,  E,  NEUB,  OVER 

NEUBER 


IMPLICIT  NONE 
COMMON  lOUT 

INTEGER  I,  lOUT,  MAXSEG,  NUMSEG,  OVER 
PARAMETER  (MAXSEG  = 10) 

REAL  SiHS'  NEUBER,  PRODCT,  SALT, 

» SE( MAXSEG),  SMEAN,  ST,  TEMP 

LIST  OF  VARIABLES 

STRAIN  VALUES  FOR  EACH  SEGMENT 
YOUNG'S  MODULUS  BEFORE  YIELD 

STRAIN  (WHERE  PLASTIC=ELASTIC  DEFORMATIONS 
CONTROLS  DO  LOOP  FOR  EACH  SEGMENT  ^ 

OUTPUT  DUMP  CONTROLLER 

SEGMENTS  ALLOWED  ( STRESS- STRAIN ) 

NEUBER' S RULE  MODEL  ACCURACY  FACTOR  ^ 

TOTAL  EQUIVALENT  MEAN  STRESS 

IS?^®AL?^ATING^STLsr^^  PLASTIC=ELASTIC  DEFORMAITON) 

'“FOn"S-SNT°C^^I"'^^  STRESS-STRAIN  PRODUCTS 
MEAN  STRESS 

UNI -AXIAL  TOTAL  STRESS 
TEMPORARY  VARIABLE  FOR  NEUBER 


E() 

EM 

EPSLON 

I 

I OUT 

MAXSEG 

NEUB 

NEUBER 

NUMSEG 

OVER 

PRODCT 

SALT 

SE() 

SMEAN 

ST 

TEMP 


TEMP  = 0.00 

ST  = SALT  * SMEAN  / (ABS  (SMEAN))  + SMEAN 
PRODCT  = NEUB  * (ST  **  2)  / EM 

IF  (PRODCT  .LE.  SE ( 1 ) ) THEN 


TEMP  = SMEAN 
ELSE 


& 


DO  800  1=1,  (NUMSEG  - 1) 

IF  ( PRODCT  . GT . SE ( I ) ) THEN 

IF  (PRODCT  ,LT.  SE(I+1))  THEN 
EPSLON  = E(I)  + ((E(I+1)  - E( 
(SE(I+1)  - SE(I)))  i 
TEMP  = PRODCT  / EPSLON  - SALT 


I))  / 

(PRODCT  - SE( 


I)) 
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ENDIF 
ENDIF 
800  CONTINUE 


ENDIF 

IF  (ABS(TEMP)  .LT.  l.OE-04)  THEN 
OVER  = 1 

WRITE (8,*)  'THE  VALUE  PRODCT  EXCEEDED  STRESS-STRAIN  CURVE' 
ENDIF 

TEMP  = TEMP  * ABS(ST)  / ST 
NEUBER  = TEMP 


IF  (lOUT  .EQ. 
WRITE(8,*) 
WRITE ( 8 , ♦ ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE(8,*) 
ENDIF 


25)  THEN 

'VALUES  FROM  NEUBER' 

'INPUT  VALUES' 

' EM  = ' , EM,  ' NEUB  = ' , NEUB,  ' OVER  = 
' SALT  = ' , SALT,  ' SMEAN  = ' , SMEAN 
'CALCULATED  VALUES' 

' ST  = ' , ST,  ' PRODUCT  = ' , PRODCT 
' EPSLON  = ',  EPSLON,  ' NEUBER  = ',  TEMP 


OVER 


RETURN 

END 

C SUBROUTINE  HYPDRW  PERFORMS  THE  RANDOM  VARIABLE  DRAWS  IN  THE  OUTER 
C HYPERPARAMETER  LOOP 
C 

C PROGRAMMER  : S.  SUTHARSHANA 
C DATE  ; 25  JAN  1989 

C VERSION  : 92.1,  92.2,  92.3,  92.4,  92.5 
C 

C Copyright  (C)  1991,  California  Institute  of  Technology. 

C U.S.  Government  sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 

**★★****★★♦★**★★*** ***************  ♦**♦*♦♦*** 

SUBROUTINE  HYPDRW  (AERD,  AERS,  AS'TR,  DSTR,  KLAM,  LAMGR,  LAMKC, 

& LAMKH,  LAMW,  NEUB,  SSTR,  MVAR) 

C SUBPROGRAMS:  PRYRV,  RANDOM 

C IMPLICIT  NONE 

INTEGER  INEUB,  IRET,  KGROW,  KPROB 

INTEGER  I OUT 


DOUBLE  PRECISION  RAND 


REAL  AERD,  AERDA,  AERDB,  AERS,  AERSA,  AERSB,  AIA,  AIB, 

& AIRl,  AIR2,  AITl,  AIT2,  AIR,  AIT, 

& AOCA,  AOCB,  AOCRl,  AOCR2,  AOCTl,  AOCT2,  AOCR,  AOCT, 

& ASTR,  AS'TRA,  ASTRB, 

& DPCMU,  DPCSIG,  DSTR,  DSTRA,  DSTRB,  DTIMU,  DTISIG, 

& DTOMU,  DTOSIG,  DUM,  INDIAA,  INDIAB, 

& INDIR,  INDIRl,  INDIR2,  INDIT,  INDITl,  INDIT2, 

& KLAM,  KLAMA,  KLAMB,  LAMKH,  LAMKHA,  LAMKHB, 

& LAMKC,  LAMKCA,  LAMKCB,  LAMGR,  LAMGRA,  LAMGRB, 

& LAMNA,  LAMNB,  LAMNC,  LAMND, 

& LAMNK,  LAMNMU,  LAMNSG,  LAMSA,  LAMSB,  LAMSC,  LAMSD, 

& LAMSK,  LAMSMU,  LAMSSG, 

& LAMW,  LAMWA,  LAMWB,  MVAR,  MVARA,  MVARB 


REAL 

& 

& 

& 

& 

& 

& 


NEUB,  NEUBA,  NEUBB,  NORM,  PCMU,  PCMUA,  PCMUB,  PCSIG, 
PCSIGA,  PCSIGB,  SSTR,  SSTRA, 

SSTRB,  TEST,  THICA,  THICB, 

THICR,  THICRl,  THICR2,  THICT,  THICTl,  'THICT2,  TIMU, 
TIMUA,  TIMUB,  TISIG,  TISIGA,  TISIGB,  TOMU,  T«1UA,  TOMUB, 
TOSIG,  TOSIGA,  TOSIGB,  WITHA- 

WITHB,  WITHRl,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT, 
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& 

& 

& 


WOFFA,  WOFFB, 
WOFFRl , WOFFR2 
WOFFT3,  WOFFT4 


WOFFC,  WOFFD,  WOFFE,  WOFFHI , WOFFLO,  WOFFR 
, WOFFR3,  WOFFR4,  WOFFT,  WOFFTl,  WOFFT2, 


/ 


COMMON/DRIVRS/  AERDA,  AERDB,  AERSA,  AERSB,  AIA, 

AIB,  AIRl,  AIR2,  AITl,  AIT2,  AIR,  AIT, 

AOCT^,  AOCR,  AOCT, 

DSTRB,  DTIMU,  DTISIG,  DTCMIU,  DTOSIG, 
^NDIRi,  INDIR,  INDIxi,  INDIT2,  INDIT, 
LAMGRB,  LAMKHA,  LAMKHB,  LAMKCA,  LAHKCB, 
LAMNA,  LAMNB,  LAMNC,  LAMND,  LAMNMU,  LAMNSG, 

LAMSA,  LAMSB,  LAMSC,  LAMSD,  LAMSMU,  LAMSSG. 
lAMWA,  lAMWB,  MVARA,  MVARB,  NEUBA,  NEUBB, 

P^,  PCMUA,  PCMUB,  PCSIG,  PCSIGa'  PCSIGB, 

SSTRA,  SSTRB, 

™ICR1,  THICR2,  THICR,  THICTl,  THICT2,  THICT, 
TIMU,  TIMUA,  TIMUB,  TISIG,  TISIGA,  TISIGB, 

TOMU,  TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB. 

WITHRI,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT, 
WOFFA,  WOFFB,  WOFFC,  WOFFD,  WOFFE,  WOFFHI,  WOFFLO, 

WOFFRl,  WOFFR2,  WOFFR3,  WOFFR4,  WOFFR,  WOFFTl,  WOFFT2 
WOFFT3,  WOFFT4,  WOFFT  wv^rrij.,  wwfiz. 


COMMON/CNTRL/INEUB,  IRET,  KGROW,  KPROB 
COMMON  I OUT  , v^o 

START  MAKING  THE  RANDOM  DRAWS 

CALL  PRYRV  (RAND,  AIRl,  AIR2 , AITl,  AIT2,  AIR,  AIT) 

IF  (KPROB  .EQ.  1)  THEN 

CALL  RANDOM  (TEST,  RAND) 

IF  (TEST  .LE.  WOFFE)  THEN 

CALL  PRYRV  (RAND,  WOFFRl,  WOFFR2,  WOFFTl,  WOFFT2,  WOFFR, 
«■  WOFFT) 

WOFFLO  = WOFFA 
WOFFHI  = WOFFB 
ELSE 

^ CALL  PRYRV  (RAND,  WOFFR3,  WOFFR4,  WOFFT3,  WOFFT4,  WOFFR, 

WOFFLO  = WOFFC^^^ 

WOFFHI  = WOFFD 
ENDIF 

IF  (lOUT  .EQ.  15)  THEN 

'TEST  =',  TEST,  ' WOFFE  =',  WOFFE 
End^^^*^  ( ® » * ) ' WOFFLO  = ' , WOFFLO,  ' WOFFHI  = ' , WOFFHI 


CALL  PRYRV 
CALL  PRYRV 
CALL  PRYRV 
CALL  PRYRV 
CALL  PRYRV 
ELSEIF  (KPROB 
CALL  PRYRV 
ENDIF 


INDIR2,  INDITl,  INDIT2,  INDIR,  INDIT) 
(RAND,  THICRl,  THICR2,  THICTl,  THICT2,  THICr!  THICT) 

AOCTI,  AOCT2,  AOCR,  A^T)  ' 

(RAND,  AERDA,  AERDB,  AERSA,  AERSB,  AERD,  AERS) 

ASTRA,  ASTRB,  DUM,  DUM,  ASTR,  DUM) 

*£Q«  2)  TH£N 

(RAND,  WITHRl,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT) 


LAMNB,  LAMSA,  LAMSB,  LAMNK,  LAMSK) 
LAMNMU  = LAMND  / (1.0  + LAMNK  • LAMNC)  ' 

LAMNSG  = LAMNC  / ( i . 0 + LAMNK  * LAMNC I 

LAMSMU  = LAMSD  / (1.0  + LAMSK  * LAMSC ) 

LAMSSG  = LAMSC  / (1.0+  LAMSK  * LAMSC ) 

IF  (lOUT  .EQ.  15)  THEN  ’ 

WRITE(8,*)  'LAMNK  = ',  LAMNK,  ' LAMNMU  = ',  LAMNMU, 
o ' LAMNSG  = ' , LAMNSG 

WRITE(8,+)  'LAMSK  = ',  LAMSK,  ' LAMSMU  = ',  LAMSMU. 

& ' LAMSSG  = ' , LAMSSG 

ENDIF  ' 


IF  (KPROB  .EQ.  1)  THEN 

CALL  RANDOM  (NORM,  RAND) 
TIMU  = TIMUA  + NORM  * DTIMU 
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TISIG 
TOMU  = 
TOSIG 
PCMU  = 
PCSIG 
ENDIF 


' TISIGA  + NORM  * DTISIG 
TOMUA  + NORM  * DTOMU 
^ TOSIGA  + NORM  ★ DTOSIG 
PCMUA  + NORM  ★ DPCMU 
= PCSIGA  + NORM  ★ DPCSIG 


IF  (lOUT  .EQ. 
WRITE ( 8 , ♦ ) 
WRITE(8,*) 
WRITE(8,^) 
WRITE ( 8 , * ) 
ENDIF 


15)  THEN 
' NORM  = ' , 
' TIMU  = 

' TOMU  = 

' PCMU  = 


NORM 
' , TIMU, 
TOMU, 
PCMU, 


TISIG 

TOSIG 

PCSIG 


TISIG 

TOSIG 

PCSIG 


CALL  PRYRV  (RAND,  LAMKHA,  LAMKHB,  LAMKCA,  LAMKCB,  LAMKH,  LAMKC) 
CALL  PRYRV  (RAND,  LAMWA,  LAMWB,  NEUBA,  NEUBB,  LAMW,  NEUB) 

CALL  PRYRV  (RAND,  DSTRA,  DSTRB,  KLAMA,  KLAMB,  DSTR,  KLAM) 

CALL  PRYRV  (RAND,  SSTRA,  SSTRB,  DUM,  DUM,  SSTR,  DUM) 

CALL  PRYRV  (RAND,  LAMGRA,  LAMGRB,  MVARA,  MVARB,  LAMGR,  MVAR) 
LAMGR  = EXP (LAMGR) 

RETURN 

END 


C SUBROUTINE  PARDRW  PERFORMS  THE  RANDOM  LIFE  DRIVER  PARAMETER  DRAWS  IN 
C THE  INNER  LOOP 
C 

C PROGRAMMER  : S.  SUTHARSHANA 
C DATE  : DECEMBER  1992 
C VERSION  : 92.5 
C 

C Copyright  (C)  1991,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  PARDRW  (AI,  Cl,  DLTAT,  INDIA,  LAMN,  LAMS,  PC, 
& THIC,  WIDTH,  WOFF) 

C SUBPROGRAMS:  BETAGN,  NORMGN 

C IMPLICIT  NONE 

INTEGER  INEUB,  IRET,  KGROW,  KPROB 

INTEGER  lOUT 


DOUBLE  PRECISION  RAND 

REAL  AERDA,  AERDB,  AERSA,  AERSB,  AI,  AIA,  AIB,  AIRl,  AIR2, 

& AITl,  AIT2,  AIR,  AIT,  AOC,  AOCA,  AOCB,  AOCRl,  AOCR2, 

& AOCTl,  AOCT2,  AOCR,  AOCT,  ASTRA,  ASTRB, 

& Cl,  DLTAT,  DPCMU,  DPCSIG,  DSTRA,  DSTRB,  DTIMU,  DTISIG, 

& DTOMU,  DTOSIG,  INDIA,  INDIAA, 

& INDIAB,  INDIR,  INDIRl,  INDIRS,  INDIT,  INDITl,  INDIT2, 

& KLAMA,  KLAMB,  LAMKHA,  LAMKHB, 

& LAMKCA,  LAMKCB,  LAMGRA,  LAMGRB, 

& LAMN,  LAMNA,  LAMNB,  LAMNC,  LAMND, 

& LAMNMU,  LAMNSG,  LAMS,  LAMSA,  LAMSB,  LAMSC,  LAMSD, 

& LAMSMU,  LAMSSG,  LAMWA,  LAMWB,  MVARA,  MVARB 

REAL  NEUBA,  NEUBB,  PC,  PCMU,  PCMUA,  PCMUB,  PCSIG, 

& PCSIGA,  PCSIGB,  SSTRA,  SSTRB, 

& THIC,  THICA,  THICB,  THICR,  THICRl,  THICR2,  THICT,  THICTl, 

& THICT2,  TIMU,  TIMUA,  TIMUB,  TIN,  TISIG,  TISIGA,  TISIGB, 

& TOMU,  TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB,  TOUT, 

& WIDTH,  WITHA,  WITHB,  WITHRl,  WITHR2, 

& WITHTl,  WITHT2,  WITHR,  WITHT,  WOFF, 

& WOFFA,  WOFFB.  WOFFC,  WOFFD,  WOFFE,  WOFFHI,  WOFFLO, 

& WOFFR,  WOFFRl,  WOFFR2,  WOFFR3,  WOFFR4,  WOFFT,  WOFFTl, 

& WOFFT2,  WOFFT3,  WOFFT4 

COMMON /DRIVRS/  AERDA,  AERDB,  AERSA,  AERSB,  AIA, 

& AIB,  AIRl,  AIR2,  AITl,  AIT2,  AIR,  AIT, 

& AOCA,  AOCB,  AOCRl,  AOCR2,  AOCTl,  AOCT2,  AOCR,  AOCT, 
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ooooooo 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


ASTRA,  ASTRB, 

indi^.indiab'indi^  INDI^  ^INDIR  DTOMU,  DTOSIG, 

H;  s:  sr' 

SSTRA,  SSTRB, 

TI^'TIMUAf 'TIMUBf^TISIG^^ISIGA^^TISir^  THICT2,  THICT, 
WOFFT3,  WOFFT4,  WOFFT  ' WOFFR,  WOFFTl,  WOFFT2, 


AI) 

^ II^aIn  I^d'  WOfTHl,  WOFF) 

CALL  Bi?AiS  ^d;  TH?Cr'  ^^DlA) 

^ BETAGN  Ieamd;  AS?’^A<=S“^6cBf SJ 

ELSEIF(KPR0B  .EQ.  2)  THEN 

ENDI^  BETAGN  (RAND,  WITHR,  WITHT,  WITHA,  WITHB,  WIDTH) 

CAI^  NORMGN  (RAND,  LAMNMU,  LAMNSG  TAMm\ 

CALL  NORMGN  (RAND,'  LAMSMU,' 

then 

CALL  NORMGN  (RAND,  TIMU  TISTG  'Ttm\ 

tomu,  tosig;  TOU-J-) 

ENDlf^  NORMGN  (RAND,  PCMU,  PCSIG,  PC) 

IF  (lour  .EQ.  15)  THEN 

vreiTE/l'*\  =',AOC, ' Cl  ='  Cl 

JJ^TTE(8,»)  'INDIA  =',  INDIA,'  PC  ='  PC 

TOirali'*!  'wnSv^’ ' tout  =', TOUT,  ' 

TOITE(8,*)  'WOFF  =', WOFF, ' WIDTH  =',WID 


ENDIF 


DLTAT  = ' , DLTAT 
, WIDTH 


RETURN 
END 

C SUBROUTINE  STOIFl*CALCUlATES*THE*qTRpn***************** 
C IN  A FINITE  WIDTH  PLAT^ITH 

C PROGRAMMER  : S.  SUTHARSHANA 

C DATE  ; DECEMBER  1992 
C VERSION  92.5 


SUBROUTINE  STRIF1(A,  C,  FO,  F2,  INDIA,  THIC) 


A - CRACK  DEPTH,  A 

C - CRACK  LENGTH,  C 

INTERNAL  VARIABLES 

AOC75  - EVENTUALLY,  (A/T)**.75 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


AOT  - A/T 
AOTSQ  - (A/T) ^*2 
C - CRACK  LENGTH,  C 

COA  - C/A 
COA4  - (C/A)* *4 
CONST  - SQRT(PI*A) 

PI  - 3.14159. . . 

POWR  - POWR  TO  BE  RAISED 
SQCOA  - SQRT(C/A) 

TRM  - 1 - A/C 

IMPLICIT  NONE 
INTEGER  lOUT 

REAL  A,  AOC,  AOC75,  AOT,  AOTSQ,  C,  COA,  COA4 , EMO . 

& EMl,  EM2,  EM3,  F0(2),  F2<2),  FPA,  FPC,  FW,  g1,  G2, 

& GA,  GC,  Hi,  H2,  INDIA,  PI,  Q, 

& SQCOA,  THIC,  WIDTH 

REAL* 8 POWR,  TRM 

COMMON  lOUT 

DATA  PI/3,14159265358979/ 

WIDTH  = PI  * (INDIA  + THIC) 

AOC  =A/C 

AOT  =A/THIC 

IF(IOUT  .EQ.  22)  THEN 

WRITE(8,*)  'AOC,  AOT',  AOC,  AOT 
ENDIF 

Compute  SIFs 

IF  (AOC.LE.1.0)  THEN 

G1  = -1.22-0. 12*AOC 
AOC75  = SQRT(AOC) 

AOC75  = AOC75  * SQRT(AOC75) 

= 0.55  + AOC75  * ((-1.05)  + AOC75*0.47) 


= l!o  - AOT  * (0.34  + 0.11*AOC) 
= 1.0  + AOT*(Gl  + G2*AOT) 


G2 
HI 



EMl  = i!l3  -”0.0^*AOC 
EM2  = -0.54  + 0.89  / (0.2  + AOC) 

TRM  = 1 . 0-AOC 
IF  (ABS(TRM) .GT. 0 . OOIDO)  THEN 
POWR  = TRM**24 
ELSE 

POWR  = ODO 
ENDIF 

EM3  = 0.5  - 1.0/(0.65+AOC)  + 14.0*POWR 
AOTSQ  = AOT*AOT 

EMO  = EMl  + AOTSQ* (EM2  + AOTSQ*EM3) 

Q = 1.0  + 1.464*AOC**1.65 

FPA  = 1.0 

FPC  = SQRT(AOC) 

GA  =1.0 

GC  = 1.0  + (0.1  + 0.35*AOT*AOT) 


ELSE 


AOC  > 1 


COA  = l.O/AOC 
SQCOA  = SQRT(COA) 

EMl  = (1.0+0.04*COA)*SQCOA 
COA4  = COA*COA*COA*COA 
EM2  = 0.2*COA4 
EM3  = -0.11*COA4 
AOTSQ  = AOT*AOT 

EMO  = EMl  + AOTSQ* (EM2  + AOTSQ*EM3) 

GA  =1.0 

GC  =1.0+(0.1+  0.35*AOTSQ*COA) 

AOC75  = SQCOA* SQRT( SQCOA)  „ . 

Hi  = 1.0  + AOT* (-0.4  - 0.41*COA  + AOT* (0.55  + 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


ENDIF  ^ ■ ° 


treat  it  as  an  edge  crack  if  2C  > WIDTH 


< 2.0*c  ,LT.  WIDTH  ) THEN 
ELSE  1- 0/COS  ( SQRT(AOT)*PI*c/WIDTH  ) ) 

FW  = 1.0 

ENDIF 

IF(IOUT  .EQ.  22)  THEN 

E^D^^TE(8,*)  'WIDTH,  C,  A,  FW',  WIDTH,  C, 


A,  FW 


F0(1) 

E^D^ITE(8,»)  'A  DIR  FO,  F2 


for  “a”  direction 

PO  0 ri  \ rnutTivT 

F0(1),  F2(l) 

for  "c"  direction 

wilj  : 

IF(i6ut  .EQ.  ioj 

END^^^  F0(2),  F2(2) 


RETURN 

C SUBROUTINE  STRIF2  CALCITT  AT’Pc*iriOT ************************* 

C IN  A PLATE  WITH  A ^C^K^^  STRESS  INTENSITY  FACTOR 

C PROGRAMMER  ; s.  SUTHARSHANA 

g SIF  EH.RKSI0N  FROM  •RLRMENTRRY  FRiCTURR  MECHANICS.  RY  O BRC«K 

? ^i6n'IiT  SI  , „ 

subroutine  STRIF2,A,  FO,  F2 , WIRtH)  '”*”*************—->  — 

c implicit  none 

^^EAL  A,  F0(2),  F2(2),  pi,  pj;^^  WIDTH 
DATA  PI/3.14159265358979/ 

PIA  = PI  * 


^!(i)  = lou!  ^•°/COS(PlA/WIDTH)  ) 


F2( 


return 

END 

C SUBROUTINE*GRODAT*R^S*i^^PR^r********************************** 

r DECEMBER  1992 

C VERSION;  92.5 
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SUBROUTINE  GRODAT  (CEE,  CO,  DEE,  DKTHO,  EMM,  ENN,  FTY, 
£,  KC,  PEE,  QUE) 


★*★★★*★**★♦♦★★*♦***♦♦*♦* 


C IMPLICIT  NONE 

EXTERNAL  DETER4 


INTEGER  MAXDAT,  MAXDIV 


C= 

C 

C 

C 

C 

C 

C= 


PARAMETER  (MAXDAT  = 200,  MAXDIV  = 10) 


INTEGER  lOUT,  IREGOP,  I,  J,  K,  NDIV,  NP(MAXDIV), 
& NPR,  NPRMNl 


REAL  AA,  BB,  CC,  CEE,  DADN(MAXDIV,  MAXDAT), 

£,  CO,  DEE,  DELK( MAXDIV,  MAXDAT),  DENOM, 

a DTFFXl  DIFFXz , DIFFX3,  DIFFX4,  DIFFY , DKTH,  DKTHO, 

& EMM,  ENN,  FTY,  KC,  LNCEE,  MEANXl,  MEANX2,  MEANX3,  MEANX4, 

& MEANY,  PEE,  QUE,  RgATA( MA^IVi , ^C, 

£i  SXlY*  SX2Y,  SX3Y,  SXlXl,  SXlX2,  SX1X3,  SX2X2,  SX2XJ, 

4 ix3xS,  SX4Y,  SX1X4,  SX2X4,  SX3X4,  SX4X4,  Y 


:================  description  of  local  variables 

DADNO  CRACK  GROWTH  RATE 
DELK()  SIF  RANGE 
DENOM  DENOMINATOR 

RDATA(  ) STRESS  RATIOS 

RKC  (l-R)KC  


CHARACTER* 40  DESCRP 


COMMON  I OUT 

C READ  THE  da/dN  VS . DK  DATA  FOR  THE  DIFFERENT  REGIONS 


READ(1,*)  DESCRP,  FTY,  KC, 
WRITE(3,6000)  DESCRP,  FTY, 


NDIV,  IREGOP 
KC,  NDIV,  IREGOP 


IF ( IREGOP. LT.O 
WRITE ( 8 , * ) 
CALL  TRMNAT 
ENDIF 


.OR.  IREGOP. GT. 4)  THEN 

INVALID  REGRESSION  OPTION  SPECIFICATION 


C READ  THRESHOLD  DESCRIPTION  INFORMATION 


READ(1,*)  DKTHO,  CO,  DEE 
WRITE (3,  6050)  DKTHO,  CO, 


DEE 


IF (IREGOP  .EQ.  0)  THE! 

READ(1,*)  PEE 
ELSEIF( IREGOP  .EQ.  1) 
READ(1,*)  EMM,  PEE 
ELSEIF( IREGOP  .EQ.  2) 
READ(1,*)  QUE,  PEE 
ELSEIF( IREGOP  .EQ.  3| 


READ(1,*) 
ENDIF 


EMM,  QUE, 


THEN 

THEN 

THEN 

PEE 


180 

190 


DO  190  I = 1,  NDIV 

READ(1,*1  NP(I),  RDATA(I) 

WRITE(S,6150)  r£)ATA(I) 

IF(NP(I)  .GT.  MAXDAT)  THEN  

WRITE (8,*)  'NUMBER  OF  GROWTH  RATE  DATA 
S,  EXCEEDED' 

CALL  TRMNAT 


ENDIF 

DO  180  J = 1 
READ(1,*) 
WRITE (3, 6 
CONTINUE 
CONTINUE 


, NP(I) 

DADN(1,J),  DELK(I,J) 

200)  DADN(I,J),  DELK(I,J) 


POINTS  PER  DIVISION 


c- 
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on 


PE^ORM  REGRESSION  ON  THE  DATA 


C CALCULATE  SX2 , SY2,  SXY 

IF(IREGOP  .EQ.  0)  THEN 


NPR  = 0 
MEANY  =0.0 
MEANXl  = 0.0 
MEANX2  = 0.0 
MEANX3  =0.0 
SXlY  =0.0 
SX2Y  = 0.0 
SX3Y  =0.0 
SXlXl  =0.0 
SX1X2  =0.0 
SX1X3  =0.0 
SX2X2  =0.0 
SX2X3  =0.0 
SX3X3  =0.0 


& 


250 

275 


C 


& 


300 

350 


= MEANXl  + LOG10(DELK( J,K) ) 

- MEANX2  + LOGlOf l.-RDATA( J) ) 

- MEANX3  - LOG10(RKC  - DELK(J,K)) 


DO  275  J = 1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

Y=  LOGi6(DADN( J.K) ) 

MEANXl  = MEANXl 
MEANX2 
MEANX3 
CONTINUE 
NPR  = NPR  + NP(J) 

CONTINUE 

MEANY  = MEANY/FLOATfNPR) 

MEANXl  = MEANXl /FLOAT (NPR) 

MEANX2  = MEANX2 /FLOAT (NPR) 

MEANX3  = MEANX3/FLOAT(NPR) 

NOW  CALCULATE  SY2,  SX2 , AND  SXY 

DO  350  J=  1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

E^300  K^=“i*  J) ) **DEE 

DIFFV?  - “ MEANXl 

“ ^OG10(  1 .-RDATA(  J)  ) - MEANX2 

SXIY^-  ) - MEANX3 

oAlY  - SXlY  + DIFFXl  * DIFFY 

SX2Y  - SX2Y  + DIFFX2  * DIFFY 
DIFFX3  * DIFFY 
+ DIFFXl  * DIFFXl 
+ DIFFXl  * DIFFX2 
+ DIFFXl  * DIFFX3 
+ DIFFX2  * DIFFX2 
+ DIFFX2  * DIFFX3 
+ DIFFX3  * DIFFX3 


SX3Y  = SX3Y  + 
SXIXI  = SXlXl 
SX1X2  = SX1X2 
SX1X3  = SX1X3 
SX2X2  = SX2X2 
SX2X3  = SX2X3 
SX3X3  = SX3X3 
CONTINUE 
CONTINUE 


NPRMNl  = NPR 


SXlY  = 

SX2Y  = 

SX3Y  = 

SXlXl 

SX1X2 

SX1X3 

SX2X2 

SX2X3 

SX3X3 


SXlY/FLOAT( NPRMNl ) 
SX2Y/FLOAT(NPRMNl ) 
SX3 Y/FLOAT ( NPRMN 1 
= SXlXl/FLOAT ( NPRMNl ) 
= SXlX2/FLOAT(NPRMNl ) 
= SXlX3/FLOAT(NPRMNl ) 
= SX2X2 /FLOAT ( NPRMN 1 ) 
= SX2X3/FLOAT ( NPRMNl ) 
= SX3X3/FL0AT(NPRMN1 ) 
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C CALCULATE  THE  COEFFICIENTS 


AA  = SX2X2  * SX3X3  - SX2X3  **  2 

BB  = SX1X2  * SX3X3  - SX2X3  * SX1X3 

CC  = SX1X2  * SX2X3  - SX2X2  * SX1X3 

DENOM  = SXlXl  * AA  - SX1X2  * BB  + SX1X3  * CC 

ENN  = ( SXIY  * AA  - SX1X2  * (SX2Y  * SX3X3  - SX2X3  * SX3Y) 
& + SX1X3  * (SX2Y  * SX2X3  - SX2X2  * SX3Y)  ) / DENOM 

EMM  = ( SXIXI  * (SX2Y  * SX3X3  - SX2X3  * SX3Y)  - SXlY  * BB 

& + SX1X3  * (SX1X2  * SX3Y  - SX2Y  * SX1X3)  ) / DENOM 

QUE  = ( SXlXl  * (SX2X2  * SX3Y  - SX2Y  * SX2X3)  + SXIY  * CC 

& - SX1X2  * (SX1X2  * SX3Y  - SX2Y  * SX1X3)  ) / DENOM 

LNCEE  = MEANY-ENN*MEANX1-EMM*MEANX2-QUE*MEANX3 
CEE  = 10.0** (LNCEE) 

ELSEIF(IREGOP  .EQ.  1)  THEN 

NPR  = 0 
MEANY  =0.0 
MEANXl  =0.0 
MEANX3  =0.0 
SXIY  =0.0 
SX3Y  =0.0 
SXlXl  = 0.0 
SX1X3  =0.0 
SX3X3  =0.0 

DO  1275  J = 1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

DKTH  = DKTHO* ( 1 . -CO*RDATA ( J ) ) * *DEE 

DO  1250  K = 1,  NP(J) 

Y = LOG10(DADN(J,K) ) 

4 - EMM  * LOG10(1.-RDATA(J)) 

& - PEE  * LOG10(DELK( J,K)  - DKTH) 

MEANY  = MEANY  + Y 

MEANXl  = MEANXl  + LOGlO (DELK( J,K) ) 

MEANX3  = MEANX3  - LOG10(RKC  - DELK(J,K) ) 

1250  CONTINUE  i » // 

NPR  = NPR  + NP(J) 

1275  CONTINUE 

MEANY  = MEANYZFLOAT(NPR) 

MEANXl  = MEANXl /FLOAT (NPR) 

MEANX3  = MEANX3 /FLOAT (NPR) 

C NOW  CALCULATE  SY2,  SX2,  AND  SXY 

DO  1350  J=  1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

DKTH  = DKTHO* (1. -CO* RDATA( J) )**DEE 

DO  1300  K = 1,  NP(J) 

Y=  LOG10(DADN(J,K) ) 

& - EMM  * LOG10( l.-RDATA(J) ) 

& - PEE  * LOG10(DELK(J,K)  - DKTH) 

DIFFY  = Y - MEANY 

DIFFXl  = LOG10(DELK(J,K) ) - MEANXl 
DIFFX3  = - LOG10(RKC-DELK(J,K) ) - MEANX3 
SXIY  = SXIY  + DIFFXl  * DIFFY 
SX3Y  = SX3Y  + DIFFX3  * DIFFY 
SXlXl  = SXlXl  + DIFFXl  * DIFFXl 
SX1X3  = SX1X3  + DIFFXl  * DIFFX3 
SX3X3  = SX3X3  + DIFFX3  * DIFFX3 
1300  CONTINUE 

1350  CONTINUE 

NPRMNl  = NPR  - 1 

SXIY  = SXIY /FLOAT (NPRMNl) 

SX3Y  = SX3Y/FLOAT(NPRMNl) 

SXlXl  = SXlXl /FLOAT (NPRMNl) 
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SX1X3  = SX1X3/FL0AT(NPRMN1) 

SX3X3  = SX3X3 /FLOAT ( NPRMN 1 ) 

C CALCULATE  THE  COEFFICIENTS 

DENOM  = SXlXl  * SX3X3  - SX1X3  **  2 

ENN  = ( SXIY  * SX3X3  - SX1X3  * SX3Y  ) 

QUE  = ( SXIXI  * SX3Y  - SXlY  ★ SX1X3  ) 


/ DENOM 
/ DENOM 


^CEE  - MEANY  - ENN^MEANXl  - QUE*MEANX3 
CEE  = 10 . 0** (LNCEE) 

1600  CONTINUE 


ELSEIF(  IREGOP  .EQ.  2 ) THEN 

NPR  = 0 
MEANY  = 0.0 
MEANXl  =0.0 
MEANX2  =0.0 
SXIY  =0.0 
SX2Y  =0.0 
SXlXl  =0.0 
SX1X2  =0.0 
SX2X2  =0.0 


& 

& 


2250 

2275 


C 


& 

& 


2300 

2350 


DO  2275  J = 1,  NDIV 

RKC  = ( l.-RDATA{ J) )*KC 

( 1 .-CO*RDATA(  J)  ) **DEE 
DO  2250  K =1,  NP(J)  ' 


Y = LOG10(DADN(J,K) ) 

LOG10(DE^( J,K_)  - DKTH) 


_ PEE 
+ QUE  * LOGIC (RKC 
MEANY  = MEANY  + Y 


DELK(J,K) ) 


MEANXl  = MEANXl  + LOG10(DELK( J,K) ) 
CON^WE^  " MEANX2  + LOGIC ( 1 . -RDATA(i) ) 

NPR  = NPR  + NP(J) 

CONTINUE 

MEANY  = MEANY/FLOAT(NPR) 

MEANXl  = MEANXl /FLOAT (NPR) 

MEANX2  = MEANX2 /FLOAT (NPR) 

NOW  CALCULATE  SY2,  SX2,  AND  SXY 

DO  235C  J=  1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

( 1 •-CO*RDATA(  J)  ) **DEE 
DO  23C0  K = 1,  NP(J)  " 

Y = LOGlC(DADN( J,K) ) 

- PEE  * LOGlC(DELK( J,K)  - DKTH) 

+ QUE  * LOGIC (RKC  - DELK( J.K) ) ^ 

DIFFY  = Y - MEANY  ' ' / / 

~ logic  (DELK(J,K)  ) - MEANXl 
DIFFX2  = LOGIC ( 1 .-RDATA(J) ) - MEANX2 
SXIY  = SXIY  + DIFFXl  * DIFFT 
SX2Y  = SX2Y  + DIFFX2  * DIFFY 
SXlXl  = SXlXl  + DIFFXl  * DIFFXl 
SX1X2  = SX1X2  + DIFFXl  * DIFFX2 
SX2X2  = SX2X2  + DIFFX2  * DIFFX2 
CONTINUE 
CONTINUE 


NPRMNl  = NPR  - 1 


SXIY  = SXIY/FLOAT ( NPRMNl ) 
SX2Y  = SX2Y/FLOAT( NPRMNl ) 
SXlXl  = SX 1X1/ FLOAT ( NPRMN 1 ) 
SX1X2  = SX1X2/FL0AT(NPRMN1 ) 
SX2X2  = SX2X2/FLOAT ( NPRMNl ) 


C CALCULATE  THE  COEFFICIENTS 
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DENOM  = SXIXI  * SX2X2  - 3X1X2  **  2 

ENN  = ( SXly  * SX2X2  - 3X1X2  * 3X2Y)  / DENOM 

EMM  = ( 3X1X1  * 3X2Y  - 3XlY  * 3X1X2  ) / DENOM 

LNCEE  = MEANY  - ENN*MEANXl  - EMM*MEANX2 
CEE  = 10.0** (LNCEE) 

ELSEIF  (IREGOP  .EQ,  3)  THEN 

NPR  = 0 
MEANY  =0.0 
MEANXl  =0.0 
SXIY  =0.0 
SXlXl  =0.0 
DO  3275  J = 1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

DKTH  = DKTHO*(1.-CO*RDATA(J) )**DEE 

DO  3250  K = 1,  NP(J) 

Y = LOG10(DADN(J,K) ) 

& - EMM  * LOG10(1.-RDATA( J) ) 

& - PEE  * LOG10(DELK(J,K)  - DKTH) 

& + QUE  * LOG10(RKC  - DELK( J,K) ) 

MEANY  = MEANY  + Y 

MEANXl  = MEANXl  + LOGlO (DELK( J,K) ) 

3250  CONTINUE 

NPR  = NPR  + NP(J) 

3275  CONTINUE 

MEANY  = MEANY /FLOAT (NPRJ 
MEANXl  = MEANXl /FLOAT (NPR) 

C NOW  CALCULATE  3Y2,  3X2,  AND  3XY 

DO  3350  J=  1,  NDIV 

RKC  = (l.-RDATA(J) )*KC 

DKTH  = DKTHO* ( 1 . -CO*RDATA( J) )**DEE 

DO  3300  K = 1,  NP(J) 

Y = LOG10(DADN( J,K) ) 

& - EMM  * LOGlO ( 1. -RDATA( J) ) 

& - PEE  * LOGlO (DELK(J,K»  - DKTH) 

& + QUE  * LOG10(RKC  - DELK(J,K)) 

DIFFY  = Y - MEANY 

DIFFXl  = LOGlO (DELK(J,K))  - MEANXl 
SXIY  = SXlY  + DIFFXl  * DIFFY 
SXIXI  = SXlXl  + DIFFXl  * DIFFXl 
3300  CONTINUE 

3350  CONTINUE 

NPRMNl  = NPR  - 1 

SXIY  = SXlY/FLOAT (NPRMNl) 

SXIXI  = SXlXl /FLOAT (NPRMNl) 

C CALCULATE  THE  COEFFICIENTS 

ENN  = SXIY  / SXlXl 

LNCEE  = MEANY  - ENN  * MEANXl 
CEE  = 10.0**(LNCEE) 

ELSEIF (IREGOP  .EQ.  4)  THEN 

NPR  = 0 
MEANY  =0.0 
MEANXl  =0.0 
MEANX2  = 0.0 
MEANX3  = 0.0 
MEANX4  =0.0 
SXIY  =0.0 
SX2Y  =0.0 
SX3Y  =0.0 
SX4Y  =0.0 
SXlXl  =0.0 
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SX1X2  =0.0 
SX1X3  =0.0 
SX1X4  =0.0 
SX2X2  = 0.0 
SX2X3  =0.0 
SX2X4  =0.0 
SX3X3  =0.0 
SX3X4  =0.0 
SX4X4  = 0.0 


4250 

4275 


C 


RKC  = ( 1 . -RDATA ( J) ) *KC 

00^^4250^=°!  ‘ 

Kl==^Xl 

MEANX2  = MEANX2  + L^IO  l.-^ATA  An 
MEANX3  = MEANX3  + L^IO  DELIWJ  K -’dkth» 

CON^SSi*  ■ 

NPR  = NPR  + NP{J) 

CONTINUE  ' 

MEANY  = MEANY/FLOAT(NPR) 

MEANXl  = MEANXl/ FLOAT (NPR) 

MEANX2  = MEANX2/FLOAT  NPR 
MEANX3  = MEANX3 /FLOAT (NPR) 

MEANX4  = MEANX4 /FLOAT (NPR) 

NOW  CALCULATE  SY2 , SX2 , AND  SXY 


4300 

4350 


DO  4350  J=  1,  NDIV 

RKC  = ( 1 .-RDATA (J) ) ★KC 

0^4300^=°!; 

nTTO^i”  ^^10(DADN(  J,K)  ) - MEANY 

DIFTX2  = ■ MEANXl 

DIFFX2  ^'^I0(i--PATA(J)  ) -MEANX2 


wfFX4  = - 

s¥i7t 

DIFFX2  * 
DIFFX3  * 
DIFFX4  * 

+ DIFFXl 
DIFFXl 


SX2Y  = SX2Y  + 
SX3Y  = SX3Y  + 


SX2X2 

SX2X3 

SX2X4 

SX3X3 

SX3X4 

SX4X4 

CONTINUE 

CONTINUE 


SX4Y  = SX4Y  + 

SXlXl  = SXlXl 
SX1X2  = SX1X2  , 

SX1X3  = SX1X3  + DIFFXl 
SX1X4  = SX1X4  + DIFFXl 
SX2X2  + DIFFX2 
SX2X3  + DIFFX2 
SX2X4  + DIFFX2 
SX3X3  + DIFFX3 
SX3X4  + DIFFX3 
SX4X4  + DIFFX4 


DIFFY 

DIFFY 

DIFFY 

* DIFFXl 

* DIFFX2 

* DIFFX3 

* DIFFX4 

* DIFFX2 

* DIFFX3 

* D1FFX4 

* DIFFX3 

* DIFFX4 

* DIFFX4 


NPRMNl  = NPR  - 1 


SXlY 

SX2Y 

SX3Y 

SX4Y 

SXlXl 

SX1X2 

SX1X3 

SX1X4 

SX2X2 

SX2X3 

SX2X4 

SX3X3 

SX3X4 

SX4X4 


= SXlY/FLOAT(NPRMN 

- SX2Y/FL0AT(NPRMN 

- SX3Y/FLOAT(NPRMN 
= SX4Y/FL0AT(NPRMN 

= SX 1X1/ FLOAT  (NPRl 
= SX  1X2 /FLOAT  (NPRl 

= sy  1 Y /TTT  »TI  / VTTStsi 


SX2X2 /FLOAT ( NPR 
SX2X3 /FLOAT ( NPR 
SX2X4 /FLOAT ( NPR 
SX3X3/FLOAT(NPR 
SX3X4 /FLOAT ( NPR 
SX4X4 /FLOAT ( NPR 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 


C CALCULATE  THE  COEFFICIENTS 
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ooonn 


& 

& 


& 

& 


& 

& 


& 

& 


& 

& 


& 


DENOM  = DETER4 


SXlXl,  SX1X2, 
SX2X3,  SX2X4, 
SX1X4,  SX2X4, 


SX1X3,  SX1X4, 
SX1X3,  SX2X3, 
SX3X4,  SX4X4) 


SX1X2,  SX2X2, 
SX3X3,  SX3X4, 


ENN  = DETER4(SXlY,  SX2Y,  SX3Y, 
SX2X3,  SX2X4, 
SX3X4,  SX1X4, 


SX4Y, 

SX1X3, 

SX2X4, 


SX1X2, 
SX2X3, 
SX3X4 , 


SX2X2, 
SX3X3 , 
SX4X4 ) 


/ DENOM 


EMM  = DETER4 (SXlXl,  SX1X2, 
SX3Y,  SX4Y, 
SX1X4,  SX2X4 


SX1X3, 

SX1X3, 

, SX3X4 


SX1X4,  SXIY.  SX2Y, 
SX2X3,  SX3X3,  SX3X4 
, SX4X4)  / DENOM 


PEE  = DETER4( SXlXl,  SX1X2,  SX1X3, 
SX2X3,  SX2X4,  SXlY, 
SX1X4,  SX2X4,  SX3X4 


SX1X4,  SX1X2,  SX2X2 
SX2Y,  SX3Y,  SX4Y, 

, SX4X4)  / DENOM 


QUE  = DETER4( SXlXl,  SX1X2, 
SX2X3,  SX2X4 
SXIY,  SX2Y, 


SX1X3,  SX1X4,  SX1X2, 

, SX1X3,  SX2X3,  SX3X3 
SX3Y,  SX4Y)  / DENOM 


SX2X2, 

, SX3X4 


t 


LNCEE 


MEANY  --  ENN*MEANXi  - EMM*MEANX2 
- PEE*MEANX3  - QUE*MEANX4 


CEE  = 10.0^*(LNCEE) 


ENDIF 


C WRITE  OUT  THE  REGRESSED  VALUES 

WRITE(3,6300)  ^ 

WRITE (3, 6400)  CEE,  ENN,  EMM,  PEE,  QUE 


RETURN 


FORMATS 


6000  F0RMAT(////,13X, 'MATERIAL  INPUT' ,///,2X, 'DESCRIPTION; 2X,A40, //, 

& 2X, 'YIELD  STRENGTH', 18X,F7,0,//, 

r Oy  ' CRTTTCAL  S IF* 

& 18X,F7.0,//,2X, 'NUMBER  OF  DIVISIONS' , 14X, II, 

t,  //,2X, 'REGRESSION  OPTION',  16X,I1,/) 

6050  F0RMAT(//,2X, 'THRESHOLD  MODEL  DESCRIPTION', 

& //,2X, 'DKTHO  = '.E12.5, 

i /,2X, 'CO  = ',El5.5, 

L / 2X  'd.  = * E12*5) 

6150  FORMAT (//1 2x1 'STRESS  RATIO  R = ' , F7 .2, //, 6X, 'da/dN' , 8X, 'DELK' ) 

6200  F0RMAT(2X,E12 .5,2X,E12.5) 

6300  F0RMAT(///,25X, 'REGRESSION  OUTCOME' ,///,3X, 
i ' C ',12X,'  n ',12x,'  m ' , 12X, ' p 

6400  F0RMAT(E12.5,4(4X,E12.5) ) 

6600  FORMAT(10X,I1, ,11, 5X,E12 .5,5X,E12.5) 

END 

c********** ******************************************************** ******** 
FUNCTION  DETER4  CALCULATES  DETERMINANT  OF  A 4x4  MA'TRIX 

PROGRAMMER:  S.  SUTHARSHANA 

DATE:  25  SEP  1989 

c*****Y?^^*******ii******************************************************* 
^REAL  FUNCTION  DETER4  (^1,  ^1,  A31,  A41,  M2,  M2,  A32,  A42, 


,12X, ' q ',/) 


C IMPLICIT  NONE 

REAL  All,  A21,  A31,  A41,  A12,  A22,  A32,  A42 , Al3,  A23,  A33, 
i A43,  A14,  A24,  A34,  A44 

DETER4  = All*(  A22  * (A33*A44  - A34*A43) 
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& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


- 

A23 

★ 

+ 

A24 

★ 

- A12*( 

A21 

★ 

— 

A23 

★ 

+ 

A24 

* 

+ A13^( 

A21 

★ 

- 

A22 

★ 

+ 

A24 

★ 

- A14^( 

A21 

* 

- 

A22 

★ 

+ 

A23 

★ 

(A32*A44 

(A32*A43 

(A33*A44 

(A31»A44 

(A31*A43 

(A32*A44 

(A31*A44 

(A31*A42 

(A32*A43 

(A31*A43 

(A31*A42 


- A34*A42) 

- A33*A42)  ) 

- A34*A43) 

- A34*A41) 

- A33*A41)  ) 

- A34*A42) 

- A34*A41) 

- A32*A41)  ) 

- A33*A42) 

- A33*A41) 

- A32*A41)  ) 


RETURN 


END 

C PROGRAMMER  ; S.  SUTHARSHANA 
C DATE  ; DECEMBER  1992 
C VERSION  : 92.5 
C 

& NHYPER,  nlife,  nlifet, 

£ NRAN,  NU,  NUMSEG,  PERIOD,  RSO, 

* SE,  STRHIS,  TRUNC) 

C IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXLD,  MAXLIF,  MAXM,  MAXSEG 
REAL  PI 

PARAMETER  (MAXBLF  = 10.  MAXLD  = 16,  MAXLIF  = 1000 
& MAXM  = 20006,  MAXSEG  = l6,  K =^.14159i654) 

INTEGER  INEUB,  IRET,  KGROW,  KPROB 
INTEGER  FILNUM ( MAXLD ) , I,  lOUT,  J,  LOCAT 

DOUBLE  PRECISION  RAND 
REAL 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


REAL 


^^A,  AERDB,  AERSA,  AERSB,  AIA.  AIB 
AIR2,  AITl,  AIT2,  AIR,  ' 

AIT,  ANGLE,  BLFPER ( MAXBLF ) / 

AOCA,  AOCB,  AOCRl,  AOCR2 , AOCTl  AOCT2 
AOCR,  AOCT,  ASTRA,  ASTRB,  DPCMU  D^STG 
DSTRA,  DSTRB,  DTIMU,  DTISIcf  ' ^PCSIG, 

DTOMU,  DTOSIG,  E(MAXSEG),  EM,  FK(IO) 

indiab,  indir,  IndirI,  ' 

INDIR2,  INDIT,  INDITl,  INDIT2, 

iam^,  iamnb,  lamnc,  lamnd,  lamnmu.  lamnsg 

S' 

PCSIGA, 

PT(IO),  SE( MAXSEG),  SSTRA, 

SSTRB,  STRHIS ( MAXLD , MAXM),  SX<MAXLD1  SV<!'P 

SYST”^^SY?(MA^Df^'<?Y7l4>^^^  ' ^^2ST,  'sY(MAio,D)  , 

THICR2,  THICT,  THICTl , ' THICT2 ! TlSu  TIMUA 
TIMUB,  TISIG,  TISIGA,'TISIGBrTOMK^'  ' 

TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB 
TRUNC,  TSTAT,  V(2,  MAXLD), 


7-65 


VSTAT(2),  witha,  withb, 

WITHRl,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT, 

WOFFA,  WOFFB,  WOFFC,  WOFFD, 

WOFFE,  WOFFHI,  WOFFLO,  WOFFR,  WOFFRl,  WOFFR2,  WOFFR3, 
WOFFR4,  WOFFT,  WOFFTl,  WOFFT2,  WOFFT3,  WOFFT4 

CHARACTER* 6 LDNAME ( MAXLD ) 

COMMON/LOADS/NLOAD,  PSTAT,  TSTAT,  MSTAT,  VSTAT,  TYPE, 

& P,  T,  M,  V,  PCO,  SXST,  SYST,  SZST,  SXYST, 

(,  SXZST,  SYZST,  SX,  SY,  SZ,  SXY,  SXZ,  SYZ 


COMMON /DRIVRS/  AERDA,  AERDB,  AERSA,  AERSB,  AIA, 

& AIB,  AIRl,  AIR2,  AITl,  AIT2,  AIR,  AIT. 

& AOCA,  AOCB,  AOCRl,  AOCR2,  AOCTl,  A0CT2,  AOCR,  AOCT, 

& ASTRA  ASTRB 

& DPCMu!  DPCSIG,  DSTRA,  DSTRB,  DTIMU,  DTISIG,  DTOMU,  DTOSIG, 

& INDIAA,INDIAB,INDIR1,  INDIR2,  INDIR,  INDITl,  INDIT2,  INDIT, 

& KLAMA,  KIAMB,  LAMGRA,  LAMGRB,  LAMKHA,  LAMKHB,  LAMKCA,  LAMKCB, 

& LAMNA,  LAMNB,  LAMNC,  LAMND,  LAMNMU,  LAMNSG, 

& LAMSA,  LAMSB,  LAMSC,  LAMSD,  LAMSMU,  LAMSSG, 

& LAMWA,  liAMWB,  MVARA,  MVARB,  NEUBA,  NEUBB, 

t.  PCMU,  PCMUA,  PCMUB,  PCSIG,  PCSIGA,  PCSIGB, 

& RAND, 

& SSTRA.  SSTRB, 

& THICA  THICB,  THICRl,  THICR2,  THICR,  THICTl,  THICT2,  THICT, 

& TIMU,  TIMUA,  TIMUB,  TISIG,  TISIGA,  TISIGB, 

& TOMU,  TOMUA,  TOMUB,  TOSIG,  TOSIGA,  TOSIGB, 

& WITHA,  WITHB,  WITHRl,  WITHR2,  WITHTl,  WITHT2,  WITHR,  WITHT, 

& WOFFA,  WOFFB,  WOFFC,  WOFFD,  WOFFE,  WOFFHI,  WOFFLO^^ 

& WOFFRl,  WOFFR2,  WOFFR3,  WOFFR4,  WOFFR,  WOFFTl,  WOFFT2, 

& WOFFT3,  WOFFT4,  WOFFT 

COMMON /FKVSRT/FK,  RT 
COMMON /NAMES /LDNAME 

CCMMON/CNTRL/INEUB,  IRET,  KGROW,  KPROB 
COMMON  lOUT 

LOGICAL  FTEST 

DATA  JFILNUM(Ii,  1=1,  MAXLD)  / 

& 11,  12,  l3,  14,  1§,  16,  17,  18,  19,  20,  21,  22,  23, 

& 24,  25,  26/ 

READ(1,*)  KPROB 

WRITE (8,*) 'PROBLEM  TYPE  (HEX  COIL  = 1,  EXHEX  = 2)  =',  KPROB 
IF(KPROB  .LT.  1 .OR.  KPROB. GT.  2)  THEN 

WRITE (8,*)  'INVALID  PROBLEM  TYPE  SPECIFICATION' 

CALL  TRMNAT 
ENDIF 

READ(1,*)  KGROW  , ^ 

WRITE ( 8 ,*)' FORMAN  EQUATION  WITH  Itl  (CONST  = 1,  VARY  = 2)  =',  KGROW 
IF(KGROW  .LT.  1 .OR.  KGROW  .GT.  2)  THEN 

WRITE (8,*)  'INVALID  FORMAN  EQUATION  SPECIFICATION' 

CALL  TRMNAT 
ENDIF 

READ(1,*)  RAND 
WRITE(8,*) ' 

READ(1.*)  lOUT  , 

WRITE  IS,*) ' lOUT  - OUTPUT  CONTROL  VARIABLE  = , lOUT 

READ(i,*)  NLIFE 

WRITE ( 6 , * ) ' INNER  LOOP  SIZE  = ' , NLIFE 

READ(i,*)  NHYPER  

WRITE(8,*)'  OUTER  loop  size  =', NHYPER 

READ(i,*)  IRET 

WRI'TE(8,*)'  RETARDATION  SWITCH  (0  - NO,  1 - YES)  =',  IRET 

IFdRET  .LT.  0 .OR.  IRET  .GT.  1)  THEN 

WRITE (8,*)  'INVALID  RETARDATION  SWITCH  SPECIFICATIC»J ' 

CALL  ■TRMNAT 
ENDIF 

READ(1,*)  INEUB  . 

WRITE(8,*)'  NEUBER  SWITCH  <0  - NO,  1 - YES)  =',  INEUB 

IF( INEUB  .LT.  0 .OR.  INEUB  .GT.  1)  THEN 

WRITE (8,*)  'INVALID  NEUBERS  RULE  SPECIFICATION' 


RANDCWt  NUMBER  SEED  =',  RAND 
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CALL  TRMNAT 
ENDIF 


= 1 DETERMINISTIC  RUN 


C CALCULATE  TOTAL  NUMBER  OF  LIVES  ...  IF  NLIFET 

NLIFET  = NLIFE  * NHYPER 

READ(1,*)  NBLIFE 
IF(NBLIFE  .GT.  0)  THEN 

(BLFPER(J),  J =1,  NBLIFE) 

H.NUIF 

C READ  DRIVER  INFORMATION 

IF  (KPROB  .EQ.  1)  THEN 

READ(1,*)  WOFFA,  WOFFB,  WOFFRl,  WOFFR2,  WOFFTl,  WOFFT2, 

& WOFFC,  WOFFD,  WOFFR3,  WOFFR4,  WOFFT3,  WOFFT4I 

* WOFFE f 

* INDIAA, INDIAB, INDIRl,  INDIR2,  INDITl,  INDIT2 

S THICR2,  THICTi;  THICtI; 

H.SEIF  (KPROB^^k: 

ENDIF^*^'*^  WITHA,  WITHB,  WITHRl,  WITHR2,  WITHTl,  WITHT2 


(1,*)  AIA,  AIB,  AIRl,  AIR2,  AITl,  AIT2 

lamna,  lamnb,  lamnc,  lamnd 

LAMSA,  LAMSB,  LAMSC,  LAMSD 


IF  (KPROB  .EQ.  1)  THEN 

READ(1,*)  TIMUA,  TIMUB,  TISIGA,  TISIGB, 

« TOMUA,  TOMUB,  TOSIGA,  TOSIGB, 

« PCMUA,  PCMUB,  PCSIGA,  PCSIGB 

C CALCULATE  SOME  DRIVER  VARIABLES 


DTIMU  = TIMUB  - TIMUA 
DTISIG  = TISIGB  - TISIGA 
DTOMU  = TOMUB  - TOMUA 
DTOSIG  = TOSIGB  - TOSIGA 
DPCMU  = PCMUB  - PCMUA 
DPCSIG  = PCSIGB  - PCSIGA 


IF  (lOUT  .EQ.  15)  THEN 
WRITE(8,*)  'DTIMU  = 
WRITE ( 8 , * ) ' DTOMU  = 

WRITE ( 8 , * ) ' DPCMU  = 

ENDIF 


DTIMU,  ' DTISIG  = DTISIG 
DTOMU,  ' DTOSIG  = ' , DTOSIG 
DPCMU,  ' DPCSIG  = ',  DPCSIG 


C READ  ACCURACY  FACTORS 

READ(1,*)  LAMWA,  LAMWB,  AERDA,  AERDB,  AERSA,  AERSB, 
ASTRB,  DSTRA,  DSTRB 
IF(INEUB  .EQ.  1)  THEN 

READ(1,*)  NEUBA,  NEUBB 
ENDIF 
ELSE 

ENDI^^^'*^  SSTRA,  SSTRB,  DSTRA,  DSTRB 


READ(1,*)  LAMKHA,  LAMKHB,  LAMKCA,  LAMKCB, 

^ KLAMA,  KLAMB,  LAMGRA,  LAMGRB 

IF(KGROW  .EQ.  2)  THEN 

READ(1,*)  MVARA,  MVARB 
ENDIF 

C READ  THE  LOADS  OR  STRESSES 
IF (KPROB  .EQ.  1)  THEN 

^ READ(1,*)  NLO^,  PSTAT,  TSTAT,  MSTAT(l),  MSTAT(2),  VSTAT(l), 

DO  15  I = 1,  NLOAD 

READ(1,*)  LDNAME(I),  TYPE(I),  P(I),  T(I),  M(l,l),  M(2,l), 
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& V(1,I),  V(2.I) 

IF  ((TYPE(I)  .LT.  1)  .OR.  (TYPE(I)  .GT.  3))  THEN 
WRITE (8,*)  'ERROR:  LOAD  INCORRECTLY  TYPED' 

CALL  TRMNAT 
ENDIF 

15  CONTINUE 
ELSEIF(KPROB  .EQ.  2)  THEN 

READfl,*)  NLOAD,  SXST,  SYST,  SZST,  SXYST,  SXZST,  SYZST 
DO  16  I = 1,  NLOAD 

READ(1,*)  LDNAME(I),  TYPE(I),  SX(I),  SY(I),  SZ(I),  SXY(I), 
& SXZ ( I ) , SYZ ( i ) 

IF  (<TYPE(I)  .LT.  1)  .OR.  (TYPE(I)  .GT.  2))  THEN 
vmiTE(6,*)  'ERROR:  LOAD  INCORRECTLY  TYPED' 

CALL  TRMNAT 
ENDIF 

16  CONTINUE 
ENDIF 

C READ  MISCELLANEOUS  INFO 

IF(KPROB  .EQ.  1)  THEN 

READ(1,*)  PCO,  LOCAT,  ANGLE 
ENDIF 

READ(1,*)  RSO,  PERIOD,  'TRUNC,  NRAN 

C ECHO  DATA  TO  CRKRES 

WRITE(3,900) 

IF(KPROB  .EQ.  1)  THEN 

WRITE(3,901)  WOFFA,  WOFFB,  WOFFRl,  WOFFR2,  WOFFTl,  WOFFT2, 

& WOFFC,  WOFFD,  WOFFR3,  WOFFR4,  WOFFT3,  WOFFT4, 

& WOFFE 

WRITE (3, 9 04)  INDIAA, INDIAB, INDIRl,  INDIR2,  INDITl,  INDIT2 
WRITE(3,905)  THICA,  THICB,  THICRl,  THICR2,  THICTl,  THICT2 
WRITER  3, 911)  AOCA,  AOCB,  AOCRl,  AOCR2,  AOCTl,  AOCT2 
ELSEIFJKPROB  .EQ.  2)  THEN 

WRI'TE(3, 902)  WITHA,  WITHB,  WITHRl,  WITHR2,  WITHTl,  WITHT2 
ENDIF 

WRITE (3, 9 10)  AIA,  AIB,  AIRl,  AIR2,  AITl,  AIT2 
WRI'TE(3,906)  LAMNA,  LAMNB,  LAMNC,  LAMND 
WRITE(3,907)  LAMSA,  LAMSB,  LAMSC,  LAMSD 
IF  (KPROB  .EQ.  1)  THEN 

WRITE (3, 908)  TIMUA,  TIMUB,  TISIGA,  TISIGB, 

& TOMUA,  TOMUB,  'TOSIGA,  'TOSIGB, 

& PCMUA,  PCMUB,  PCSIGA,  PCSIGB 

WRITE(3,9081)  LAMWA,  LAMWB,  AERDA,  AERDB,  AERSA,  AERSB, 

& ASTRA,  ASTRB,  DSTRA,  DSTRB 

IF(INEUB  .EQ.  1)  THEN 

WRITE(3, 9083)  NEUBA,  NEUBB 
ENDIF 
ELSE 

WRITE(3,9082)  SSTRA,  SSTRB,  DSTRA,  DS'TRB 
ENDIF 


WRITE(3,909)  LAMKHA,  LAMKHB,  LAMKCA,  LAMKCB, 

& KLAMA,  KLAMB,  LAMGRA,  LANGRB 

IF(KGROW  .EQ.  2)  THEN 

WRITE(3,9091)  MVARA,  MVARB 
ENDIF 

IF(KPROB.EQ.l)  THEN 

WRITE (3,920)  PSTAT , TSTAT , MSTAT ( 1 ) , MSTAT ( 2 ) , VSTAT ( 1 ) , VSTAT ( 2 ) 
DO  20  I = 1,  NLOAD 

WRITE (3, 921)  LDNAME(I),P(I) ,T(I),M(1,I) ,M(2,I),V(1,I), 
V(2,I) 

20  CONTINUE 

ELSEIF(KPROB.EQ.2)  THEN 

WRI'TE(3,922)  SXST,  SYST,  SZST,  SXYST,  SXZST,  SYZST 
EX)  21  I = 1,  NLOAD 

WRITE(3,921)  LDNAME(I),  SX(I),  SY(I),  SZ(I),  SXY(I), 

& SXZ ( I ) , SYZ ( I ) 
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2 1 CONTINUE 

ENDIF 


WRITE(3,924) 

IF(KPROB  .EQ.  1)  THEN 

L<^AT,  angle 


WRITE (3, 926)  RSO,  PERIOD,  TRUNC,  NLOAD,  NRAN 
C CONVERT  ANGLE  TO  RADIANS  FOR  CALCULATIONS 
ANGLE  = ANGLE/ 180. 00000  * PI 
C READ  TIME  HISTORIES  FROM  SPECIFIED  FILES 
IF  (NRAN  .GT.  MAXM)  THEN 

cSl^-I-RMNAt'^^^^'  STRESS-TIME  HISTORY  TOO  LARGE' 
ENDIF 


DO  25  I = 1,  NLOAD 

= LDNAME(I),  EXIST  = FTEST) 

IF  (FTEST  .EQV.  .TRUE.)  THEN 

^^6  ^ J^^I^^NRAN^^^^  ~ LDNAME(I),  status  = 'OLD') 

26  CONt!^^^^””*^^'*^  STRHIS(I,J) 

CLOSE  (FILNUM(I)) 

ELSE 

WRITE(8,»)  'ERROR:  CANNOT  OPEN  FILE  ',  LDNAMEfI) 

*■  ' DOES  NOT  EXIST' 

CALL  TRMNAT 
ENDIF 
25  CONTINUE 

IF(KPROB  .EQ.  1)  THEN 

RE^l.*)  EM,  COEXP,  NU 
WRI'TE(3,927)  EM,  COEXP,  NU 

C READ  THE  Fk  VS.  Rt  CURVE  FOR  WELD  STRESS  CONCENTRATION  FOR  HEX  COIL  PROBLEM 

WRITE(3,928) 

DO  30  I = 1,  10 

READ(1  *)  FK(I),  RT(I) 

ENDIF 

C READ  IN  THE  STRESS-STRAIN  VALUES  IF  NEUBER'S  RULE  IS  TO  BE  USED  IN  HEX 

^ -and.  INEUB  .EQ.  1)  THEN 
REAmi  *)  NUMSEG  ’ 

WRI'TE(3,930)  NUMSEG 
DO  35  J = 1,  NUMSEG 

SE(J),  E(J) 

WRITi(3,931)  SE  J),  E(J) 

35  CONTINUE  \ i, 

ENDIF 


O FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  CRKRES  — — — 

900  K>iiMAT(2^-copyright  (C)  1991,  c.lifornia  Institute  of  •, 

6 30X, 'P  R O C R K',//,33X, 'INPUT  DA'i-A^  /Z/'flY 

6 iex'V^^TA'f ' 6lSTRIBullSNS^^//;{^i;%0', 

901  FORMAT(/,2X, 'WELD  OFFSET  ( % ) ' , 3X, ' Be ( ' F4  2 ' ' F5  5 ' » • cv 

i ',U(t',F7.5,',',F8.5,'  ' 4X  'uT'  F4  1 ' ‘ fs 
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902  FORMAT(/,2X, 'CHANNEL  WIDTH  ' , 4X, ' Be ( ' , F6 . 4 , ' , ' , F7 .4 , ' ) ' , 2X, 

& 'U( ' ,F7.5, ' , ' ,F8.5, ' ) ',4X, 'U(* ,F4.1, ',F5.1, ' )' ) 

904  FORMAT(/,2X, 'INNER  DIAMETER' , 4X, ' Be ( ' , F6 . 4 , ' , ' , F7 .4 , ' ) ' , 2X, 

& 'U( ' ,F7.5, ' , ' ,F8.5, ' ) ' ,4X, 'U( ' ,F4.1, ' , ' ,F5.1, ' ) ' ) 

905  FORMAT(/,2X, 'WALL  THICKNESS ', 4X, ' Be (' ,F6 . 4 F7 . 4 ,')' ,2X, 

& 'U(',F7.5, ', ',F8.5,')',4X, 'U(',F4.1, ',F5.1,')') 

906  FORMAT (//, 2 X, 'LAMBDA  RANDOM' , 5X, ' k;  U(' ,F7.5, ' , ' ,F8.5, ' ) ' , 

& /,i0X, 'COEFFICIENT  OF  VARIATION:  ',F5.3, 

& /,20X, 'STRAIN  GAGE  FACTOR;  ',F9.7) 

907  FORMAT(/,2X, 'LAMBDA  SINE' ,7X, 'k;  U( ' ,F7 .5, ' , ' ,F8. 5, ' ) ' , 

& /,20X, 'COEFFICIENT  OF  VARIATION;  ',F5.3, 

& /,20X, 'STRAIN  GAGE  FACTOR:  ',F9.7,/) 

908  FORMAT(/,2X, 'INNER  TEMPERATURE' , 4X, 'NORMAL:  MU(', 

& F6.1, ' , ' ,F7.1, ' ) SIGMA( ' ,F5.1, ' , ' ,F6.1, ' ) ' , 

//, 2 X,  'OUTER  TEMPERATURE' ,4X,' NORMAL:  MU(  ' , 

& F6.1, ' , ' ,F7.1, ' 1 SIGMA( ' ,F5.1, ', ' ,F6.1, ' ) ' , 

& //,2X, 'INNER  PRESSURE' ,7X, 'NORMAL:  MU( ' , 

& F6.1, ' , ' ,F7.1, ' ) SIGMA(' ,F5.1, ',F6.1, ' ) ' ,/) 

9081  FORMATf /,2X, 'WELD  OFFSET  K FAC  ' , 3X, ' U( ' , F8 . 5 , ' , ' ,F9 . 5, ' ) ' , 

& //,2X, 'DYN  AERO  LOAD  FAC  ' , 3X, ' U( ' , F8 . 5, ' , ' ,F9 . 5, ' ) ' , 

& //,2X, 'STAT  AERO  LOAD  FAC' ,3X, ' U( ' , F8 . 5 , ' , ' ,F9 . 5, ' ) ' , 

& //,2X, 'AERO  S'TR  ANAL  FAC  ' , 3X,  ' U(  ' , F8 . 5 , ' , ' ,F9 . 5,  ' ) ' , 

& //,2X, 'DYN  STR  ANAL  FAC  ' , 3X, ' U( ' , F8 . 5, ' , ' ,F9 . 5, ' ) ' ) 

9082  FORMATf/,  2 X, 'STAT  S'TR  ANAL  FAC  ' , 3X,  ' U(  ' , F8 .5,  ' , ' ,F9 . 5,  ' ) ' , 

& //,2X, 'DYN  STR  ANAL  FAC  ' , 3X, ' U( ' , F8 .5, ' , ' ,F9 . 5, ' ) ' ) 

9083  FORMAT(/,2X, 'NEUBERS  RULE  ' , 3X, ' U( ' , F8 . 5 , ' , ' ,F9 . 5, ’ ) ' ) 

909  FORMAT ( /, 2 X, 'LAMBDA  Kth  ' , 3X, 'U( ' ,F8 . 5, ' , ' ,F9 . 5 , ' ) ' , 

& //,2X, 'LAMBDA  Kc  ' , 3X, 'U( ‘ ,F8 . 5, ' , ' ,F9 .5, ' ) ' , 

& //,2X, 'K  CALC  FAC  ' , 3X, ' U ( ' ,F8 . 5, ' , ' ,F9 . 5, ' ) ' , 

& //, 2 X, 'GROWTH  CALC  FAC  ' , 3X, 'U( ' ,F8 . 5, ' , ' ,F9 . 5, ' ) ' ) 

9091  FORMAT( /, 2 X, 'GROWTH  COEFF  m ' , 3X, 'U( ' ,F8 .5, ' , ' ,F9.5, ' ) ' ) 

910  FORMAT(/,2X, 'CRACK  SIZE  A ' , 5X, ' Be ( ' , F6 .4  ' , ' ,F7 . 4, ' ) ' , 2X, 

& 'U(',F7.5,',',F8.5,')',4X, 'U(',F4.i, ',',F5.1,')') 

911  FORMAT(/,2X, 'CRACK  SHAPE  A/C ' , 3X, 'Be( ' , F6 .4 , ' , ' ,F7 . 4, ' ) ' , 2X, 

& 'U(',F7.5, ', ',F8.5,' )',4X, 'U(',F4.1,',',F5.1,')') 

920  FORMAT( ////,28X, 'LOADS  INPUT', 

& ///,5X,'P  LOADS', 5X,'T  LOADS ', 5X, 'M2  LOADS', 

& 4X,'M3  LOADS' ,4X, 'V2  LOADS' ,4X, 'V3  LOADS', 

& //,2X, 'STATIC  AERO' , 

& /,2X,F9.6,5(3X,E9.3) ) 

922  FORMAT(////,27X, 'STRESS  INPUT', 

& ///,5X, ' SX  ',5X, ' SY  ',5X, ' SZ  ', 

& 4X, ' SXY  ',4X, ' SXZ  ',4X, ' SYZ  ', 

& //,2X, 'STATIC' , 

& /,2X,F9.6,5(3X,E9.3) ) 

921  FORMAT(2X,A6, /, 2X,F9 . 6 , 5 ( 3X,E9 . 3) ) 

924  FORMAT(////,25X, 'MISCELLANEOUS  INPUT') 

925  FORMATf //, 2 X, 'EXTERNAL  PRESSURE ', 31X, F6 . 0, 

& //,2X, 'ANALYSIS  LOCATION' ,35X, II, 

& //,2X, 'ANGLE  THETA  ( DEGREES) ', 28X, F6 . 1 ) 

926  FORMATf /, 2X, 'WILLENBORG  OVERLOAD  FACTOR' , 25X,E12 .5, 

& //,2X, 'STRESS-TIME  HISTORY  PERIOD' ,25X,F10 .5, 

& //,2X, 'STRESS-TIME  HISTORY  NOISE  FILTER' , 16X,F7 . 1, 

& //,2X, 'NUMBER  OF  TIME-VARYING  LOADS ', 23X, 12, 

& //,2X, 'NUMBER  OF  POINTS  IN  HISTORIES ', 19X, 15, / ) 

927  FORMAT  (//, 2X, ' ELASTIC  MODULUS' ,32X,E9. 3, 
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& 

& 


//,2X, 'COEFF  OF  THERMAL  EXPANSION ' 2 IX  E14  8 
//,2X,  'POISSONS  RATIO',33X,F5.3) 


928  FORMAT  (///.15X, 'Fk  VS,  Rt  CURVE  INPUT' 

^ //^ lox, 'Fk' , 8X, 'Rt' , /) 

929  FORMAT(5X,F8.2,4X,F8.2,/) 

930  FORMAT  ( /// . 25X, ' STRESS^STRAIN  CURVE  INPUT', 

t /// 2X, 'MAXIMUM  NUMBER  OF  SEGMENTS  ',25X  II 

//,2X, 'STRESS-STRAIN  PRODUCT 5X STRAIN  VALUES',/) 


931  FORMAT(13X,F8.2,10X,F7.5,/) 


RETURN 

END 

C PRCX3RAMMER  : S . SUTHARSHANA 
C DATA  : DECEMBER  1992 
C VERSION  : 92.5 

SUBROUTIN^SETDEFlLIFErNC^r*********************************** 

C IMPLICIT  NONE 

INTEGER  MAXLIF 

PARAMETER  (MAXLIF  = 1000) 

INTEGER  K,  NCRL 

real  LIFE (MAXLIF) 

C INITIALIZE  LIFE  VARIABLE 

DO  40  K = 1,  MAXLIF 
LIFE(K)  = l.OE+36 
40  CONTINUE 

C SET  THE  NUMBER  OF  CRACK  LENGTHS  BETWEEN  AI  AND  AF 

NCRL  = 25 

RETURN 

END 

c DATE 

C VERSION 


S.  SUTHARSHANA 
DECEMBER  1992 
92.5 


C 


SUBROUTINE  STRANl 

& 

& 


(AERD, 

DSTR, 

NRAN, 


SUBPROGRAMS:  M4L1,  M4L2 


AERS,  ASTR, 
EM,  INDIA, 
NU,  PC,  SPR 


ANGLE,  COEXP,  DLTAT, 
LAMN,  LAMS,  LAMW,  LOCAT 
, STRHIS,  THIC,  WOFF) 


C IMPLICIT  NONE 


INTEGER  MAXLD,  MAXM 
REAL  PI 


PARAMETER  (MAXLD  = 16,  MAXM  = 20000,  PI  = 3.141592654) 
COMMON  I OUT 


INTEGER  I,  II,  lOUT,  J,  LOCAT,  NLOAD,  NRAN,  TYPE(MAXLD) 
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REAL  AERD,  AERS,  ASTR,  ANGLE,  COEXP,  DLTAT,  DSTR,  EM,  FK(IO), 

& INDIA,  KT(2,2),  LAMN,  LAMS,  LAMW, 

& M(2,  MAXLD),  MLAM(2,  MAXLD),  MSLAM(2),  MSTAT(2), 

& NU,  P(MAXLD),  PC,  PCO,  PLAM ( MAXLD ) , PSLAM,  PSTAT, 

& RT(IO),  SCLFAC,  SPR<MAXM),  STATIC(4), 

& STRAMP(4,  MAXLD),  STRHIS (MAXLD,  MAXM) , SX ( MAXLD ) , SXST, 

{.  SXY(MAXLD),  SXYST,  SXZfMAXLD) , SXZST,  SY(MAXLD), 

fi  SYST,  SYZ  (MAXLD),  SYZST,  SZ  (MAXLD),  SZST, 

& T(MAXLD),  THIC,  TLAM(MAXLD),  TSLAM,  TSTAT, 

& V(2,  MAXLD),  VLAM(2,  MAXLD),  VSLAM(2),  VSTAT(2),  WOFF 


CC»lMON/LOADS/NLOAD,  PSTAT,  TSTAT,  MSTAT,  VSTAT,  TYPE, 
& P,  T,  M,  V,  PCO, 

& SXST,  SYST,  SZST,  SXYST,  SXZST,  SYZST, 

& SX,  SY,  SZ,  SXY,  SXZ,  SYZ 

COMMON/FKVSRT/FK,  RT 

DATA  KT/1. 0,1. 0,1. 0,1.0/ 

C SCALE  AERO  STATIC  LOADS 

SCLFAC  = AERS  * ASTR 

PSLAM  = SCLFAC  * PSTAT 
TSLAM  =0.0 

MSLAM(l)  = SCLFAC  * MSTAT(l) 

MSLAM(2)  = SCLFAC  * MSTAT(2) 

VSLAM(l)  =0.0 
VSLAM(2)  =0.0 

C SCALE  TIME-VARYING  LOADS 


DO  230  II  = 1,  NLOAD 

IF  (TYPE(II)  .EQ.  1)  THEN 
SCLFAC  = LAMN  * DSTR 
PLAM(II)  = SCLFAC  * P(II) 
TLAM(II)  = * ‘ 

MLAMn,II) 

MLAM(2,II) 

VLAM(1,1I) 

VLAM(2,II) 


0.0 

= SCLFAC  * M(1,II) 
= SCLFAC  * M(2,II 
= 0.0 


= 0.0 

ELSE  IF  (TYPE (II)  .EQ.  2)  THEN 
SCLFAC  = LAMS  * DSTR 
PLAM(II)  = SCLFAC  * P(II) 


0.0 


TLAM(II)  = 

MLAM(1,II) 

MLAM(2,II) 

VLAM(1,II) 

VLAM(2,II) 

ELSE 

SCLFAC  = AERD  * ASTR 
PLAM(II)  = SCLFAC  * P(II) 


SCLFAC  * M(1,II) 
SCLFAC  * M(2,II) 
0.0 
0.0 


230 


TLAM(II)  = 
MLAM(1,II) 
MLAM(2,II) 
VLAM(1,II) 

vlamU,ii) 

END  IF 
CONTINUE 


0.0 

= SCLFAC  * M(1,II) 
= SCLFAC  * M(2,II) 
= 0.0 
= 0.0 


IF  (lOUT  .EQ.  15)  THEN 

WRITE (8,*)  'AERO  STATIC  LOADS' 

WRITE (8,*)  'P  = ',  PSLAM,  ' T = ',  TSLAM, 

& ' M2  = ',  MSLAM(l),  ' M3  = ',  MSLAM(2), 

& ' V2  = ' , VSLAM(l),  ' V3  = ',  VSLAM(2) 

WRI'TE(8,*)  'TIME-VARYING  LOADS' 

DO  240  II  = 1,  NLOAD 

WRITE(8,*)  II,  ' P = ',PLAM(II1,  ' T = ’,TLAM(II), 
& ' M2  = ' ,MLAM( 1, II) , ' Mi  = ' ,MLAM(2,II) , 

& ' V2  = ' ,VLAM(1,II),  ' V3  = ',VLAM(2,II) 

240  CONTINUE 
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nnnn 


ENDIF 


IF  (LOCAT  .EQ.  1)  THEN 


& 

& 


CALL  M4L1  (COEXP,  ANGLE,  DLTAT,  EM, 
MSLAM,  NLOAD,  NU,  PLAM,  PC 
STRAMP,  TLAM,  THIC,  TSLAM, 


INDIA,  KT,  LAMW,  HLAH, 
, PCO,  PSLAM,  STATIC, 
VLAM,  VSLAM,  WOFF,  FK, 


RT) 


ELSE  IF  (LOCAT  .EQ.  2)  THEN 


& 

& 


CALL  M4L2  (COEXP,  ANGLE,  DLTAT,  EM, 
MSLAM,  NLOAD,  NU,  PLAM,  PC, 
STRAMP,  TLAM,  THIC,  TSLAM, 


INDIA,  KT,  LAMW,  HLAM, 
PCO,  PSLAM,  STATIC, 
VLAM,  VSLAM,  WOFF,  FK, 


RT) 


ELSE 


WRITE (8,*)  'ERROR;  INVALID  LOCATION  SPECIFICATION' 
CALL  TRMNAT 

ENDIF 


DERIVE  THE  EQUIVALENT  STRESS  HISTORY 


DO  50  J = 
SPR(J) 
50  CONTINUE 


1,  NRAN 
= STATIC(l) 


150 

100 


DO  100  I = 1,  NLOAD 
DO  150  J = 1,  NRAN 
SPR(J)  = SPR(J) 
CONTINUE 
CONTINUE 


+ STRHIS(I,J) 


* STRAMP (1,1) 


125 


IF  (lOUT  .EQ.  25)  THEN 
DO  125  J = 1,  NRAN 
WRITE(8,*)  J,  'SPR 
CONTINUE 
ENDIF 


SPR( J) 


RETURN 

END 


CALCULATION  FOR  THE  EXHEX 

DATE:  19  NOV  1989 

VERSION:  92,1,  92.2,  92.3,  92.4,  92.5 


SUBROUTINE  STRAN2  (DSTR,  LAMN,  LAMS,  NRAN,  SPR,  SSTR,  STRHIS) 
C IMPLICIT  NONE 

INTEGER  MAXLD , MAXM 
REAL  PI 


PARAMETER  (MAXLD  = 16,  MAXM  = 20000,  PI  = 3.141592654) 
COMMON  lOUT 


INTEGER  II,  I OUT,  J,  NLOAD,  NRAN,  TYPE (MAXLD) 


REAL 


& 

& 

& 

& 

& 


DSTR,  LAMN,  LAMS,  M(2,  MAXLD), 

M^AT(2),  P(MAXLD),  PCO,  PSTAT,  SPR ( MAXM ) , SSTR, 

STRHIS(MAXLD,  MAXM),  SX  ( MAXLD ) , SXST, 
SXY (MAXLD),  SXYST,  SXZ (MAXLD),  SXZST,  SY(MAXlD), 
SYST,  SYZ (MAXLD),  SYZST,  SZ (MAXLD),  SZST  ' 

T(MAXLD),  TSTAT,  V(2,  MAXLD),  VSTAT(2) 


COMMON /LOADS /NLOAD,  PSTAT,  TSTAT,  MSTAT,  VSTAT,  TYPE 
& P,  T,  M,  V,  PCO,  ' 
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c 


& 

& 


SXST,  SYST,  SZST,  SXYST,  SXZST,  SYZST 
SX,  SY,  SZ,  SXY,  SXZ,  SYZ 


SET  UP  THE  STFIESS  AMPLITUDES 

DO  50  II  = 1,  NLOAD 

IF  (TYPE(II> .EQ.l)  THEN 

STRAMP(II)  = LAMN  * DSTR  * SZ(II) 
ENDIF 

IF  (TYPE(IIi .EQ.2)  THEN 

STRAMP(Il)  = LAMS  * DSTR  * SZ(II) 
ENDIF 
50  CONTINUE 

C ASSIGN  STATIC  LOADS 

DO  100  J = 1,  NRAN 

SPR(J)  = SZST  * SSTR 
100  CCWJTINUE 


C SCALE  TIME-VARYING  LOADS 

DO  300  II  = 1,  NLOAD 
DO  200  J = 1,  NRAN 

SPR(J)  = SPR(J)  + STRHIS(II,J)  * STRAMP(II) 
200  CONTINUE  ' 

300  CONTINUE 


IF  (lOUT  .EQ.  25)  THEN 
DO  425  J = 1,  NRAN 
WRITE (8,*)  J,  'SPR 
425  CONTINUE 
ENDIF 


SPR(J) 


RETURN 

END 

C*****-*****4t***  ******************************************  ************** 

C THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
C PROGRAMMER;  L.  GRONDALSKI,  L.  NEWLIN 
C DATE;  9MAR87 

C SUBPROGRAM ; GAM 
C 

C The  random  variates  are  generated  using  the  method  described  in: 

C Johnson,  N.  L. , cind  Kotz,  S.,  Distribution  in  Statistics:  Continuous 
c Unxvariate  Distributions  - 1,  Houghton  Mifflin  Conmany,  1970, 

C pp.  181-182.  ' 'i  VI,, 

C************ ************************** ******************************** 
SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 

COMMON  lOUT 

DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 
INTEGER  I OUT 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RAND  =' , RAND,  ' RHO  =' , RHO, 

& ' THETA  =',  THETA,  ' A=',  A,  ' B=',  B,  ' X='.  X 

Yl  = GAM((RHO  * THETA  +1.),  RAND) 

Y2  = GAM(((1.  - RHO)  * THETA  +1.),  RAND) 

W = Yl  / {h  + Y2) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'Yl  =' , Yl,  ' Y2  =',  Y2,  ' W =',  W 

C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 
X=W*  (B-A)  +A 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'W  =',  W,  ' X =' , X 

RETURN 

END 
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c 

c 

c 

c 


Slh^“f°Seo?gJ^|®^  "sL^!ina^Fron.^t^25r^^"  "Acceptance/Re jection  Method* 

tSS  Sj,=53fl»“i|-SSSS;  ??  3„1, 


10 


c 

c 


real  function  gam  (ALPHA,  RAND) 

SUBPROGRAM;  RANDOM 
COMMON  lOUT 
INTEGER  lOUT 

real  a,  alpha,  ARG,  Ul,  U2,  VI,  V2 
DOUBLE  PRECISION  RAND 
A = ALPHA  - 1. 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'A  =' , A,  ' 

CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  = - ALOG(Ul) 

V2  = - ALOG(U2) 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  ' Ul  ='  Ul 
* VI,  ' V2  ='  V2  ' ' 

ARG  - A » (VI  - ALOG(Vl)  - 1 \ 

IF  (V2  .LT.  ARG)  GOTO  lo 

CSAM  = ALPHA  * VI 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'GAMMA  =',  GAM 

RETURN 

END 


ALPHA  =',  ALPHA 


U2  =',  U2,  ' VI  =' 
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Section  7.2 

Low  Cycle  Fatigue  Failure  Program  BLDLCF 


The  program  tree  structures,  list  of  subprograms,  descriptions  of  the  key  vari- 
ables, and  the  FORTRAN  source  listings  for  the  low  cycle  fatigue  analysis  code 
BLDLCF  are  given  here.  The  pertinent  LCF  methodology  is  given  in  Section  3.  The 
overall  description  of  the  program  and  the  flowcharts  are  given  in  Section  5.2.  The 
user’s  guide  for  running  BLDLCF  is  given  in  Section  6.2. 

7.2.1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  BLDLCF,  using  Uniform  variation  on  the  materials 
shape  parameter  m,  is  given  in  Figure  7.2-1,  while  the  tree  structure  for  the  trun- 
cated Normal  case  is  given  in  Figure  7.2-2.  The  tree  structure  for  BLDLCF 
V3.4B1.3  is  given  in  Figure  7.2-3.  In  all  trees,  those  subprograms  not  “shadow- 
boxed”  are  part  of  the  materials  characterization  model.  The  program,  sub- 
program, and  file  names  are  indicated  by  UPPERCASE  letters. 

7.2.2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7.2-1.  The  section 
numbers  where  the  subprograms  are  described  by  means  of  flowcharts  are  given 
next  to  the  names. 
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Figure  7.2-1  T ree  Structure  for  Program  BLDLCF  for  the 

Uniform  Variation  in  Materials  Shape  Parameter  m 


7-78 


I BLDLCrn 


PRYRV 


PAREST 


H random 


FINDMN 


TRNSFM 


KBETA 


FINDK 


FINDSB 


NORMGN  1 

f random  I 

-L 

BETAGN 

1^ 

‘ 

— 

-c 

GAM  t 

H NORMGN  1 

' — RANDOM  1 

H PRYRV  1 

* 

— 

-L 

random  1 

-c 

WEIBGN 

□ 

1 RANDOM  1 

KOMO 

□ 

■c 

BLDLIF 

□ 

' 

RAINF3  1 

^ 

c 

INSORT 

□ 

SORTM 

□ 

— 1~  EXPCTD 


TRNSFM  ~| 


— SMNVAR 

□ 

~i  KBETA 

□ 

FINDK 

□ 

FINDS8 

□ 

H KOMO 

□ 

NORMGN  I 

T ^ ' 


SMNVAR 


RANDOM  ~1 


random 


GTUFE 
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NAME 

ADDREG’ 

ADDRGN’ 

BETAGN^ 

BLDLCF 

BLDLIF 

CONCAV^ 

CONyRT^ 

EXPB 

EXPCTD® 

FINDK 

FINDM® 

FINDMC 

FINDMN® 

FINDSB 

FNDRNG^ 


Table  7.2-1  List  of  Subprograms  For  Program  BLDLCF 
(Footnotes  are  at  the  end  of  the  table) 


SECTION 

PURPOSE 

4.1. 3.9* 

if 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case. 

4.1.3.15 

* 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Norntal  distribution  case. 

4.4.5 

Generates  Beta(a,  b.  p,  6)  random  variates. 

5.2.2. 1 

The  main  routine  that  controls  the  logical  flow  of  the  low  cycle 
fatigue  turbine  blade  program. 

5.2.3. 1 

The  main  routine  that  controls  the  logical  flow  of  the  low  cycle 
fatigue  turbine  blade  program  with  the  nonparametric  materials 
characterization  model. 

5.2.2.2 

A 

Performs  the  calculations  of  the  driver  transformation  and  then  calls 
RAINF3  to  calculate  the  fatigue  life. 

4.1.3.10 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be  consis- 
tent with  concavity  constraints. 

4.1. 3.3* 

Transforms  strain  data  to  equivalent  zero-mean  strains  with  strain 
ratio  of  -1 .0. 

5.2.34 

if 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
linear  regression  and  residual  calculations  of  Section  3.2.7. 

4.1.3.12 

* 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  calculations. 

4. 1.5.6 

* 

Calculates  the  value  of  the  location  parameter  K (where  4 = K'”) 
for  each  life  region  by  using  Equations  2-37  and  2-41  of  [1], 

4.1.5.1 

* 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
{to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

4. 1.3.5 

if 

Calculates  the  m range  implied  by  the  constraint  on  the  coefficient 
of  variation  of  fatigue  strength,  C,  for  each  life  region,  by  usino 

Equations  2-28  through  2-32  of  [1]. 

4. 1.5.2 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the  ap- 
propriate truncated  Normal  distribution  on  m. 

4.1. 5.7* 
* 

Calculates  the  life  region  “tie-points”  or  strain  values  which  cor- 
respond to  the  “life  boundaries.”  conditional  on  the  randomly 
selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set,  which  is  a function  of  /3^  and  k. 

4.1. 3.8 

Combines  the  95%  confidence  interval.  J^,  with  the  implicit  and  ex- 
plicit constraints  on  m,  to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 
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Table 

7.2-1  List  of  Subprograms  For  Program  BLDLCF  (Cont’d) 

NAME 

SECTION 

PURPOSE 

GAM 

4.4.4* 

Generates  Gamma{a,  1)  random  variates. 

GTLIFE 

4.1.8* 

Calculates  the  cycles  to  failure  for  a particular  strain,  based  upon 
the  materials  characterization  model  S/N  curve  of  Equation  2-48  of 
[1]- 

Calculates  o the  extent  of  departures  from  the  multiple  heat 
median  S/N  curve  warranted  by  the  information  available,  by  using 
Equation  2-49  of  [1). 

GTPVAR 

4.1. 3.7* 

INFAGG® 

S.2.3.2 

Controls  the  logical  flow  for  the  information  aggregation  portion  of 
the  materials  characterization  model. 

INIT 

4.1.3.1* 

Initializes  the  entries  of  the  arrays  used  in  the  information  aggrega- 
tion subroutine,  INFAGG,  to  zero. 

INSORT 

it 

SB 

Performs  an  insertion  sort  for  the  lowest  fifty  percent  of  the  lives  cal- 
culated. 

INTRVL 

4. 1.3.6* 

Calculates  the  95%  confidence  intervals  for  C,  and  for  m,  for 
each  region  by  using  Equations  2-24  through  2-26  of  [1]. 

KBETA 

4.1. 5.5* 

Calculates  k and  from  the  sample  mean  and  variance  of  Z,  where 
Z is  a function  of  strain,  life,  the  life  region  boundaries,  and  the  m's, 
by  using  Equation  2-42  of  [I]. 

KOMO® 

4.1.6* 

Calculates  and  for  the  zero  region,  the  no  data  region  to  the 
left  of  the  first  data  region.  Extends  the  S/N  curve  consistent  with 
the  tensile  point  at  Sq. 

MEDIAN 

4.1.3.11* 

Calculates  the  median  values  of  m,  based  on  the  posterior 
credibility  ranges  of  m,  by  using  Equation  2-34  of  [1]. 

MREGR 

5.2.3.7 

Performs  the  regression  to  obtain  the  parameter  m for  the  non- 
parametric  materials  characterization  model. 

musig’° 

4.1.3.13* 

Calculates  the  posterior  Normal  distribution  parameters,  mean  m, 
and  standard  deviation  ct,,  for  each  life  region  of  the  S/N  curve. 

normgn” 

4.4.3* 

Generates  Normal(«,  a^)  random  variates. 

NORRNG^ 

4.1.3.14* 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

rarest’ 2 

4.1.5* 

Controls  the  logical  flow  for  the  parameter  estimation  model  portion 
of  the  materials  characterization  model. 

PEB 

5.2.3.5 

Controls  the  logical  flow  of  the  bootstrapping  portion  of  the  non- 
parametric  materials  characterization  model  described  in  Section 
3.2.7. 

PICRES 

5.2.3.6 

Bootstraps  the  residuals  and  performs  the  pseudo  S/N  data  genera- 
tion described  in  Section  3.2.7. 
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Table 

7.2-1  List  of  Subprograms  For  Program  BLDLCF  (Cont’d) 

NAME 

SECTION 

PURPOSE 

PRYRV’3 

7.6.6* 

Generates  the  Uniform(a,  b)  and  Uniform(c,  d)  pair  of  independent 
random  variates. 

RAINF3 

S.2.2.3 

Performs  rainflow  cycle  counting,  Miner’s  rule  damage  accumula- 
tion, and  calls  GTLIFE  to  calculate  the  fatigue  life. 

RANDOM’3 

4.4.2* 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 

RCE 

4.1. 3.2* 

Reads  the  data  from  BLDLCD  and  RELATD;  calls  CONVRT  to  trans- 
form the  strain  data  to  a strain  ratio  of  -1 .0;  and  echoes  the  data  to 
BLDLCO  and  RELATO.  RCE  also  breaks  S/N  data  sets  into  regions 
as  specified  by  the  user. 

SMNVAR 

4. 1.5.4* 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a func- 
tion of  strain,  life,  the  life  region  boundaries,  and  the  m’s,  by  using 
Equation  2-42  of  [1]. 

sortm’'* 

4.1.10* 

Sorts  the  m values  in  increasing  order  for  each  iife  region  for  the 
truncated  Normal  distribution  case. 

SW2SU2 

5.2.3.3 

Calculates  the  residual  variances  from  the  Y on  X and  X on  Y regres- 
sions for  each  iife  region  where  Y = \n(Endurance  cycles)  and 
X = \n(Strain)  by  using  Equations  2-20  and  2-21  of  [1];  to  be  used 
in  the  credibility  range  calculations. 

trmnat 

4.1.11* 

Performs  premature  program  termination  when  required. 

trnsfm’® 

4.1. 5.3* 

Performs  the  calculations  necessary  to  transform  the  sp>ecific 
material  S/N  data  into  the  variable  Z,  where  Z is  a function  of  strain, 
iife,  the  life  region  boundaries,  and  the  m’s. 

WEIBGN 

4.4.6* 

Generates  WeibullOS,  random  variates. 

WORSTN 

5.2.3.8 

Performs  the  “worst  of  N"  selection  described  in  Section  3.2.7.3  for 
both  Weibull  and  Lognormal  distributions. 
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See  [1]. 

No  data  regions  to  the  right  are  discussed  in  [1],  Page  2-17. 

^ The  Beta  distribution  is  discussed  in  [1],  Page  2-25. 

Concavity  constraints  are  discussed  in  [1],  Pages  2-13  through  2-14. 

^ The  strain  transformation  is  discussed  in  [1],  Page  2-7. 

The  median  S/N  curve  parameter  estimation  calculations  are  described  in  f 11  Paces  2-15 
through  2-18.  i j*  “6  ^ 

® Selection  of  the  {m-}  parameters  is  discussed  in  [1],  Page  2-15. 

^ Combiimg  information  to  obtain  the  posterior  credibility  ranges  on  m is  discussed  in  [1], 

The  information  aggregation  calculations  are  discussed  in  [1],  Pages  2-6  through  2-14. 

® Extension  of  the  S/N  curve  to  the  left  is  discussed  in  [1],  Page  2-17. 

Calculation  of  the  truncated  Normal  distribution  parameters  is  Hkrmtpd  in  [1],  Page  2-14. 
’ ’ The  Normal  distribution  is  discussed  in  [1],  Page  2-23. 

The  parameter  estimation  calculations  are  discussed  in  [1],  Pages  2-15  through  2-18. 

The  Uniform  distribution  is  discussed  in  [1],  Page  2-23. 

The  need  for  saving  m’s  is  discussed  in  [1],  Page  2-15. 

The  S/N  data  transformation  is  discussed  in  [1],  Page  2-16. 
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7.2.3  Description  of  Variabies 

A list  of  variables  used  in  the  ATD-HPFTP  first  stage  turbine  blade  LCF  code, 
BLDLCF,  is  given  in  Table  7.2-2.  The  variable  names  are  indicated  by  BOLD 
UPPERCASE  letters:  the  variable  “type"  can  be  interpreted  as  follows:  INT  is  a 
standard  integer  variable;  RE  is  a standard  real  variable;  and  DRE  is  a double 
precision  variable.  The  various  array  dimensions  are  defined  by  using  the  follow- 
ing parameters:  MAXBLF,  MAXDAT,  MAXLIF,  MAXM,  MAXMM,  and  MAXREG. 


Table  7.2-2  List  of  Variables  For  Program  BLDLCF 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ALLM(MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 
parameters  (m’s)  for  each  life  region  which  are  to 
be  used  in  the  truncated  Normal  median  S/N  curve 
calculation.^ 

BIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K,  where  A = K'”,  given  in 
Equation  2-12  of  [1]. 

BiGKI 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BLDLIF 

RE 

Real  function  that  performs  the  calculations  of  the 
driver  transformation,  calls  RAINF3  to  calculate  a 
fatigue  life,  and  returns  the  fatigue  life  (missions). 

BLFPER(MAXBLF) 

RE 

1-D  array  containing  user  specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-life  is  the  Vcilue  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.1  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS(MAXBLF) 

INT 

1 -D  array  containing  the  indices  for  the  array  vari- 
able UFE( ) corresponding  to  the  user-requested 
simulated  failure  distribution  B-lh/es  contained  in 
variable  BLFPER(). 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
Pq,  that  characterizes  the  intrinsic  variation  of  the 
S/N  data  set,  by  using  Equation  2-11  of  [1]. 

DUM 

RE 

Dummy  variable. 

EBEND 

RE 

The  randomly  selected  value  for  £g,  the  bending 
strain  due  to  gas  bending  and  blade  tilt,  given  in 
Equation  3-1 . 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

type  description 

EBENDA 

RE 

Uniform  distribution  lower  bound  of  Eg. 

EBENDB 

RE 

Uniform  distribution  upper  bound  of  Eg. 

EM(MAXM) 

RE 

1-D  array  containing  the  total  mechanical  strain- 
time history.  EM(ti)  (%),  in  Equation  3-1. 

EMNOM 

RE 

^Mnom  W Equation  3-5,  the  nominal  mechanical 
strain. 

EPSL 

RE 

e in  Equation  3-9,  the  material’s  intrinsic  variation 
or  scatter,  given  by  a Lognormal  random  variate. 

EPSW 

RE 

e in  Equation  3-9,  the  material’s  intrinsic  variation 
or  scatter,  given  by  a Weibull  random  variate. 

ETH(MAXM) 

RE 

1-D  array  containing  the  total  thermal  strain-time 
history  Ej^(tf)  (%)  in  Equation  3-1. 

ETHNOM(MAXM) 

RE 

^THnomi^i)  (^)  Equation  3-4,  the  1-D  array  con- 
taining the  nominal  thermal  strain-time  history. 

ETOT(MAXM) 

RE 

1-D  array  containing  the  total  strain-time  history. 
Equation  3-1. 

FA 

RE 

^A(^gas>  ^gas)  ®A  •f’  Equation  3-2,  the  accelera- 
tion response  surface. 

FAA,  FAB.  FAC,  FAD,  FAE,  FAF 

RE 

The  coefficients  for  the  acceleration  response  sur- 
face  ffiiTgggi  ^gias)  ill  Equation  3-2. 

FACTR 

RE 

Equal  to  FACTOR  = PHI  * KRATIO  * 2.  Used  by 
the  materials  model. 

FAERRM 

RE 

Mean,  fi,  of  Normally  distributed  e^,  the  additive 
modeling  uncertainty  for  the  acceleration  response 
surface,  given  in  Equation  3-2. 

FAERRS 

RE 

Standard  deviation,  ct.  of  Normally  distributed  e;^, 
the  additive  modeling  uncertainty  for  the  accelera- 
tion response  surface,  given  in  Equation  3-2. 

FD1 

RE 

^Di(^<  Ts)  + ©o  in  Equation  3-3,  the  deceleration 
response  surface  for  the  thermal  strain. 

FD1A,  FD1B,  FD1C,  FD1D,  FD1E,  FDIF 

RE 

The  coefficients  for  the  deceleration  response  sur- 
face /oi(m,  T^)  in  Equation  3-3. 

FD2 

RE 

^D2(^'  ^s)  Equation  3-6,  the  deceleration 
response  surface  for  the  time  of  deceleration 

FD2A.  FD2B 

RE 

The  coefficients  for  the  deceleration  response  sur- 
face Tj)  in  Equation  3-6. 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

FD3 

RE 

fozi^d)  Equation  3-7,  the  deceleration  response 
surface  for  the  rotor  speed  w(f5). 

FD3A,  FD3B 

RE 

The  coefficients  for  the  deceleration  response  sur- 
face Equation  3-7. 

FDERRM 

RE 

Mean,  n,  of  Normally  distributed  6q,  the  additive 
modeling  uncertainty  for  the  deceleration  response 
surface,  given  in  Equation  3-3. 

FDERRS 

RE 

Standard  deviation,  a,  of  Normally  distributed  e^, 
the  additive  modeling  uncertainty  for  the  decelera- 
tion response  surface,  given  in  Equation  3-3. 

FIFTY 

RE 

Variable  used  to  access  the  fifty-percent  point  in 
the  UFE( ) array. 

FTU 

RE 

Material  ultimate  strength  (%). 

FTY 

RE 

Material  yield  strength  (%). 

GTLIFE 

RE 

Function  given  by  Equation  2-48  of  [1]  that  calcu- 
lates the  fatigue  cycles  to  Allure  at  a given  strain. 

HGAS 

RE 

^gas  Equation  3-2,  the  randomly  selected  gas 
film  coefficient. 

HGASA 

RE 

Lower  bound  of  the  Beta  distribution  on  hg^. 

HGASB 

RE 

Upper  bound  of  the  Beta  distribution  on  hg^. 

HGASR 

RE 

Randomly  selected  Beta  distribution  location 
parameter/)  for  hg^g. 

HGASR1 

RE 

Uniform  distribution  lower  bourxf  of  parameter  p In 
the  Beta  distribution  of  hg^. 

HGASR2 

RE 

Uniform  distribution  upper  bound  of  parameter  p in 
the  Beta  distribution  of  hg^. 

HGAST 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  hg^. 

HGAST1 

RE 

Uniform  distribution  lower  bound  of  parameter  d In 
the  Beta  distribution  of 

HGAST2 

RE 

Uniform  distribution  upper  bouixl  of  parameter  6 in 
the  Beta  distribution  of  hg^^. 

1 

INT 

Controls  inner  DO  loop. 

1 

INT 

Controls  DO  loop  for  each  point  in  the  time  history. 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME  TYPE  DESCRIPTION 


lOUT 

INT 

Output  dump  controller.  lOUT  = 0,  no  inter- 
mediate calculation  output;  lOUT  =10,  materials 
characterization  model  calculations;  lOUT  = 15, 
driver  sampling  and  driver  trar^formation  calcula- 
tions; and  lOUT  = 20,  rainflow  cycle  counting  arxl 
damage  accumulation. 

J 

INT 

Controls  DO  loop  for  each  B-life.^ 

K 

INT 

Controls  outer  DO  loop. 

KRATIO 

RE 

Ratio  of  MED  K*/MED  K in  Equation  2-48  of  [1  ]. 
KRATIO  is  constant  over  life  regions  for  the 
materials  model. 

L 

INT 

Controls  DO  loop  for  each  life  region  of  the  S/N 
curve. 

LAMA 

RE 

A^  in  Equation  3-4,  the  randomly  selected  uncer- 
tainty factor  for  the  coefficient  of  thermal  expan- 
sion. 

LAMAA 

RE 

Uniform  distribution  lower  bound  of  A^. 

LAMAB 

RE 

Uniform  distribution  upper  bound  of  A^. 

LAMDA 

RE 

^dam  Equation  2-91  of  [1],  the  randomly 
selected  damage  accumulation  model  accuracy 
factor.  See  [1],  Section  2.2.1.4,  for  a discussion  of 
the  damage  calcuiations. 

LAMDAA 

RE 

Uniform  distribution  lower  bound  of  the  damage  ac- 
cumulation model  accuracy  factor. 

LAMDAB 

RE 

Uniform  distribution  upper  bound  of  the  damage 
accumulation  model  accuracy  factor. 

LAMG 

RE 

Aq  in  Equation  3-4,  the  raixlomly  selected  thermal 
strain  uncertainty  factor  due  to  gas  temperature 
variation  during  start. 

LAMGA 

RE 

Lower  bound  of  the  Beta  distribution  on  Aq. 

LAMGB 

RE 

Upper  bound  of  the  Beta  distribution  on  Aq. 

LAMGR 

RE 

Randomly  selected  Beta  distribution  location 
parameter /j  for  Aq. 

LAMGR1 

RE 

Uniform  distribution  lower  bound  of  parameter in 
the  Beta  distribution  of  Aq. 

LAMGR2 

RE 

Uniform  distribution  upper  bound  of  parameter  p in 

the  Beta  distribution  of  Aq. 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

type  description 

LAMGT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  e for  ;Iq. 

LAMGT1 

RE 

Uniform  distribution  lower  bourxJ  of  parameter  6 In 
the  Beta  distribution  of  Aq. 

LAMGT2 

RE 

Uniform  distribution  upper  bound  of  parameter  6 in 
the  Beta  distribution  of  Aq. 

LAMP 

RE 

Ap  in  Equation  3-5,  the  randomly  selected  deviation 
in  blade  pull  load  due  to  uncertainty  in  blade  mass. 

LAM  PA 

RE 

Uniform  distribution  lower  bound  of  Ap. 

LAMPB 

RE 

Uniform  distribution  upper  bound  of  Ap. 

LAMTM 

RE 

^TMF  Section  3.2.6,  the  randomly  selected  ther- 
mal-mechanical fatigue  (TMF)  model  accuracy  fac- 
tor. 

LAMTMA 

RE 

Uniform  distribution  lower  bound  of  the  TMF  model 
accuracy  factor. 

LAMTMB 

RE 

Uniform  distribution  upper  bound  of  the  TMF 
model  accuracy  factor. 

UFE(MAXUF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  BLDLCF.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  teflure  distribution. 

UFEL(MAXUF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  BLDLCF  V3.4B1.3  for  Lognormal  intrin- 
sic materials  variation.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

LIFEW(MAXLIF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  BLDLCF  V3.4B1 .3  for  Weibull  intrinsic 
materials  variation.  The  lives  are  sorted  values  for 
the  left-hand  tail  simulated  failure  distribution. 

UFL 

RE 

Fatigue  life  value  (missions)  equal  to  EPSL  * 
NEWLIF  to  be  inserted  in  UFEL( ) for  the  non- 
parametric  materials  characterization  model  with 
Lognormal  intrinsic  materials  variation. 

LIFW 

RE 

Fatigue  life  value  (missions)  equal  to  EPSW  * 
NEWLIF  to  be  inserted  in  UFEW( ) for  the  non- 
parametric  materials  characterization  model  with 
Weibull  intrinsic  materials  variation. 

LNA(0:MAXREG) 

RE 

1 -D  array  containing  values  of  ln(A)  = In(BIGK)  * 
MM  for  each  life  region  of  the  S/N  curve. 
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List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LNPHI 

RE 

The  natural  logarithm  of  <p  in  Equation  2-1 1 of  [1], 
the  material’s  intrinsic  variation,  or  scatter,  given  by 
a Lognormal(0,  PHISIG^)  random  variate. 

LNZ 

RE 

ln(Z)  in  Equation  2-48  of  [1],  the  Normal(0,  PVAR) 
random  variate  for  the  materials  process  variation 
aspect  of  the  materiais  model. 

LPHIM(0:MAXREG) 

RE 

1-D  array  containing  values  of  In(PHI)  * MM  for 
each  life  region  of  the  S/N  curve. 

M 

INT 

Controls  symmetry  DO  loop. 

MANAL 

RE 

The  randomly  selected  mechanical  strain  analysis 
accuracy  factor,  in  Equation  3-5. 

MANALA 

RE 

Uniform  distribution  lower  bound  of 

MANALB 

RE 

Uniform  distribution  upper  bound  of  A/^. 

MAXBLF 

INT 

Maximum  number  of  B-iives  to  be  obtained  from 
the  simulated  failure  distribution.  The  maximum 
number  of  B-lives  allowed  is  10.^ 

MAXDAT 

INT 

Maximum  number  of  points  per  data  set  per  region 
allowed  for  the  S/N  curve.  The  maximum  number 
of  data  points  per  set  allowed  is  50. 

MAXUF 

INT 

Maximum  number  of  fatigue  lives  allowed  for  the 
simulated  failure  distribution.  The  maximum  num- 
ber of  fatigue  lives  to  be  saved  is  10,000. 

MAXM 

INT 

Maximum  number  of  points  allowed  in  the  time  his- 
tory arrays.  The  maximum  number  of  points  is  50. 

MAXMM 

INT 

Maximum  number  of  m’s  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.  ^ The 
maximum  number  of  m's  is  20,000. 

MAXREG 

INT 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

MCOUNT 

INT 

Counts  number  of  m’s  to  be  used  to  calculate  the 
median  S/N  curve  for  the  truncated  Normal  dis- 
tribution case.^ 

MEDKB(0:MAXREG) 

RE 

1 -D  array  containing  the  median  K for  each  life 
region  of  the  S/N  curve  for  the  bootstrapping 
option. 

MEDM(MAXMM) 

RE 

1-D  array  containing  the  empirical  median  m for 
each  life  region  of  the  S/N  curve.^ 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

type  DESCRIPTION 

MEDMB(0;MAXREG) 

RE 

1 -D  array  containing  the  median  m for  each  life 
region  of  the  S/N  curve  for  the  bootstraDoina 
option. 

MID 

INT 

Pointer  to  the  median  m values  In  array  SORTM( ) 
for  the  truncated  Normal  median  S/N  curve  Value 
of  half  of  MCOUNT. 

MINPHI 

RE 

Value  of  min(PHI),  the  minimum  of  NSYM  draws  of 
the  materials  scatter  parameter  y>. 

MM(0:MAXREG) 

RE 

my  in  Equation  2-12  of  [1J,  the  1-D  array  containing 
randomly  selected  values  of  the  materials  model 
shape  parameter  m for  each  life  region  of  the  S/N 
curve. 

MODER1 

RE 

in  Equation  3-2,  the  randomly  selected  additive 

modeling  uncertainty  for  the  acceleration  response 
surface. 

MOOER2 

RE 

Equation  3-3,  the  randomly  selected  additive 

modeling  uncertainty  for  the  deceleration  response 
surface. 

MPROC 

INT 

Materials  PROCess  variation.  Controls  materials 
process  variation.  A value  of  0 indicates  no 
materials  process  variation,  while  a value  of  1 indi- 
cates that  materials  process  variation  should  be  In- 
cluded.'^ 

MU(MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal  distribu- 
tion mean  of  the  materials  shape  parameter  m for 
each  life  region  of  the  truncated  Normal  S/N  curve. 

NBLIFE 

INT 

Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution.^ 

NBND(0:MAXREG) 

RE 

^*i.  y-n  in  Equation  2-35  of  [1],  the  1-D  array  con- 
taining upper  bounds  for  the  NUMREG  life  regions 
of  interest  for  the  specific  material  S/N  data  set. 

NEWLIF 

RE 

Fatigue  life  value  (missions)  returned  from  call  to 
function  BLDUF. 

NF(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  values  from  the  array 
RAWNF( ) for  the  specific  material  S/N  data  set  par- 
titioned  into  life  regions. 

NHYPER 

INT 

The  outer  loop  size. 

NLIFE 

INT 

The  inner  loop  size. 
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Table  7.2-2 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

NLIFET 

INT 

NMED 

INT 

NOMSPD  RE 

NPTS(MAXREG)  INT 

NSYM  INT 

NTIME  RE 

NUMREG  INT 

PERIOD  RE 

PHI  RE 

PHISIG  RE 

PSIG  RE 

PVAR  RE 

RAINF3  RE 

RAND  DRE 

RANGEM(2.  MAXREG)  RE 


DESCRIPTION 

Total  number  of  lives  calculated  by  program 
BLDLCF.  Value  of  NHYPER  * NUFE. 

Controls  S/N  curve  median  calculation  for  the  trun- 
cated Normal  distribution  case.  A value  of  0 indi- 
cates that  the  user  does  not  desire  a median 
calculation  or  that  the  Uniform  distribution  case  is 
being  used;  while  a value  of  1 indicates  that  the 
user  desires  the  median  calculation  to  be  per- 
formed. 

coq  (rpm)  in  Equation  3-5,  the  nominal  rotor  speed. 

1- D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

Symmetry  number,  usually  equeil  to  the  multiplicity 
of  the  modeling  unit  in  the  component. 

Number  of  points  in  strain-time  history. 

R in  Equation  2-1 1 of  [1],  the  number  of  life  regions 
of  interest  in  the  S/N  curve. 

T (missions)  in  Equation  2-91  of  [1J,  the  length  of 
time  in  missions  of  the  strain-time  history. 

in  Equation  2-11  of  [1],  the  material's  Intrinsic 
variation,  or  scatter,  given  by  a WeibullOSo-  Vo^Po)) 
random  variate. 

a in  the  distribution  A(0,  a^)  of  Section  3.2.7. 2,  a 
parameter  of  the  Lognormal  distribution  of  the  in- 
trinsic materials  variation. 

a in  Equation  2-48  of  [1],  the  value  of  SQRT(PVAR) 

in  Equation  2-48  of  [1],  characterizes  the  extent 
of  departure  from  the  multiple  heat  median  S/N 
curve  warranted  by  the  available  information. 

Real  function  which  performs  rainflow  cycle  count- 
ing, Miner’s  Rule  damage  accumulation,  and  calls 
GTLIFE  to  calculate  the  fatigue  life. 

Random  number  seed. 

2- D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(1,L)  is  the  lower  bound  and 
RANGEM(2,L)  is  the  upper  bound  in  region 
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Table  7.2-2  List  of  Variables  For  Program  BLDLCF  (Cont'd) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

RESIO(MAXDAT) 

RE 

1 -D  array  containing  the  values  of  the  residuals  of 
the  regression  for  each  point  in  the  specific 
material  S/N  data  for  the  bootstrapping  option. 

RESNF(MAXDAT,  MAXREG) 

RE 

1 -D  array  containing  values  of  N for  the  generated 
pseudo  S/N  data  for  the  bootstrapping  option. 

RPM(MAXM) 

RE 

1 -D  array  containing  a»(f,)  (rpm)  in  Equation  3-5, 
the  rotor  speed  time  history. 

SBND(0:MAXREG) 

RE 

1 -0  array  containing  the  strain  values  (%)  with 
strain  ratio  = -1.0,  corresponding  to  the  “life 
boundary"  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SIG(MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation^  of  the  materials  model 
shape  parameter  m for  each  life  region  of  the  trun- 
cated Normal  S/N  curve. 

SLOPE 

RE 

The  randomly  selected  deceleration  slope  at  shut- 
down, m (°R/sec)  in  Equation  3-3. 

SLOPEA 

RE 

Lower  bound  of  the  Beta  distribution  on  m. 

SLOPES 

RE 

Upper  bound  of  the  Beta  distribution  on  m. 

SLOPR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  yt)  form. 

SLOPR1 

RE 

Uniform  distribution  lower  bouixl  of  parameter  p in 
the  Beta  distribution  of  m. 

SLOPR2 

RE 

Uniform  distribution  upper  bound  of  parameter yo  in 
the  Beta  distribution  of  m. 

SLOPT 

RE 

Randomly  selected  Beta  distribution  shap>e 
parameter  d for  m. 

SLOPT1 

RE 

Uniform  distribution  lower  bound  of  parameter  6 in 
the  Beta  distribution  of  m. 

SLOPT2 

RE 

Uniform  distribution  upper  bourxl  of  parameter  d in 
the  Beta  distribution  of  m. 

SPEED 

RE 

cu(t5)  (rpm)  in  Equation  3-5,  the  randomly  selected 
steady  state  rotor  speed. 

SPEEDM 

RE 

Mean,  p,  of  Normally  distributed  steady  state  rotor 
speed  (rpm). 

SPEEDS 

RE 

Standard  deviation,  a,  of  Normally  distributed 
steady  state  rotor  speed  (rpm). 
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Table  7.2-2  List  of  Variables  For  Program  BLDLCF  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

STR(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  strain  points  with  strain  ratio 
= -1.0,  for  the  specific  material  S/N  data  set  parti- 
tioned into  life  regions. 

SZERO 

RE 

Strain  tensile  test  point,  Sq  (%).® 

TANAL 

RE 

The  randomly  selected  thermal  strain  analysis  ac- 
curacy factor,  in  Equation  3-4. 

TANALA 

RE 

Uniform  distribution  lower  bound  of  A7-;^. 

TANALB 

RE 

Uniform  distribution  upper  bound  of 

TGAS 

RE 

^gas  Equation  3-2,  the  randomly  selected 

gas  temperature  at  . 

TGASA 

RE 

Lower  bound  of  the  Beta  distribution  on  Tgg^. 

TGASB 

RE 

Upper  bound  of  the  Beta  distribution  on  Tgg^. 

TGASR 

RE 

Randomly  selected  Beta  distribution  location 
parameter/}  for  Tggg. 

TGASR1 

RE 

Uniform  distribution  lower  bound  of  parameter  p In 
the  Beta  distribution  of  Tgg^. 

TGASR2 

RE 

Uniform  distribution  upper  bound  of  parameter/}  in 
the  Beta  distribution  of  Tggg. 

TGAST 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  d for  Tgg^. 

TGAST1 

RE 

Uniform  distribution  lower  bound  of  parameter  0 in 
the  Beta  distribution  of  Tggg. 

TGAST2 

RE 

Uniform  distribution  upper  bound  of  parameter  0 in 
the  Beta  distribution  of  Tggg. 

TRBIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K consistent  with  the  tensile 
point  Sq.® 

TRSBND(0:MAXREG) 

RE 

1-D  array  containing  the  strain  values  (%)  with 
strain  ratio  = -1.0,  corresponding  to  the  “life 
boundary”  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw  con- 
sistent with  the  tensile  point  S^,.® 

TRUNC 

RE 

Value  used  to  filter  out  noise  in  the  composite 
strain-time  history  during  rainflow  cycle  counting. 
See  [1],  Section  2.2. 1.4,  for  a discussion  of 
rainflow  cycle  counting. 
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Table  7.2-2 

VARIABLE  NAME 
TSTART 

TSTMU 

TSTSIG 

TSUBI 

VARPHI 

VARY 

WEXP 

Z 

ZROREG 


List  of  Variables  For  Program  BLDLCF  (Cont’d) 


■TYPE  DESCRIPTION 

Eguation  3-3,  the  randomly  selected  gas 
temperature  at  the  start  of  deceleration. 

RE  Mean.  of  Normally  distributed  7^,  the  gas 
temperature  at  the  start  of  deceleration,  given  in 
Equation  3-3. 

RE  Standard  deviation,  a,  of  Normally  distributed  7^, 

gas  temperature  at  the  start  of  deceleration,  given 
in  Equation  3-3. 

I NT  The  time  index  for  the  rotor  time  history  for  \which 
the  distribution  on  steady  state  rotor  speed  is  valid. 

I NT  Controls  type  of  material’s  intrinsic  variation 
desired.  A value  of  1 indicates  Weibull  variation 
and  a value  of  2 indicates  Lognormal  variation. 

INT  Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required:  a 
value  of  1 means  that  intrinsic  materials  variation 
only  is  desired;  a value  of  2 indicates  that  the  user 
desires  a Uniform  distribution  on  m;  while  a value 
of  3 indicates  that  a truncated  Normal  distribution 
is  desired;  a value  of  4 indicates  the  user  desires 
the  bootstrapping  option. 

RE  w in  Equation  3-8,  the  exponent  for  the  Walker  rela- 
tion. 

RE  Z in  Equation  2-48  of  [1],  the  randomly  selected 
procGss  variation  shift  factor  given  by  a Lognor- 
mal (0,  PVAR)  random  variate. 

I NT  ZeRO  REGion.  the  variable  permits  the  Inclusion  of 
the  tensile  point  Sq.  The  value  of  0 implies  a DO 
loop  from  zero  to  NUMREG,  while  a value  of  1 
causes  the  DO  loop  to  be  executed  from  one  to 
NUMREG.® 
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The  need  for  saving  m’s  is  discussed  in  [1],  Page  2-15. 

^ See  variable  BLFPER( ) for  a description  of  B-life. 

® The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  in  [1],  Page  2-15. 

^ See  [1],  Section  2.1.2.3,  for  a discussion  on  process  variation  in  materials. 

® m,  of  the  posterior  density  of  m is  discussed  in  [1],  Page  2-14. 

® The  posterior  credibility  ranges  Ji(m)  are  discussed  in  [1],  Page  2-13. 

^ of  the  posterior  density  of  m is  discussed  in  [1],  Page  2-14. 

® Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  in  [1],  Page  2-17. 
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7.2.4  Program  BLDLCF  Listing 

Routine Page 


Program  BLDLCF  Listing  Temporal  Order,  Uniform  Distribution 7-98 

Program  BLDLCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 7-100 

BLDLCF 7-102 

BLDUF 7-111 

INSORT 7-114 

PRYRV  7-115 

BETAGN 7-115 

GAM 7-116 

INFAGG  7-116 

TRMNAT 7-122 

INIT  7-122 

RCE 7-123 

CONVRT 7-130 

SW2SU2  7-131 

INTRVL 7-134 

FINDMC 7-137 

GTPVAR 7-139 

FNDRNG 7-140 

ADDREG 7-144 

CONCAV 7-145 

MEDIAN 7-146 

EXPCTD 7-147 

MUSIG  7-149 

NORRNG  7-151 

ADDRGN 7-153 

RAREST  7-155 

FINDM 7-157 

RANDOM 7-158 

FINDMN 7-159 

NORMGN  7-161 

TRNSFM  7-162 

SMNVAR  7-163 

KBETA 7-164 

FINDK  7-165 

FINDSB 7-166 

WEIBGN  7-167 

KOMO 7-168 

GTLIFE 7-169 

SORTM  7-170 

RAINF3  7-171 

BLDLCF  Version  3.4 
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Program  BLDLCF  Listing  Temporal  Order,  Uniform  Distribution 


Routine 


Page 


BLDLCF 

INFAGG 

INIT 

RCE 

CONVRT 

SW2SU2 

FINDMC 

INTRVL  .. 

GTPVAR 

FNDRNG 

ADDREG 

CONCAV 

MEDIAN 

EXPCTD 

TRNSFM 

SMNVAR 

KBETA  ... 

FINDK 

FINDSB  .. 
KOMO  .... 
RANDOM 
PRYRV .... 
RANDOM 
PARES!... 
FINDM  .... 
RANDOM 
TRNSFM  . 
SMNVAR 
KBETA  .... 

FINDK 

FINDSB  .. 
NORMGN 
RANDOM 
BETAGN  .. 

GAM  

RANDOM 
NORMGN 
RANDOM . 

PRYRV  

RANDOM 
WEIBGN  .. 
RANDOM 

KOMO  

BLDLIF  .... 
RAINF3  .... 


...7-102 

...7-116 

...7-122 

...7-123 

...7-130 

...7-131 

...7-137 

..7-134 

..7-139 

..7-140 

..7-144 

..7-145 

..7-146 

..7-147 

..7-162 

..7-163 

..7-164 

..7-165 

..7-166 

.7-168 

.7-158 

,.7-115 

.7-158 

.7-155 

.7-157 

.7-158 

.7-162 

.7-163 

.7-164 

.7-165 

.7-166 

.7-161 

.7-158 

.7-115 

.7-116 

.7-158 

.7-161 

.7-158 

.7-115 

.7-158 

7-167 

7-158 

7-168 

7-111 

7-171 
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Routine 


GTLIFE 

INSORT 


Page 

7-169 

7-114 
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Program  BLDLCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 


Routine Page 


BLDLCF 7-102 

INFAGG 7-116 

INIT 7-122 

RGB 7-123 

CONVRT 7-130 

SW2SU2 7-131 

FINDMC  7-137 

MUSIG 7-149 

GTPVAR  7-139 

NORRNG 7-151 

ADDRGN 7-148 

CONCAV 7-145 

RANDOM  7-158 

PRYRV 7-115 

RANDOM  7-158 

PARES! 7-105 

FINDMN  7-159 

NORMGN 7-161 

RANDOM  7-158 

TRNSFM 7-162 

SMNVAR  7-163 

KBETA 7-164 

FINDK 7-165 

FINDSB  7-166 

NORMGN 7-161 

RANDOM  7-158 

BETAGN 7-115 

GAM  7-116 

RANDOM  7-158 

NORMGN 7-161 

RANDOM  7-158 

PRYRV 7-115 

RANDOM  7-158 

WEIBGN 7-167 

RANDOM  7-158 

KOMO  7-168 

BLDLIF  7-111 

RAINF3 7-171 

GTUFE  7-169 

INSORT 7-114 

SORTM 7-170 

EXPCTD  7-147 

TRNSFM 7-162 

SMNVAR  7-163 

KBETA 7-164 
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Routine 


FINDK  . 
FINDSB 
KOMO  . 


Page 

7-165 

7-166 

7-168 


7-101 


C PROGRAM  BLDLCF  CONTROLS  THE  FLOW  OF  LOGIC  OF  THE  LOW  CYCLE 
C FATIGUE  ANALYSIS  OF  THE  TURBINE  BLADE  FOIL  PROBLEM 
C PROGRAMMER:  L,  NEWLIN 

C DATE:  CODE:  7JAN92  COMMENTS:  3APR92 

C VERSION;  3,4  (MATCHR  V8*5,  RAINF3  VI. 1,  INSORT  V2.1) 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 

C**  ********  ****»1^********iAr*********1t*************i)r**1^ir  ****************** 


PROGRAM  BLDLCF 


C 

C 

C 

C 

c 


SUBPROGRAMS : 
FILES: 


INFAGG,  PAREST,  PRYRV,  BETAGN,  NORMGN,  WEIBGN, 

TRMNAT,  BLDLIF.  INSORT,  SORTM,  EXPTCD 

l:BLDLCD-OLD;  3 :BLDLCO-NEW:  5 : RELATD-OLD ; 6 :R£LATO-NEW; 
7: DUMP-NEW;  8 :IOUTPR-NEW;  9 :LOWLIF-NEW; 

NOTE:  5 & 6 ARE  OPENED  IN  'INFAGG' 


C IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXDAT,  MAXLIF,  MAXM,  MAXMM,  MAXREG 

PARAMETER  (MAXBLF  = 10,  MAXDAT  = 50,  MAXLIF  = 10000, 

& MAXM  = 50,  MAXMM  = 20001,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  BLFPOS ( MAXBLF ) , I,  lOUT,  J,  K,  L,  M,  MCOUNT,  MID, 
& MPROC,  NBLIFE,  NHYPER,  NLIFE,  NLIFET,  NMED, 

& NPTS (MAXREG) , NSYM,  NTIME,  NUMREG,  TSUBI , VARPHI, 

& VARY,  ZROREG 

DOUBLE  PRECISION  RAND 


REAL  ALLM(MAXMM,  MAXREG),  BIGK(  0 : MAXREG) , BIGKl,  BLDLIF, 

& BLFPER ( MAXBLF ) , BZERO,  DUM,  EBEND,  EBENDA,  EBENDB, 

& EMNOM,  ETHNOM(MAXM),  FAA,  FAB,  FAC,  FACTR,  FAD,  FAE, 

& FAF,  FAERRM,  FAERRS,  FDlA,  FDlB,  FDIC,  FDlD,  FDlE,  FDlF, 

& FD2A,  FD2B,  FD3A,  FD3B,  FDERRM,  FDERRS,  FIFTY,  FTU,  FTY, 

& HGAS,  HGASA,  HGASB,  HGASR,  HGASRl,  HGASR2,  HG^, 

& HGASTl,  HGAST2,  KRATIO,  LAMA,  LAMAA,  LAMAB,  LAMDA, 

& LAMDAA,  LAMDAB,  LAMG,  LAMGA,  LAMGB,  LAMGR,  LAM<^1, 

& LAMGR2,  LAMGT,  LAMGTI,  LAMGT2,  LAMP,  LAMPA,  LAMPB, 

& LAMTM,  LAMTMA,  LAMTMB,  LIFE ( MAXLIF ) , LNA( 0 sHAXREG) , 

& LNPHI,  LNZ,  LPHIM( 0: MAXREG ) , MANAL,  MANALA,  MANALB, 

& MEDM(MAXREG),  MINPHI,  MM ( 0 : MAXREG ) , MODERl,  MODER2, 

& MU(MAXREG),  NBND ( 0 rMAXREG) , NEWLIF,  NF(MAXDAT,  MAXREG), 

& NOMSPD,  PERIOD,  PHI,  PHISIG,  PSIG,  PVAR, 

& RANGEM(2,  MAXREG),  RPM(MAXM) , SBND ( 0 :MAXREG) , 

& SIG( MAXREG),  SLOPE,  SLOPEA,  SLOPEB,  SLOPR,  SLOPRl, 

& SLOPR2,  SLOPT,  SLOPTl,  SLOPT2,  SPEED,  SPEEDM,  SPEEDS, 

& STR(MAXDAT,  MAXREG),  SZERO,  TANAL,  TANALA,  TANALB,  TGAS, 

& TGASA.  TGASB,  TGASR,  TGASRl,  TGASR2,  TGAST,  TGASTl, 

& TGAST2,  TRBIGK(0;MAXREG) , TRSBND ( 0 : MAXREG ) , TRUNC, 

& TSTART,  TSTMU,  TSTSIG,  WEXP,  Z 

C **  SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN 

(1, 

FILE 

= 

'BLDLCD' , 

STATUS 

= 

'OLD' ) 

OPEN 

(3, 

FILE 

= 

'BLDLCO'  , 

STATUS 

=r 

'NEW'  ) 

OPEN 

(7, 

FILE 

= 

' DUMP ' , 

STATUS 

= 

'NEW'  ) 

OPEN 

(8, 

FILE 

= 

' lOUTPR' , 

STATUS 

'NEW' ) 

OPEN 

<9, 

FILE 

= 

'LOWLIF'  , 

STATUS 

= 

'NEW' ) 

READ(1.*)  RAND 
WRITERS, ★)  ' 

READ(1.*)  lOUT 
WRITE/ 8,*)  'lOUT  (MATCHR 
READ(1  *)  NLIFE 
WRITE(8,*)  ' 

READ(1  *)  NHYPER 
WRITE(6,*)  ' 


10, 


RANDOM  NUMBER  SEED  - 
BLDLCF  = 15,  RAINF3  = 20)= 
INNER  LOOP  SIZE  = 
OUTER  LOOP  SIZE  = 


, RAND 
, lOUT 
, NLIFE 
, NHYPER 
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R£AD( 

WRITE 
READ( 

WRITE 
WRITE 
READ( 

WRITE 
READ( 

WRITE 
WRITE 
R£AD( 

WRITE 
WRITE 

(VARY  .GT.  3))  THEN 

Invalid  type  6f  s/n  variation  desired' 

ENDIF 

IF  ((NMED  .NE.  0)  .AND.  (NMED  .NE.  1))  THEN 

WRITE ( 8 , * ) ' ERROR : INVALID  RESPONSE  TO  NORMAL  MEDIAN  ' . 

4 'CURVE  QUESTION'  , 

CALL  TRMNAT 
ENDIF 


SYMMETRY  NUMBER  =' , NSYM 


1.*)  NSYM 

iS,*)  ' 

1.*)  VARY 

!o'*J  ! . TYPE  OF  S/N  VARIATION  DESIRED  ' 

1-INTRINSIC;  2-UNIFORM;  3-NORMAL)  =',VARY 

i » ^ ) NMEU 

i®4*^MPR0C  MEDIAN  CURVE  (0  - NO,  1 - YES)  =' ,NMED 

' MATERIALS  PROCESS  VARIATION  DESIRED' 

l^^VARPHI  - NO,  1 - YES)  =' , MPROC 

(®»*)  ' type  of  INTRINSIC  VARIATION  DESIRED  ' 

('*'  ) (1  - WEIBULL;  2 - LOGNORMAL)  =' ,VARPHI 


IF  ((MPROC  .LT.  0)  .OR.  (MPROC  .GT.  1))  THEN 

WRITE (8,*)  'ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS  ' 

*■  'VARIATION  DESIRED'  , 

CALL  TRMNAT 
ENDIF 


IF  ( (VARPHI  .LT.  1)  .OR.  (VARPHI  .GT.  2))  THEN 

WRITE (8,*)  'ERROR:  INVALID  TYPE  OF  INTRINSIC  MATERIALS 

* 'VARIATION  DESIRED' 

CALL  TRMNAT 
ENDIF 


READ(1,*)  NBLIFE 

IF  (NBLIFE  .GT.  0)  READ(1,*)  (BLFPER(J),  J = 1,  NBLIFE) 
C **  READ  DATA  FROM  BLDLCD 


READ(1,*)  HGASA,  HGASB,  HGASRl, 

& TGASA,  TGASB,  TGASRl, 

& SLOPEA,  SLOPEB,  SLOPRl, 

4 LAMGA,  LAMGB,  LAMGRl, 

& TSUBI,  SPEEDM,  SPEEDS, 

4 FAERRM,  FAERRS,  TSTMU, 

& FDERRM,  FDERRS, 

i EBENDA,  EBENDB,  LAMPA, 

MANALA,  MANALB,  LAMAA, 

& TANAIA,  TANALB,  LAMDAA, 

& LAMTMA,  LAMTMB 

Read(1,*)  emnom,  nomspd,  period. 

READ(1,*)  FAA,  fab,  FAC,  FAD,  FAE, 

& FDIA,  FDlB,  FDIC,  FDID, 

& FD2A,  FD2B, 

& FD3A,  FD3B 


HGASR2,  HGASTl,  HGAST2 
TGASR2,  TGASTl,  TGAST2 
SLOPR2,  SLOPTl,  SLOPT2 
LAMGR2,  LAMGTl,  LAMGT2 

TSTSIG, 

LAMPB, 

LAMAB, 

LAMDAB, 

TRUNC,  NTIME,  WEXP 
FAF 

FDIeI  FDIF, 


» 


IF  (NTIME  .GT.  MAXM)  THEN 

WMTE(8,*)  'ERROR:  S-TRAIN-TIME  HISTORY  TOO  LARGE' 

CALL  TRMNAT 
ENDIF 


DO  20  I = 1,  (NTIME 
REAI^l,*)  RPM(I) 
20  CONTINlrf: 


1) 

ETHNOM(I) 


C **  ECHO  DATA  TO  BLDLCO 


WRITE(3,900) 
WRITE(3,901)  HGASA, 

& TGASA 

WRITE(3,902)  SLOPEA, 
& LAMGA, 


HGASB, 

TGASB, 

SLOPEB, 

LAMGB, 


HGASRl, 

TGASRl, 

SLOPRl, 

LAMGRl, 


HGASR2,  HGASTl,  HGAST2, 
TGASR2,  TGASTl,  'TGAST2 
SLOPR2,  SLOPTl,  SLOPT2, 
LAMGR2,  LAMGTl,  LAMGT2 
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WRITE(3,903) 

& 

WRITE(3,904) 

& 

WRITE(3,905) 

WRITE<3,906) 

WRITE<3,907) 

& 

& 

& 


TSUBI,  SPEEDM,  SPEEDS,  FAERRM,  FAERRS, 

TSTMU,  TSTSIG,  FDERRM,  FDERRS 

EBENDA,  EBENDB,  IJ^A,  LAMPS,  HAMALA,  HANALB, 

LAMAA,  LAMAB,  TAMALA,  TANALB 

EXP(LAMDAA),  EXP(LAMDAB),  EXP(LAMTMA),  EXP(LAMTMB) 
EMNOM,  NOMSPD,  PERIOD,  TRUNC,  NTIME,  WEXP 
FAA,  FAB,  FAC,  FAD,  FAE,  FAF, 

FDIA,  FDlB,  FDlC,  FDID,  FDlE,  FDlF, 

FD2A,  FD2B, 

FD3A,  FD3B 


DO  25  I = 1,  (NTIME  - 1) 

WRITE(3,908)  RPM(I),  ETHNOM(I) 
25  CCWTINUE 


C **  CALL  INFAGG  TO  PERFORM  THE  INFORMATKXl  AGGREGATICM  M(M>EL  ASPECT 
C OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  INFAGG  (RANGEM,  MU,  SIG,  NF,  NPTS,  SZERO,  ZROREG,  NUMREG, 
& NBND,  STR,  FTU,  FTY,  VARY,  MPROC,  KRATIO,  PVAR) 

IF  (MPROC  .EQ.  1)  PSIG  = SQRT  (PVAR) 

MCOUNT  = 0 

C **  INITIALIZE  VARIABLES 

DO  35  K = 1,  MAXLIF 
LIFE(K)  = l.OE+36 
35  CONTINUE 


NLIFET  = NHYPER  * NLIFE 

C **  OUTER  LOOP  - THIS  LOOP  SAMPLES  HYPER-PARAMETER  SETS 
DO  150  K = 1,  NHYPER 

C **  CALL  PRYRV  TO  OBTAIN  RHO, THETA  PAIRS  FOR  INNER  LOOP  CALCULATIONS 

CALL  PRYRV  (RAND,  HGASRl,  HGASR2,  HGASTl,  HGAST2,  HGASR,  HGAST) 

CALL  PRYRV  (RAND,  TGASRl,  TGASR2,  TGASTl,  TGAST2,  TGASR,  TGAST) 

CALL  PRYRV  (RAND,  SLOPRl,  SLOPR2,  SLOPTl,  SLOPT2,  SLOPR,  SLOFT) 

CALL  PRYRV  (RAND,  LAHGRl,  LAMGR2,  LANGTl,  LAMST2,  LAN6R,  LAHGT) 

CALL  PRYRV  (RAND,  MANALA,  MANALB,  TANALA,  TANALB,  HANAL,  TANAL) 

C **  CALL  PAREST  TO  PERFORM  THE  PARAMETER  ESTIMATION  AS^CT  OF  THE 
C MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG, 

& RAND,  NBND,  STR,  BIGK,  BZERO,  MM,  SBND) 

PHISIG  = 1.282550  / BZERO 

C **  OBTAIN  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ) 

IF  (MPROC  .EQ.  1)  THEN 
Z = EXP  (LNZ) 

ELSE 

KRATIO  = 1.0 
Z = 1.0 
LNZ  = 0.0 
ENDIF 

MCOUNT  = MCOUNT  + 1 
DO  175  L = 1,  NUMREG 

ALLM(MCOUNT,  L)  = MM(L) 

175  CONTINUE 


C **  INNER  LOOP  - THIS  LOOP  GENERATES  BLADE  FAILURE  TIMES 
DO  200  I = 1,  NLIFE 
C **  INITILIZE  S/N  CURVE  PARAMETERS 
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DO  225  L = 0,  MAXREG 
LNA(L)  = 6.0 
LPHIM(L)  =0.0 
TRSBND(L)  =0.0 
225  CONTINUE 

C **  SELECT  DRIVERS  FOR  CALCULATING  LIFE 


CALL  BETAGN  (RAND, 
CALL  BETAGN  (RAND, 
CALL  BETAGN  (RAND, 
CALL  BETAGN  (RAND, 


HGASR,  HGAST,  HGASA,  HGASB,  HGAS) 
TGASR,  TGAST,  TGASA,  TGASB,  TGAS) 
SLOPR,  SLOPT,  SLOPEA,  SLOPEB,  SLOPE) 
LAMGR,  LAMGT,  LAMGA,  LAMGB,  LAMG) 

SPEEDM,  SPEEDS,  SPEED) 

FAERRM,  FAERRS,  MODERl) 

TSTMU,  TSTSIG,  TSTART) 

FDERRM,  FDERRS,  MODER2) 


CALL  NORMGN  (RAND,  SPEEDM,  SPEEDS,  SPEED) 

CALL  NORMGN  (RAND,  FAERRM,  FAERRS,  MODERl) 

CALL  NORMGN  (RAND,  TSTMU,  TSTSIG,  TSTART) 

CALL  NORMGN  (RAND,  FDERRM,  FDERRS,  MODER2) 

CALL  PRYRV  (RAND,  EBENDA,EBENDB,LAMPA,  LAHPB,  EBEND,  LAMP) 
CALL  PRYRV  (RAND,  LAMAA,  LAMAB,  LAMAA,  LAMAB,  LAMA,  DUM) 
CALL  PRYRV  (RAND,  LAMDAA,LAMDAB,LAMTMA,LAMTMB,LAMDA,  LwilM) 
LAMDA  = EXP  (LAMDA)  , , «/ 

LAMTM  = EXP  (lAMTM) 

MINPHI  = l.OE+36 
IF  (VARPHI  .EQ.  1)  THEN 

WEIBULL  INTRINSIC  MATERIALS  VARIATION 
DO  230  M = 1,  NSYM 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 

MINPHI  = MIN  (PHI,  MINPHI) 

CONTINUE 
PHI  = MINPHI 
ELSE 

LOGNORMAL  INTRINSIC  MATERIALS  VARIATICR? 

DO  231  M = 1,  NSYM 

CALL  NORMGN  (RAND,  0.0,  PHISIG,  LNPHI) 

MINPHI  = MIN  (LNPHI,  MINPHI) 

CONTINUE 

PHI  = EXP  (MINPHI) 

ENDIF 

IF  (VARY  .EQ.  0)  PHI  =1.0 
IF  (lOUT  .EQ.  15)  THEN 


3GAS,  ' TGAS  =' 
SLOPE,  ' LAMG 


TGAS 
',  LAMS 


flOUT  .EQ.  15)  THEN 

WRITE(8,*)  'HGAS  =',  HGAS,  ' TGAS  =',  TGAS 
WRITE(8,*  'SLOPE  =',  SLOPE,  ' LAMG  = ',  LAMG 

!'*(  =',LAMP,  ' EBEND  =',  EBEND,  ' LAMA  =' ,LAMA 

WRITE(8,*)  'SPEED  = ',  SPEED,'  LAMDA  =' ,L&MnA 
WRITE(8,*  'LAMTM  =', LAMTM, ' PHI  =' ,PHI 
WRITE(8,*)  'MANAL  =',MANAL,'  TANAL  =',TANAL 
WRITE ( 8 , * ) ' TSTART  = ' , TSTART, ' MODERl  = ' , MODERl , 

' MODER2  =',MODER2 


ENDIF 

C **  CALCULATE  REGION  DEPENDENT  S/N  CURVE  PARAMETERS 

FACTR  = PHI  * KRATIO  * Z 

DO  235  L = ZROREG,  NUMREG 
TRSBND(L)  = FACTR  * SBND(L) 

,,  TRBIGK(L)  = BIGK(L) 

235  CONTINUE 

TRSBND(O)  = SBND(O) 

IF  (ZROREG  .EQ.  0)  CALL  KOMO  (SZERO,  BIGK,  MM,  NBND, 

4 'TRSBND,  TRBIGK,  FACTR,  NUl^G) 

DO  250  L = ZROREG,  NUMREG 

LNA(L)  = MM(L)  * ALOG(TRBIGK(L) ) 

LPHIM(L)  = MM(L)  * ALOG(PHI) 

IF  (lOUT  .EQ.  15)  THEN 

MM=',MM(L),'  BIGK  =',TRBIGK(L) 
WRITE(8,*)  'LNA  =' , LNA(L) , ' PHI  =' , PHI  ' ' 

WRITE(8,*)  'LPHIM  =' , LPHIM(L) , ' SBlb  =',  SBND(L) 


7-105 


250 


WRITE (8,*)  'KRATIO  = KRATIO,  ' Z = ' Z 
WRITE(8,*)  'TRSBND  =',  TRSBND(L),  ' FACTR  = 
ENDIF 
CONTINUE 


FACTR 


C **  CJOZ.  BLDLIF  TO  OBTAIN  BLADE  LCF  LIFE 


200 


NEWLIF  = LAMDA  * LAMTM  * BLDLIF  (TGAS,  HGAS,  FAA,  FAB,  FAC, 
FAD,  FAE,  FAF,  HCOERl,  RPM,  TSUBI,  SPEED,  SLOPE, 
TSTART,  FDlA,  FDIB,  FDlC,  FDlD,  FDIE,  FDlF, 

MODER2,  FD2A,  FD2B,  FD3A,  FD3B,  ETHNOM,  MANAL, 
LAMP,  NOMSPD,  EHNOM,  TANAL,  LAMA,  LAMG,  EBEND, 
NTIME,  TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM, 

KRATIO,  LNZ,  TRSBND,  ZROREG,  NUHREG,  SZERO) 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'NEWLIF  = ',  NEWLIF 

IF  (NLIFET  .GE.  100)  CALL  INSORT  (NEWLIF,  LIFE,  NLIFET) 

CONTINUE 


150  CONTINUE 


IF  (NLIFET  .GE.  100)  THEN 

C **  PRINT  SORTED  LIVES  TO  FILE  LOWLIF 

DO  300  J = 1,  (NLIFET  / 100) 

WRITE(9,*)  J,  FLOAT (J) /FLOAT (NLIFET),  LIFE(J) 
300  CONTINUE  ' ' 

C **  INITIALIZE  VARIABLE  BLFPOS ( ) 

DO  325  J = 1,  MAXBLF 
BLFPOS (J)  = 0 
325  CONTINUE 

FIFTY  = 0.50E0 

C **  PRINT  EMPIRICAL  BLIVES 

IF  (VARPHI  .EQ.  1)  THEN 
V^TE(3,925) 

ELSE 

WRITE(3,927) 

ENDIF 


350 


DO  350  J = 1,  NBLIFE 

BLFPOS(J)  = NINT  (BLFPER(J)  * FLOAT  (NLIFET)) 
WRITE(3,§26)  BLFPER(J),  LIFE ( BLFPOS (J) ) 
CONTINUE  ' " 

WRITE (3, 926)  FIFTY,  LIFE(NLIFET/2) 


ENDIF 


C **  CALCULATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 


IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 


400 


CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  = MCOUNT  / 2 
DO  400  L = 1,  NUMREG 

MEDM(L)  = ALLM(MID,L) 

CONTINUE 


CALL  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKl,  BZERO) 


ENDIF 


C **  FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  BLDLCO 
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900  FORMAT(2X, 'Copyright  (C)  1990,  

- ^U.s.  Governinent'7/72x7*'*Sponsorship  under 

;^A  contract  NAS7^918  is  ackno^le(Sgec  * ^°er 

33X, 'INPUT  DATA'-  ^ 


& 

& 

& 

& 


California  Institute  of 
Sponsorship 
Bd. ',///// 


/AS8x^MS^yl6?; 


902  FORMAT (/,2X, 'DECEI,  SLOPE 6X, ' Be (' ,F5 . 0, F6 . 0, ' 5x 

& it  OV  TTKIOfnm  t Cw  # ^ f 


//;2X, 'Tgis'UNCEA?:  ^'5x;'^P  ,f-5:2:^  ^^•6:2"^  ) J Sx 


903  FORMAT(//,50X, 'N<  MEAN,  STD.  DEV.)' 

‘ 10X?^N(^  T',I1, 


& 

& 

& 

& 


2X,'Faccel  MODELING  ERROR' , 27X, 'N( ' ,F4 . 1. ' ' ,E11 . 4 'i' 
2X,'Fdecei  MODELING  ERROR' , 27X, 'N( ' ,F4 . 1, ' , ' ,E11 . 4, ' ) ' ) 


904  FORMAT (//,2X, 'STRAIN  DUE  TO  GAS  BENDING  (%i'  17X 

f 'U( ' F8.5, ' , ',F9.5, ' ) ' 

& //,2X, 'LAMBDA  BLADE  PULL',29X, 

& 'U(',F8.5,',',F9.5,')', 

f V tV. ANALYSIS  FACTOR', 20X, 

& U('  F8e5,',',F9.5,')'-  ' ' 

& 'Ur^F8^5^^^^^Ff^5  EXPANSION  FACTOR ',7X, 

905  FORMAT (//,2X, 'DAMAGE  MODEL  ACCURACY 2 IX , 

r ;U(ln',F8,5, ln',F8.5,' )', 

& //,2X, 'TMF  MODEL  ACCURACY ^4X, 

& 'U(ln',F8.5, ' , ln',F8,5,')') 

906  FORMAT(////  20X, 'OTHER  S'TRAIN  HISTORY  INPUT', 

I //^^v  STRAIN  1%) ',23X,F6.4, 


& 

& 

& 

& 

& 


'// Lt^i  MECHANICAL  STRAIN  ( % ) ' , 23X,  F6 . 4 

/ ROTOR  SPEED  (rpm)  ' , 23X,F6 . 0,  ' 

STRAIN— TIME  HISTORY  pE&OD  (missions 14X  F5  2 
/ HISTORY  NOISE  FILTER  (%)',i6X  F7  5 ^ 
//,2X, 'NUMBER  OF  POINTS  IN  HISTORIES' , 19X, 15  ' * ' 

//,2X, 'WALKER  EXPONENT' ,36X,F5. 2) 


907  FORMAT(////  6X, OF  ACCELERATION  AND  DECELERATION  ' 

& FUNCTIONS  ,//,2X, 'THERMAL  STRAIN  AT  STARTUP  (%) ; ' / 5X  ^ 

'FaCCel^TOAft  Un^a\  = # r ^ 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

£t 


= ',E13.6,'  + ',E13.6,'  *'Tgas+’ 
/' ' f ' * Hgas  + ',E13.6-'  ★ Tgas  2 + 

STRAIN  AT  SHUTDOWN  (%):'/,  5X,  ^ ' 

//"^#E13.6,'  ♦ m + ,E13.6,'  * Tstart  **  2 + ' 

' * ">  **  ^ + ',E13.6,'  * Tstart  * m', 
//,2X, 'TIME  AT  SHUTDOWN  (sec):',  ' 

EiO,'^  = ',E15.6,'  + ', '(Tstart  - ', 

//,2X' 'ROTOR  SPEED  AT  SHUTDOWN 
^ ^ * Fdecel3  ( t ) ',E13.6,'  + ',c.xj.o, 

HISTORY  INFORMATION', 

SPEED ',5X, 'THERMAL  S'TRAIN' 

/,9X, 'rpm' ,15X,  '(%)',/) 


. f. 


908  FORMAT (7X,F7.1,9X,F9. 6) 


925  FORMAT(///,2X, ' WEIBULL  VARIATION', 

& //,2X, 'B  LIVES;  EMPIRICAL',/) 

926  FORMAT(2X,F7.5,5X,E13.6) 

92 7 FORMAT ( /// , 2X, ' LOGNORMAL  VARIATION ' , 
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& //,2X, 'B  LIVES:  EMPIRICAL',/) 


STOP 

END 


C* *♦****♦★♦★♦♦★★★*★★♦♦★★★♦♦♦*★♦★★♦**★★♦*******♦***♦♦♦♦* ***★**★★★**★★*★★* 

C SAMPLE  'BLDLCD'  INPUT  FILE 

C**’****^’* 

C 675 RANDOM  NUMBER  SEED 

C 0 OUTPUT  DUMP  CCWTROLLER 

C 100 INNER  LOOP  SIZE 

C 200 OUTER  LOOP  SIZE 

C 50 SYMMETRY  NUMBER 

C 2 UNIFORM  S/N  VARIATI<»I 

C 0 NORMAL  MEDIAN  NOT  REQUIRED 

C 0 MAT.  PROC.  VAR.  NOT  REQUIRED 

C 1 WEIBULL  INTRINSIC  VARIATION 

C 3 NUMBER  OF  BLIVES  REQUESTED 

C 0.0001 B.Ol  LIFE 

C 0.001 B.l  LIFE 

0.01 Bl  LIFE 


676.  2730. 
800.  2000. 
2730.  2730. 
0.80  1.20 
5 37592. 

0.0 

1640.0 
975.3 
0.0 
0.0 
0.96 
0.80 
0.975 
0.70 

-0.693147 

0.00 


0.0... .Hgas 
0.0... .Tgas 
0.0....  D£CEL  SXjOPE 


(A,B)  (R1,R2) 
<A,B)  (R1,R2) 
(A,B^  (R1,R2) 


(Tl,T2) 

(Tl,T2) 

(T1,T2) 


0.5  0.5  0.0 

0.5  0.5  0.0 

0.5  0.5  0.0 

0.5  0.5  0.0  0.0 Tgas  UNCERTAINTY  FACTOR 

507 ROTOR  SPEED  VARIATICW  PARAMETERS: 

i,  MEAN,  STD. DEV.  (NORMAL  DIST. ) 

020 Faccel  MODELING  ERROR  MEAN  & STD. DEV. 

40.67 DECEL  Tstart  MEAN  & STANDARD  DEVIATION 

28.6 STANDARD  RESP<RISE  PROBE  MEAN  & STD  DEV 

0.003 Fdecel  MODELING  ERRC»t  MEAN  & STD  DEV 

0.0 STRAIN  DUE  TO  GAS  BENDING  (%) 

1.04 LAMBDA  BLADE  PULL 

1.20 MECHANICAL  ANALYSIS  ACCURACY  FACTOR 

1.025 COEFFICIENT  OF  THERMAL  EXPANSION 

1.30 THERMAL  ANALYSIS  ACCURACY  FACTOR 

0.563283 DAMAGE  ACCUMULATION  MODEL  ACCURACY 

0.00 TMF  MODEL  ACCURACY 


0.295  38482 NOMINAL  MECH.  STRAIN  & ROTOR  SPEED  (%,RPM) 

1.0 STRAIN-TIME  HISTORY  PERIOD  (MISSIONS) 

0.000 STRAIN-TIME  HISTORY  NOISE  FILTER  (%) 

6 NUMBER  OF  POINTS  IN  STRAIN-TIME  HISTORY 

0.5 WALKER  EXPONENT 

COEFFICIENTS  FOR  STARTUP  RESPONSE  SURFACE  FOR  THERMAL  STRAIN: 

Faccel (Tgas, Hgas)  =A+B*T+C*H+D*  T**2  + E * H**2  + F * T * H 
A B C D E F 

0.00727362  0.000067442  -0.000059109  -3.52929E-08  1.07611E-08  -2.74419E-08 

COEFFICIENTS  FOR  SHUTDOWN  RESPONSE  SURFACE  FOR  THERMAL  STRAIN: 

Fdecell(m, Tstart)  = A + B * Tstart  + C * m + D * Tstart  **  2 

+ E*m**2  + F*  Tstart  * in 

A B C D E F 

-0.132623  0.000227427  -0.000059290  0.00  0.00  4.71714E-08 

COEFFICIENTS  FOR  SHUTIX>WN  RESPONSE  SURFACE  FOR  TIME: 

Fdecel2(m, Tstart)  = A + (Tstart  - B)  / m 
A B 

0.20  950.0 

COEFFICIENTS  FOR  SHUTDOWN  RESPONSE  SURFACE  FOR  RPM: 

Fdecel3(t)  = A + B * t 


A 

30523.07 

RPM (TIME) 
225.8 
3025.1 
6138.8 
8309.0 
0.0 


B 

-21846.15 

THERMAL  STRAIN 

0.0 

-0.196921 

0.146025 

-0.200128 

0.007393 


(%) 


•STRAIN  HISTORY  INFORMATION 
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c 1.54  DESCRIPTION 

c 8 -1,0  1.. ;;; strengths,  NDIV,  NPTS 

C 0.89  6800 STRAIN  RATIO,  REGICW 

c 0.89  isonn ?<i)  ^(1)  raw 

C 0.67  27000 STRAIN-LIFE 

c 0.67  432oo:::;: t 

C 0.56  545200  f I S f _POINTS 

C 0.56  147000..  ? T FOR  THE 

C 0.39  4344800 5'Z>  SPECIFIC 

c 0.00 material 

Cl  0 VALUE  OF  So  SUPPLIED  (%) 

_ r MTTMxir^  /\K  /i.  _ 


5)  N/5) 

6)  n{6{ 

7)  N(75 


DATA 
POINTS 
FOR  THE 
SPECIFIC 

material 


C 1 . OE+36  ! ! ” I!  I ??GICWS ; W/DATA  W/O  DATA 

C 0.00 REGKW  1 

CO  0.00  ‘o.’oo.*!! OF  VARIATION 

c 0.0  0.0  0.0..  I-OWER  bound,  upper  bound 

C NORMAL  DIST.  PRIORS:  DELTA,  MO,  SIGMA2 


c* *«*★** ****** 
c 

C AXiXiM  ( ) 2 

C BIGKn  1 

c 

c BIGKl  E< 


list  of  variables 


? R CONTAINING  M VALUES  TO  BE  SORTED  FOR  EAr*H 

^^E^CTD  PARAMETER  FOR  CALLS  TO  SUBROUTINE 

^^FE^Sc^TIOT°“^^“°  driver  transformation  AND  LCF 

i~R  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PRrw/Tnim 

for  bending  strain  (%» 

EBEND  LOWER  BOUND 
EBEND  UPPER  BOUND 
NOMINAL  MECHANICAL  STRAIN  (%) 

FAC?  nominal  THERMAL  STRAIN-TIME  HISTORY 

THERMAL  STRAIN  RESPONSE  SURFACE  MEAN 
^,ST^TUP^ffi^l|TRMN^RESPONSE  SURFACE  STANDARD  DEV. 

^ COEFFICIENTS  FOR  FDl,  ONE  OF  THE  DECELERATIMI  FUNCTIONS 

^ COEFFICIENTS  FOR  FD2,  ONE  OF  THE  DECELERATICW  FUNCTIONS 

“='ticie»t,  B,a. 

HGAS  UPPER  BOUND 
SELECTED  RHO  FOR  HGAS 
HGAS  - RHO  LOWER  BOUND 
HGAS  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  HGAS 
HGAS  - THETA  LOWER  BOUND 
HGAS  - THETA  UPPER  BOUND 
CONTROLS  INNER  DO  LOOP 
CONTROLS  DUMP  TO  FILE  lOUTPR 

SmolI  5S'S60P°FOT*gEcH'^Sg'°"® 

'SSa  ’■“'»“  EXPANSION  ACCURACY  FACTOR, 

lama  LOWER  BOUND 
lama  upper  BOUND 

SELECTED  DAMAGE  ACCUMULATION  MODEL  ACCURACY  FACTOR,  LAMbda 
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c 

C LAMDAA 
C LAMDAB 
C LAMG 
C LAMGA 
C LAMGB 
C LAMGR 
C LAMGRl 
C LAMGR2 
C LAMGT 
C LAMGTl 
C LAMGT2 
C LAMP 
C 

C LAMPA 
C LAMPS 
C LAMTM 
C LAMTMA 
C LAMTMB 
C LIFE() 
C 

C LNA() 

C LNPHI 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LNZ 

LPHIM(  ) 
M 

MANAL 

MANALA 

MANALB 

MAXBLF 

MAXDAT 

MAXLIF 

MAXM 

MAXMM 

MAXREG 

MCOUNT 

MEDM(  ) 

MID 

MINPHI 

MM(  ) 

MODERl 

MODER2 

MPROC 

MU() 

NBLIFE 
NBND( ) 


NEWLIF 

NF() 

NHYPER 

NLIFE 

NLIFET 

NMED 


NOMSPD 
NPTS( ) 

NSYM 

NTIME 

NUMREG 

PERIOD 

PHI 

PHISIG 

PSIG 
PVAR 
RAND 
RANGEM( ) 


Damage  Accumulation 
LAMDA  LOWER  BOUND 
LAMDA  UPPER  BOUND 
SELECTED  UNCERTAINTY  IN  Tgas 
LAMG  LOWER  BOUND 
LAMG  UPPER  BOUND 
SELECTED  RHO  FOR  LAMG 
LAMG  - RHO  LOWER  BOUND 
LAMG  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  LAMG 
LAMG  - THETA  LOWER  BOUND 

LAMG  - THETA  UPPER  BOUND  ^ , 

SELECTED  DEVIATION  IN  BLADE  PULL  DUE  TO  BLADE  MASS,  LAMbda 
Pull 

LAMP  LOWER  BOUND 
LAMP  UPPER  BOUND 

SELECTED  TMF  MODEL  ACCURACY  FACTOR,  LAMbda  TMf 
LAMTM  LOWER  BOUND 
LAMTM  UPPER  BOUND 

1-D  ARRAY  CONTAINING  VALXJES  OF  THE  LIVES  GENERATED  BY  THE  PFM 
— SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 
1-D  ARRAY  CONTAINING  Ln(A)  = Ln(BIGK)*MM  FOR  EACH  REGION 
LOGNORMAL(0,PHISIG**2)  GENERATED  RANDOM  VARIATE 
NORMAL (0, PVAR)  GENERATED  RANDOM  VARIABLE 
1-D  AR^Y  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 
CONTROLS  SYMMETRY  DO  LOOP 

SELECTED  MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 
MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
MAXIMUM  NUMBER  OF  BLIVES  TO  BE  PROVIDED 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  <PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA, 

ALPHA  CALCULATION 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  TIME  HISTORY 
MAXIMUM  NUMBER  OF  M' 8 TO  BE  SORTED  FOR  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIC»1S  ALLOWED 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  THE  TRUNCATED  NORMAL 
MEDIAN  S/N  CURVE 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
POINTER  TO  THE  MEDIAN  M VALUES  - EQUAL  TO  HALF  OF  MCOUNT 
EQUAL  TO  MIN  (PHI)  - THE  MINIMUM  OF  NSYM  DRAWS  OF  PHI 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
MODEL  ERROR  FOR  STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE 
MODEL  ERROR  FOR  DECELERATION  THERMAL  STRAIN  RESPONSE  SURFACE 
Materials  PROCess  variation  — CONTROLS  MPiTERlAlS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTICAl  MEAN  FOR  EACH  REGION 
NUMBER  OF  BLIVES  TO  BE  PROVIDED 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  FOR  THE  NUMREG  LIFE 
REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL 
S/N  DATA  SET 

LIFE  VALUE  RETURNED  FROM  CALL  TO  BLDLIF 

2- D  ARRAY  CONTAINING  RAWNF()  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
CONTROLS  MEDIAN  CALCULATION  FOR  THE  TRUNCATED  NORMAL 
DISTRIBUTION  CASE  — 0 - NO  MEDIAN  CALCULATION; 

1 - MEDIAia  CALCULATION  DESIRED 
NOMINAL  ROTOR  SPEED,  RPM 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REGION 
FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 

SYMMETRY  NUMBER 

NUMBER  OF  POINTS  IN  STRAIN-TIME  HISTORY 
NUMBER  OF  REGIONS  OF  INTEREST 
LENGTH  OF  TIME  IN  MISSIONS  OF  TIME  HISTORY 
WEIBULL(BETAo,  ETAo)  GENERATED  RANDOM  VARIATE 
EQUAL  TO  PI  ♦ (6  .5)  / BZERO  — VALUE  OF  LOGNORMAL 

PARAMETER,  SIGMA,  CHARACTERIZING  S/N  DATA  SET 
EQUAL  TO  SQRT(PVAR)  — MATERIALS  PROCESS  STANDARD  DEVIATION 
MATERIALS  PROCESS  VARIATION 
RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON  M FOR 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


RPM(  ) 
SEND ( ) 


SIG<) 

SLOPE 

SLOPEA 

SLOPED 

SLOPR 

SLOPRl 

SLOPR2 

SLOPT 

SLOPTl 

SLOPT2 

SPEED 

SPEEDM 

SPEEDS 

STR{  ) 

SZERO 

TANAL 

TANALA 

TANALB 

TGAS 

TGASA 

TGASB 

TGASR 

TGASRl 

TGASR2 

TGAST 

TGASTl 

TGAST2 

TRBIGK( ) 

TRSBND( ) 

TRUNC 

TSTART 

TSTMU 

TSTSIG 

TSUBI 

VARPHI 

VARY 


WEXP 

Z 

ZROREG 


lower  bound  and  RANGEM(2,L) 

1-D  ARRAY  CONTAINING  ROTOR  SPEED  HISTORY  (rnm) 

1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES  (%'  R = -1.0» 

"LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND(  ) 

CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

distribution  standard  DEVIATION  FOR  EACH  REGI<»J 

SELECTED  DECELERATION  SLOPE,  in  (d6Q  R / sec) 
m LOWER  BOUND  v y 

m UPPER  BOUND 
SELECTED  RHO  FOR  m 
m - RHO  LOWER  BOUND 
m - imo  UPPER  BOUND 
SELECTED  THETA  FOR  m 
m - THETA  LOWER  BOUND 
m - THETA  UPPER  BOUND 

SELECTED  STEADY  STATE  ROTOR  SPEED,  RPM 
MEAN  OF  ROTOR  SPEED  IMU,  NORMAL  DISTRIBUTION) 

ST^N^?lNi?^i 

SELECTED  THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 

ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
TIffiRMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
SELECTED  GAS  TEMPERATURE  Tqas 
GAS  TEMPERATURE  LOWER  BOUND 
GAS  TEMPERATURE  UPPER  BOUND 
SELECTED  RHO  FOR  GAS  TEMPERATURE 
GAS  TEMPERATURE  - RHO  LOWER  BOUND 
GAS  TEMPERATURE  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  GAS  TEMPERATURE 
GAS  TEMPERATURE  - THETA  LOWER  BOUND 
GAS  TEMPERATURE  - THETA  UPPER  BOUND 

^"pHI^^^^raATIO^^^^Z  BIGK()  CORRECTED  FOR  SZERO, 

CONTAINING  VALUES  OF  PHI  * KRATIO  * Z * SEND  FOR 
EACH  REGION  CALCULATED  FOR  EACH  TRIAL 

TO  filter  out  noise  in  the  time  history  I%) 

STARTING  deceleration  TEMPERATURE  (deq  R)  ' ' 

MEAN  OF  TSTART  ^ ' 

STANDARD  DEVIATION  OF  TSTART 

WHICH  VARIATION  IN  ROTOR  SPEED  OCCURS 
CONTROI^  ^PE  OF  INTRINSIC  MATERIALS  VARIATION  DESIRED  — 

■ ■ },~  WEIBULL  VARIATION;  2 - LOGNORMAL  VARIATION 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATICW- 

WALKER  EXPONENT 

LOGNORMAL ( 0 , PVAR)  GENERATED  RANDOM  VARIATE 

~ VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZE^  REGION 


C *★***★★★★★  *.  ^ ****  ^ * 


c 

c 

c 

c 

c 

c 

c 

c 

c 


THE^DRIVER  transformation  and  calls  RAINF3 


PROGRAMMER 
DATE 
VERSION 


L*  NEWLIN 
CODE;  7JAN92  COMMENTS:  3 APRS 2 

BLDLCF  3.4  (MATCHR  V8.5,  RAINF3  VI. 1) 


Copyright  (C)  1990,  California  Institute  of  Technology, 
y.s.  ^vem^nt  Sponsorship  under  NASA  Contract  NAS7-918 
I s ac  Knowiedgea . 

FUNCTION  BLDLIF  (TGAS,  HGAS,  FAA,  FAB,  FAC,  FAD,  FAE,  FAF, 

\ TSUBI,  SPEED,  SLOPE,  TSTART,  FDlA, 

t FDIE,  FDIF,  MODER2,  FD^A, 

£ FD3B,  ETHNOM,  MANAL,  LAMP,  NOMSPD, 

* EMNOM,  TANAL,  LAMA,  LAMG,  EBEND,  NTIME,  TRUNC* 
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& 

& 


PERIOD,  WEXP,  MM,  LNA,  LPHIM,  KRATIO,  LN2 
TRSBKD,  ZROREG,  NUMREG,  SZERO) 


C 

C 

C 

C 

C 

C 

C 

c 


SUBPROGRAMS : 
INPUTS : 


OUTPUTS : 


RAINF3 

TGAS,  HGAS,  FAA,  FAB,  FAC,  FAD,  FAE,  FAF,  MODERl,  RPM, 
TSUBI,  SPEED,  SLOPE,  TSTART,  FDlA,  FDlB,  FDIC,  FDlD, 

FDIE,  FDIF,  MODER2,  FD2A,  FD2B,  FD3A,  FD3B,  ETHNOM,  MANAL, 
LAMP,  NOMSPD,  EMNOM,  TANAL,  LAMA,  LAMG,  EBEND,  NTIME, 
TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  TRSBND, 
ZROREG,  NUMREG,  SZERO 
BLDLIF 


C IMPLICIT  NONE 

INTEGER  MAXM,  MAXREG 
PARAMETER  (MAXM  »=  50,  MAXREG  » 3) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NTIME,  NUMREG,  TSUBI,  ZROREG 

REAL  BLDLIF,  EBEND,  EM(MAXM),  EMNOM,  ETH(MAXM),  ETHNOM(MAXM) , 

& ETOT(MAXM),  FA,  FAA,  FAB,  FAC,  FAD,  FAE,  FAF,  FDl. 

& FDlA,  FDIB,  FDIC,  FDlD,  FDIE,  FDIF,  FD2,  FD2A,  FD5b, 

& FD3,  FD3A,  FD3B,  HGAS,  KRATIO,  LAMA,  LAMG,  LAMP, 

& LNA{0:MAXR£G),  LNZ,  LPHIM ( 0 : MAXREG ) , MANAL, 

& MM(0:MAXREG) , MODERl,  MODER2,  NOMSPD,  PERIOD,  RAINF3, 

& RPM(MAXM),  SLOPE,  SPEED,  SZERO,  TANAL,  TGAS, 

& TRSBND ( 0 : MAXREG ) , TRUNC , TSTART,  WEXP 


C 

C 

C EBEND 
C EM(  ) 

C 

C EMNOM 
C ETH ( ) 

C ETHNOM ( ) 

C ETOT( ) 

C FA 
C 

C FAA,  FAB, 

C 

C FDl 
C 

C FDlA,  FDIB 
C 

C FD2 
c 

C FD2A,  FD2B 
C 

C FD3 
C 

C FD3A,  FD3B 
C 

C HGAS 
C I 

C lOUT 
C KRATIO 
C LAMA 
C 

C LAMG 
C LAMP 
C 

C LNA() 

C LNZ 
C LPHIM () 

C MANAL 
C MAXM 
C MAXREG 
C MM() 

C MODERl 


LIST  OF  VARIABLES 

SELECTED  VALUE  FOR  BENDING  STRAIN  (%) 

1-D  ARRAY  CONTAINING  THE  SIMULATED  ^ffiCHANICAL  STRAIN-TIME 
HISTORY  (%) 

NOMINAL  MECHANICAL  STRAIN  (%) 

1-D  ARRAY  CONTAINING  THE  SIMULATED  THERMAL  STRAIN-TIME  HISTORY 
1-D  ARRAY  CONTAINING  THE  NOMINAL  THERMAL  STRAIN-TIME  HISTORY 
1-D  ARRAY  CONTAINING  THE  TOTAL  STRAIN-TIME  HISTOY 
VALUE  OF  ACCELERATION  FUNCTION  FOR  THERMAL  STRAIN  — SECOND 
ORDER  POLYNOMIAL  AS  A FUNCTIC»1  OF  TGAS  AND  HGAS 
FAC  FAD  FAE  FAF 

COEFFICIENTS 'for  FA,  THE  ACCELERATION  FUNCTION 
VALUE  OF  DECELERATION  FUNCTION  FOR  THERMAL  STRAIN  - SECOND 
ORDER  POLYNOMIAL  AS  A FUNCTI(»^  OF  m,  THE  DECELERATION  SLOPE 
, FDIC,  FDlD,  FDIE,  FDlF 

COEFFICIENTS  FOR  FDl,  ONE  OF  THE  DECELERATION  FUNCTIONS 
VALUE  OF  DECELERATION  FUNCTION  FOR  TIME  - SECOND  ORDER 
POLYNOMIAL  AS  A FUNCTION  OF  m,  THE  DECELERATION  SLOPE 

COEFFICIENTS  FOR  FD2,  ONE  OF  THE  DECELERATION  FUNCTIONS 
VALUE  OF  DECELERATION  FUNCTION  FOR  ROTOR  SPEED  — FIRST  ORDER 
POLYNOMIAL  (LINEAR)  FUNCTION  OF  TIME 

COEFFICIENTS  FOR  FD3,  ONE  OF  THE  DECELERATION  FUNCTIONS 
SELECTED  HOT  GAS  FILM  COEFFICIENT,  Hqas 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  TIME  HISTORY 
CONTROLS  DUMP  TO  FILE  lOUTPR 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  CC»lPONENTS 
SELECTED  VALUE  FOR  COEFFICIENT  OF  THERMAL  EXPANSION  ACCURACY 
FACTOR,  LAMbda  Alpha 
THE  UNCERTAINTY  IN  Tqas 

SELECTED  VALUE  FOR  DEVIATION  IN  BLADE  PULL  DUE  TO  BLADE  MASS, 
LAMbda  Pull 

1-D  ARRAY  CONTAINING  Ln(A)  = Ln(BIGK)*MM  FOR  EACH  REGION 

NORMAL (0,PVAR)  GENERATED  RANDOM  VARIABLE 

1-D  ARRAY  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 

SELECTED  VALUE  FOR  MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  TIME  HISTORY 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

MODEL  ERROR  FOR  STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE 
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C MODER2 
C NOMSPD 
C NTIME 
C NUMREG 
C PERIOD 
C RAINF3 
C 
C 

C RPM( ) 

C SLOPE 
C SPEED 
C SZERO 
C TANAL 
C TGAS 
C TRSBNDO 

C TRUNC 
C TSTART 
C TSUBI 
C WEXP 
C ZROREG 
C 
C 


MODEL  ERROR  FOR  DECELERATION  THERMAL  STRAIN  RESPONSE  SURFACE 

NOMINAL  ROTOR  SPEED,  RPM 

NUMBER  OF  POINTS  IN  STRAIN-TI^^E  HISTORY 

NUMBER  OF  REGIONS  OF  INTEREST 

LEINGTH  OF  TIME  IN  MISSIONS  OF  TIME  HISTORY 

REAL  FUNCTION  PERFORMING  RAINFlow  COUNTING,  DAMAGE  ACCUMU- 
^TION  AND  FATIGUE  LIFE  PREDICTION  (USING  THE  MATERIALS 
CHARACTERIZATION  MODEL) 

1-D  ARRAY  CONTAINING  ROTOR  SPEED  HISTORY 
SELECTED  VALUE  FOR  DECELERATICW  SLOPE,  deg  R / sec 
SELECTED  VALUE  FOR  STEADY  STATE  ROTOR  SPEED,  rpm 
STRAIN  TENSILE  TEST  POINT,  So 

SEjECTED  value  for  THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 
SELECTED  VALUE  FOR  HOT  GAS  TEMPERATURE  Tgas  (deq  R) 

1-D  ARRAY  CONTAINING  VALUES  OF  PHI  * KRATIO  * 2 * SBND  FOR 
EACH  REGION  CALCULATED  FOR  EACH  TRIAL 
VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  TIME  HISTORY 
STARTING  DECELERATION  TEMPERATURE  (deg  R) 

THE  TIME  INDEX  FOR  WHICH  VARIATION  IN  ROTOR  SPEED  OCCURS 
WALKER  EXPONENT 

ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C **  CALCULATE  STRAIN  HISTORY 


FA  = FAA  + FAB  * TGAS  + FAC  * HGAS  + FAD  * TGAS  **  2 
& + FAE  * HGAS  **  2 + FAF  * TGAS  * HGAS  + MODERl 

ETHNOH(l)  = FA 


RPM (TSUBI)  = SPEED 


FDl  = FDlA  + FDlB  * TSTART  + FDlC  * SLOPE 
& + FDlE  * SLOPE  **  2 + FDlF  * TSTART 

FD2  = FD2A  + (TSTART  - FD2B)  / SLOPE 
FD3  = FD3A  + FD3B  * FD2 
RPM (NTIME)  = FD3 
ETHNOM( NTIME)  = FDl 


FDlD  * TSTART  **  2 
SLOPE  + MODER2 


DO  100  1=1,  NTIME 

EM(I)  = MANAL  * LAMP  * (RPM(I)  / NOMSPD) 
ETH(I)  = TANAL  * LAMA  * ETHNOM(I) 

IF  ( (I  *GT.  1)  .AND.  (I  .LT.  TSUBI)) 

& CTH(I)  = LAMG  * ETH(I)  " 

E-Wmi)  = EBEND  + EM(I)  + ETH(I) 

100  CONTINUE  ' ' 


**  2 * EMNCM 


IF  (lOUT  .EQ.  15)  THEN 
'FA  = ', 
'RPM“ 

WRITE (8,*)  'FDl 


125 


“ ''  ' ETHNOMI  = ',  ETHNOM(l) 

WRITE(8,*)  'RPMI  = ',  RPM(TSUBI),  ' LAMG  = '.LAMG 
WRITE < 8. 'FDl  = FDl,  ' FD2  = ' 


FD2 


WRITE ( 8 , * ) 'FD3  = ')  TO3)  ' RPM  = ',  RPM(NTIME) 

^ lA*  \ * 'C«mZTkT^\J  i ‘nmrvk.v.M.k.  ^ ' 


ETHNOM( NTIME) 


WRITE (8,*)  ' ETHNOM  = 

DO  125  1=1,  NTIME 

J^ITE(8,*)  ' EM  = ',  EM(I) 

CON??^‘®'*>  = ''  ' ETO'1-  i ',  ETOT(I) 

ENDIF 


C **  CALL  RAINF3  TO  CALCULATE  DAMAGE  AND  RESULTING  FATIGUE  LIFE 


BLDLIF  = RAINF3 

& 

& 


(ETOT,  NTIME,  TRUNC,  PERIOD, 
LPHIM,  KRATIO,  LNZ,  TRSBND, 
SZERO) 


WEXP,  MM,  LNA, 
ZROREG,  NUMREG, 


RETURN 

END 


C******************* ****************** ****************************^,^^^^ 
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SUBROUTINE  INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  20JUL90 

VERSIC»J:  2.1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 

SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

INPUTS:  NEWLIF,  LIFE,  NLIFET 

OUTPUTS : LIFE 

IMPLICIT  NONE 

INTEGER  MAXLIF 

PARAMETER  (MAXLIF  = 10000) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NLIFET,  NUM,  PLACE 
REAL  LIFE(MAXLIF) , NEWLIF,  TEMP(MAXLIF) 


LIST  OF  VARIABLES 

I CCXJTROLS  DO  LOOP  FOR  INSERTION 

lOUT  OUTPUT  DUMP  CONTROLLER 

LIFE()  1-D  ARRAY  CONTAINING  TAIL  VALUES  OF  THE  LIVES  GENERATED  BY  THE 
PFM  TO  BE  SORTED 

MAXLIF  MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 
CALCULATION 

NEWLIF  LIFE  VALUE  TO  BE  INSERTED  INTO  LIFE() 

NLIFET  TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
NUM  NUMBER  OF  LIFE  VALUES  IN  LIFE() 

PLACE  POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFE( ) 

TEMPO  1-D  ARRAY  CONTAINING  VALUES  OF  LIFE()  TO  BE  SHIFTED  UPON 
INSERTION  OF  NEWLIF 


NUM  = NLIFET  / 2 

C FIND  POSITION  IN  LIFE ( ) FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE (NUM) ) GOTO  400 

DO  100  1=1,  NUM 

IF  (NEWLIF  .LT.  LIFE (I))  THEN 
PLACE  = I 
GOTO  110 
ENDIF 
100  CONTINUE 
110  CONTINUE 

C STORE  VALUES  OF  LIFE( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMPO 

DO  200  I = (PLACE  + 1),  NUM 
TEMP(I)  = LIFE(I-l) 

200  CCMJTINUE 

C INSERT  NEWLIF 

LIFE (PLACE)  = NEWLIF 

C SHIFT  VALUES  OF  LIFE ( ) FOLLOWING  NEWLIF 

DO  300  I = (PLACE  +1),  NUM 
LIFE (I)  = TEMP (I) 

300  CONTINUE 
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C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE ( ) THEN  RETURN 

400  CONTINUE 

RETURN 

END 


C*******************  ******************************************** 

C SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U(THE1,THE2) 

C INDEPENDENT  RANDOM  VARIATES  \ > I \ 

C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE;  9MAR87 

C SUBPROGRAM:  RANDOM 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C y.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C IS  acknowledged. 

c*********** ************************************ *********************** 

SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl,  THE2,  X,  Y) 

COMMON  lOUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 
INTEGER  lOUT 


CALL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'FRAC 

X = FRAC  * (RH02  - RHOl)  + RHOl 


FRAC 


CAIL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'FRAC  =',  FRAC 

Y = FRAC  * (THE2  - THEl)  + THEl 


IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RHOl  =',  RHOl, 
& ' THEl  =',  THEl,  ' THE2  =' , THE2,  ' X 


' RH02 
= ' X 

t 


RH02, 
Y ='  * Y 


RETURN 

END 


C THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  9MAR87 

SUBPROGRAM:  GAM 


The  random  variates  are  generated  using  the  method  described  in: 
Johnson,  N.  L.,  and  Kotz,  S.,  Distribution  in  Statistics:  Continuous 
Univariate  Distributions  - 1,  Houghton  Mifflin  Company,  1970, 

pp.  181-182.  'tf  j f f 

c***********  ************  *************************************,,^^^^^,^,^,^^ 


SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 

COMMON  lOUT 

DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 
INTEGER  lOUT 


IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RAND  =',  RAND,  ' 
& ' THETA  =',  THETA,  ' A =',  A,  ' B =', 

Yl  = GAM((RHO  * THETA  +1.),  RAND) 

Y2  = GAM(((1.  - RHO)  * THETA  + 1.),  RAND) 


RHO  =',  RHO, 
B,  ' X =',  X 
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W = Yl  / (Y1  + Y2) 

C IF  (lOUT  .EQ*  15)  WRITE(8,*)  'Yl  =' , Yl,  ' Y2  =',  Y2,  ' W W 

C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 
X=W*  (B-A)  +A 

IF  (lOUT  ,EQ.  15)  WRITE(8,*)  'W  W,  ' X , X 

RETURN 

END 

C**  i^*********  ************************  ***4r*4r***^*W**  ***************** 

C The  random  variates  £u:e  generated  using  an  "Acceptance/Rejection  Method" 
c Fishman.  George  S.,  "Seonpling  From  the  Gamma  Disuibution  on  a 
c Conputer,"  Communications  of  the  ACM,  Volume  19,  Nundser  7-  July  1976, 

C pp.  407-409. 


REAL  FUNCTION  GAM  (ALPHA,  RAND) 

C SUBPROGRAM:  RANDOM 

COMMON  lOUT 
INTEGER  lOUT 

REAL  A,  ALPHA,  ARG,  Ul,  U2,  Vl,  V2 
DOUBLE  PRECISION  RAND 
A = ALPHA  - 1. 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'A  =',  A,  ' ALPHA  , ALPHA 

10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

Vl  = - ALOG(Ul) 

V2  * - AL0G(U2J 

IF  (lOUT  .EQ.  l5)  WRITE(8,*)  'Ul  =' , Ul,  ' U2  U2,  ' Vl 

{•  Vl,  ' V2  =',  V2 

ARG  = A * (Vl  - ALOG(Vl)  - 1.) 

IF  (V2  .LT.  ARG)  GOTO  l6 

GAM  = ALPHA  * Vl 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'GAMMA  =',  GAM 

RETURN 
END 


SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
FOR  THE  STRESS  FORMULATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  13JUL89  FORMAT/ COMMENTS;  12AUG91 

VERSION:  MATCHR  V8.4,  V8.5  MATGRM  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acknowledged . 


SUBROUTINE  INFAGG  (RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG, 

4 NUMREG,  NBND,  STR,  FTUZ,  FTYZ,  VARY,  MPROC, 

4 KRATIO,  PVAR) 

INPUTS;  READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 
OUTPUTS;  RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND,  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR 
SUBPROGRAMS:  INIT,  RCE,  SW2SU2,  FINDMC,  INTRVL,  FNDRNG,  AODREG, 

CONCAV,  MEDIAN,  EXPCTD,  MUSIG,  NORRNG,  ADDRGN,  GTPVAR 
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C FILES:  5 :RELATD-OLD;  6:RELATO-NEW 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 
COMMON  lOUT 


INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT ( MAXREG ) , MPROC,  NNODAT, 
fc  NP(0:MAXSET,  MAXREGJ , NPPR ( MAXREG ) , NPTS (0 :MAXSET) , 

«>  NSETS,  NUMREG,  REFNP (MAXREG)  , VARY,  ZROREG 

REAL  BIGKHT,  BZERO,  CZERO,  DD (MAXREG),  DELTA ( MAXREG ) , 

& FTUZ,  FTYZ,  IZEROr2,  MAXMG) , JZERO(2,  MAXREG), 

& KRATIO,  LAMN,  LNNF(MAXDAT,  0:MAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  MC(2,  MAXREG), 

& MCHAT(2,  MAXREG),  MEDM ( MAXREG ) , MO ( MAXREG ) , MU(MAXREG), 

& MZERO^,  MAXREG),  NBND  ( 0 :MAXREG)  , ^(MAXDAT,  MAXREG), 

& PVAR,  RANGEM(2,  MAXREG),  RATSTR( MAXDAT,  0:MAXSET), 

4 RAWNF(MAXDAT,  0:MAXSET),  RAWSTR( MAXDAT,  0:MAXSET), 

4 SIG( MAXREG),  SIGMA2 (MAXREG) , STO(MAXDAT,  MAXREG), 

4 SUHAT2 (MAXREG) , SHHAT2 (MAXREG) , SX2 (MAXREG) , 

4 SXY(MAXREG),  SY2 (MAXREG) , SZERO 


LIST  OF  VARIABLES 


BIGKHT 

BZERO 

CZERO 

DELTA ( ) 

FTUZ 
FTYZ 
lOUT 
IZERO( ) 

JZEROO 

KRATIO 

L 

LAMN 

LNNF( ) 

LNSTR( ) 

MAXDAT 

MAXREG 

MAXSET 

MC() 


MCHAT( ) 

MCPNT () 

MEDM( ) 
MO() 

MPNT( ) 

MPROC 

MU() 

MZERO( ) 


EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 
VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  THE  S/N 
DATA  SET 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 

1-D  ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU() 

AND  SIG()  CALCULATION 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  lo,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- D  ARRAY  CONTAINING  LN(RAWNF<)),  ALSO  INDEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  LN (RATSTR( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
- MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  CaJLY  — 

MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC ( ) FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZEROr ) FOR  EACH  REGION 

Materials  PROCess  variation  -CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
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NBND( ) 

NF() 

NNODAT 

NP() 

NPPR() 

HPTS( ) 
NSETS 
NUMREG 
PVAR 
RANGEM( ) 

RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

SIG() 

SIGMA2( ) 

STR(  ) 

SUHAT2 ( ) 

SWHAT2  0 

SX2() 

SXY(  ) 

SY2() 

SZERO 

VARY 

ZROREG 


IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNFf)  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 
MATERIALS  PROCESS  VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGICW 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  MgIONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGICMJ 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 
REGION  (X  = Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGICXI 
(Y  = Ln  N) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATI(X(  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATICXl 
ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


OPEN(5,  FILE  = 'RELATD',  STATUS  = 'OLD') 
OPEN(6,  FILE  = 'RELATO',  STATUS  = 'NEW') 


C 

C 

C 


RELATD  COTJTAINS  THE  RELATED  MATERIAL  S/N  DATA  SET  INFORMATION 
RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
INFORMATION 


C PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 
C INITIALIZE  PRIMARY  ARRAYS 


CALL  IN IT  (NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 
& NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2) 

C READ,  CONVERT,  ECHO  INFORMATION 


& 

& 

& 


CALL  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 
LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG,  NUMREG, 
NSETS.  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ, 
SIGMA2,  KRATIO,  LAMN) 


LNSTR, 
NNC©AT, 
DELTA,  MO, 


C CALCULATE  RESIDUAL  VARIANCES 


CALL  SW2SU2  (NUMREG,  NSETS,  NP,  LNS'TR,  LNNF,  SX2,  SXY,  SY2,  DD. 

& SWHAT2,  SUHAT2,  NPPR)  r » » » , 
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C CALCULATE  M CONTRAINT  BASED  ON  Co 


CALL  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCXILATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 

& JZERO,  MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CJ^  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 

& RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 
WRITE (7, 9 00) 

DO  25  L = 1,  NUMREG 

WRITE(7,905)  L,  IZER0(1,  L),  IZERO(2,  L) , 

& JZERO(l,  L),  JZER0(2,  L) 

25  CCaiTINUE 

WRITE(7,910) 

DO  50  L = 1,  NUMREG 

WRITE(7,515)  L,  MCHAT(2,L),  MCHAT(1,L) 

50  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7, 960) 

DO  150  L = 1,  NUMREG 

IF  (MCPNT (L)  .EQ.  1)  THEN 
WRITE(7,965)  L,  MC(1,L) 

ELSEIF  ( MCPNT (L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 

ENDIF 

150  CONTINUE 

ENDIF 

WRITE(7,920) 

WRITE(7,930) 

DO  lOO  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 

100  CONTINUE 

WRITE(7,950) 

C CALCINATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 
CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 
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CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUHREG,  ZROREG, 
4 NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 

IF  ((VARY  .EQ.  0 
DO  200  L = 1, 

RANGEM(1,L 
RANGEM(2,L 
200  CONTINUE 

ENDIF 


) .OR.  (VARY  .EQ.  1))  THEN 
NUMREG 
) = HEDM(L) 

) = MEDM(L) 


ELSE 


C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO, 
4 SIGMA2,  MCHAT,  MU,  SIG) 

C CALCXttATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 


C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 


CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 
C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 


CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 
4 MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 


CALL  CONCAV  (NUMREG,  RANGEM) 
C WRITE  RESULTS  TO  FILE  DUMP 


WRITE (7, 975) 


350 


DO  350  L = 1,  NUMREG 

WRITE(7,980)  L,  MCHAT(1,L) 
CONTINUE 


360 


IF  (CZERO  .GT.  0.0)  THEN 
WRITEi7,960) 

DO  360  L = 1,  NUMREG 

IF  (MCPNTiL)  .EQ.  1)  THEN 
WRITE(7,965)  L,  MC(1,L) 
ELSEIF  (MCPNT(L)  .EQ.  2)  T 
WRITE(7,970)  L,  MC(1,L) 
ENDIF 
CONTINUE 
ENDIF 


HEN 

, MC(2,L) 


370 


WRITE(7,920) 

WRITE(7,930) 

DO  370  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 
CONTINUE  \ » / 


WRITE(7,950) 


380 


WRITE (7, 985) 
DO  380  L = 1, 
WRITE(7,99 
C(»ITINUE 


NUMREG 
0)  L,  MU(L) 


SIG(L) 


ENDIF 
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C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 


IF  (MPROC  .EQ.  1)  THEN 
WRITE(7,995)  PVAR 
ENDIF 


C FORMAT  STATEMENTS 

900  FORMAT (2X, 

& 

f wAs/-yj.o  IS  acknowledaec 

& //J  OF  information  aogr£oati3n^caLculatiohs' 

t intervals  ON  C AND  . ' 

R05^rORMAT,7Rj.RKlON:  ^ I?_  • jFlI .9.  ■ , - ,F12.9,  ' , ■ , 

910^FORMAT(//,2x,  REGION-, 

915  F0RMAT(9X,I1,8X,F11.9,5X,F9.6) 

920^FORMAT(/^^2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 

930  F0RMAT(//,2X, 'REGION ',5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 
940  F0RMAT(6X,I1,8X,F8.4,8X,F8.4) 

950  FORMAT (///) 

960^FORMAT(//^2X^^^GE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

* //»2X, 'REGION' , 5X, 'LOWER  BOUND ', 5X, ' UPPER  BOUND',/) 

965  F0RMAT(6X,I1,8X,F8.4,8X, 'INFINITY' ) 

970  F0RMAT(6X,I1,8X,F8.4,8X,F8.4) 

975^F0RMAT(2X, 

f '-uAiuitttii,  ruu>/-vm  IS  acknofarleHno? 

& ///fx^^STT^TP^ft?^?^®”  aggregation  od^ULATIONS', 


980  FORMAT(9X,I1,11X,F10.6) 


985  FORMAT(2X, 'POS'IEMOR  NOR^  DISTRIBUTION  PARAMETERS', 

//,2X,  REGION  , 5X, 'MEAN' , 8X, 'STD  DEV',/) 

990  F0RMAT(5X,I1,5X,F7.4,5X,E11.5) 

995  FORMAT </^X,' THE  EXTENT  OF  DEPAR'TURE  FROM  'THE  MULTIPLE  hpa-t  • 

4 '^FO^IlSN^y//f;i;'i?^.5y^'^™D  the  available  ',' 


RETURN 

END 


c 

c 

c 

c 

c 


DATE  i 50CT  8 7 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
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C . V8.4,  V8.5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  TRMNAT 

WRITE (8,*)  'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 


C SUBROUTINE  INIT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
C USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

C VERSION:  MATCHR  V8.1,  V8.2,  V8,3,  V8,4,  V8.5 

C MATGRM  V4.1,  V4.2^  V4.3,  V4.4,  V4.5 


SUBROUTINE  INIT  (NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR, 

& REFNP,  NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 ) 


C INPUTS : — 

C OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 

C NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  <MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 


INTEGER  I,  lOUT,  J,  K,  L,  MPNT ( MAXREG ) , NP(0:MAXSET,  MAXREG), 
& NPTS(0:MAXSET),  REFNP  (MAXREG) 

REAL  DELTA  ( MAXREG ) , LNNF(MAXDAT,  0:MAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  MO(MAXREG), 

& MZERO(2,  MAXREG),  NF(MAXDAT,  MAXREG), 

& RATSTR  (MAXDAT,  0:MAXSET),  RAWNF  (MAXDAT,  0:MAXSET), 

& RAWSTR  (MAXDAT,  0:MAXSET),  SIGMA2  (MAXREG)  , 

& STR(MAXDAT,  MAXREG) 


C 

c 

C DELTA ( ) 

C 

C I 
C lOUT 
C J 
C K 
C L 

C LNNF(  ) 

C LNSTR ( ) 

C MAXDAT 
C MAXREG 
C MAXSET 
C MO(  ) 

C 

C MPNT(  ) 

C 

C MZERO( ) 

C 

C 

C NF(  ) 

C 

C NP( ) 

C 

C NPTS() 

C RATSTR ( ) 
C 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

3-D  ARRAY  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN  ( RATSTR ())  , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2 , IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGICWS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
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RAWNFO  2-D  AREIAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

RAWSTR( ) 2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 

DATA  (%)  FOR  ALL  S/N  DATA  SETS 

REFNPO  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

SIGMA2 ( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTIC»J 

VARIANCE  FOR  EACH  REGION 

STR()  2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 

S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

DO  100  J = 0,  MAXSET 
NPTS(J)  =0.0 
100  CONTINUE 

DO  200  L = 1,  MAXREG 
DO  250  J = 0,  MAXSET 
NP(J,  L)  = 0.0 
250  C<MJTINt«: 

200  CONTINUE 

DO  300  J = 0,  MAXSET 
DO  350  1=1,  MAXDAT 
RAWNF(I,J)  =0.0 
RAWSTR(I,J)  = 0.0 
RATSTR(I,J)  = 0.0 
350  CONTINUE 

300  CONTINUE 

DO  400  L = 1,  MAXREG 
DO  425  K = 1,  MAXDAT 
DO  450  J = 0,  MAXSET 
LNNF(K,J,L)  = 0.0 
LNSTR(K,J,L)  = 0.0 
450  CONTINUE 

425  CC»ITINUE 

400  CONTINUE 

DO  500  L = 1,  MAXREG 
DO  550  K = 1,  MAXDAT 
NF(K,L)  = 0.0 
STR(K,L)  = 0.0 
550  CCWTI^E 

500  CONTINUE 

DO  600  L = 1,  MAXREG 
REFNP(L)  = 0 
MPNT(L)  = 0 
MZERO(l,L)  = 0.0 
MZERO(2,L)  = 0.0 
DELTA(L)  =0.0 
MO(L)  =0.0 
SIGMA2(L)  =0.0 
600  CONTINUE 

RETURN 

END 


C* ************************************ *********************************** 


C SUBROUTINE  RCE  "READS"  THE  DATA  FROM  SPECFD  AND  RELATD;  "CONVERTS" 

C THE  STRESS  DATA  TO  A STRESS  RATIO  OF  -1.0;  AND  "ECHOES"  THE  DATA  TO 
C SPECFO  AND  RELATO.  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIC»)S  AS 
C SPECIFIED  BY  USER 
C PROGRAMMER;  L.  NEWLIN 

C DATE:  21JUN88  FORMAT/COMMENTS;  12AUG91 

C VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

«.  LNSTR,  LNNF,  REFNP,  STR,  NF,  S2ERO,  ZROREG, 
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& 

& 


NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZERO, 
FTUZ,  FTYZ^  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 

INPUTS : VARY , MPROC 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR,  LNNF,  REFNP, 

STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT,  NSETS,  NBND, 

CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2, 

KRATIO,  LAMN 

SUBPROGRAMS : TRMNAT , CONVRT 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 

INTEGER  COUNT,  I,  lOUT,  J,  K,  L,  M,  MPNT ( MAXREG ) , MPROC,  NDXV, 

& NNODAT,  NP(0:MAXSET,  MAXREG),  NPTS ( 0 : MAXSET ) , NSETS, 

& NUM,  NUMREG,  REFNP { MAXREG ) , REG,  VARY,  ZROREG 

REAL  CZERO,  DELTA ( MAXREG ) , FTU,  FTUZ,  FTY,  FTYZ, 

& KRATIO,  LAMN,  LNNF(MAXDAT,  OzMAXSET,  MAXREG), 

& LNSTR(MAXDAT,  OiMAXSET,  MAXREG),  MO  ( MAXREG ) , 

& MZERO(2,  MAXREG),  NBND{0 : MAXREG ) , NF(MAXDAT,  MAXREG), 

& RATIO,  RATSTR  (MAXDAT,  0:MAXSET),  RAWNF(MAXDAT,  0:MAXSET), 

& RAWSTR  (MAXDAT,  OrMAXSET),  SIGMAS  (MAXREG) , 

& STR(MAXDAT,  MAXREG),  SZERO 

CHARACTER* 40  DESCRP( 0 :MAXSET) 


LIST  OF  VARIABLES 


COUNT 

CZERO 

DELTA( ) 

DESCRP ( 
FTU 
FTUZ 
FTY 
FTYZ 
I 

lOUT 
J 
K 

KRATIO 
L 

LAMN 

LNNF( ) 
LNSTR ( ) 
M 

MAXDAT 
MAXREG 
MAXSET 
MO() 

MPNT() 

C MPROC 
C 

C MZERO( ) 

C 

C 

C NBND( ) 

C 

C NDIV 
C 

C NF() 

C 


INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 
CONVERSION,  AND  BREAK  UP 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  CO 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG  ( ) CALCULATIC»J 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION 


LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 

3-D  ARRAY  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  PEGlOti 

3-D  ARRAY  CONTAINING  LN (RATSTR( ) ) , ALSO  INDEXED  FOR  REGION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2 . IN 
MZERO n FOR  EACH  REGION 

Materials  PROCess  veuriation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  ' ' 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT 

2- D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
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NNODAT 

NP() 

NPTS( ) 

NSETS 

NUM 

NUMREG 

RATIO 

RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

REG 

SIGMA2 ( ) 

STR( ) 

SZERO 

VARY 


ZROREG 


Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

^*”in^^!^h  mgion^^^^  number  of  points  of  each  s/n  data  set 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISION 

NUMBER  OF  REGIONS  OF  INTEREST 

STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

2 - D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR  STRESS 
RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

2-D  array  containing  raw  cycles  to  failure  data  FOR  ALL  S/N 
DATA  SETS 

RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS  ' 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION 

distribution 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 

ZeRO  REGlon  — VALUES  CHOSEN  TO  FACILITATE  REGI(»I  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


INITIALIZE  COUNT  AND  NBND ( ) 

COUNT  = 0 

DO  10  L = 0,  MAXREG 
NBNDfL)  =0.0 
10  CONTINUE 

INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ(1,*)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(O) 

IF  (NPTS(O)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN 

'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 


C 


C 

C 


WRITE(3,900)  DESCRP(O),  FTY,  FTU,  NPTS(O) 

IF  (lOUT  .EQ.  10)  WRITE(8,900)  DESCRP(O),  FTY,  FTU,  NPTS(O) 
WRITE(3,905) 

IF  (lOUT  .EQ.  10)  WRITE(8,905) 

STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 

FTUZ  = FTU 
FTYZ  = FTY 


INPUT  STRESS /LIFE  INFORMATION  — INCLUDING  STRESS 
INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 


RATIO  AND  REGION 


DO  100  M = 1,  NDIV 


READ  (1,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO;  ',  RATIO 

CALL  TRMNAT  ' 

ENDIF 


IF  (REG  .GT.  MAXREG)  THEN 

^ITE(8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 
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DO  110  I = (COUNT  + 1),  (COUNT  + NUM) 
READ(1,*)  RAWSTR(I,0),  RAWNF(I,0) 
CONTINUE 


C CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CC««VERT  STRESSES  IF  NOT 


IF  (RATIO  .EQ.  -1.0)  THEN 


C 


STRESS  RATIO  IS  CORRECT 


DO  120  I = (COUNT  + li,  (COUNT  + NUM) 
RATSTR(I,0)  = RAWSTR(I,0) 

120  CONTINUE 


ELSE 

C STRESS  RATIO  TRANSFORMATICXl  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 

& RATIO,  FTU,  FTY) 

ENDIF 

C ECHO  STRESS/LIFE  DATA  ON  SPECIFIC  MATERIAL 

DO  130  I = (COUNT  + 1),  (COUNT  + NUM) 

WRITE(3,910)  RAWSTR(I,0),  RAWNF(I,0),  RATIO,  REG, 

5 RATSTR(I,0),  RAWNF(I,0) 

IF  (lOUT  .EQ.  10)  WRITE(8,910)  RAWSTR(I,0),  RAWNF(I,0), 

6 RATIO,  REG,  RATSTR(1,0),  RAWNF(I,0) 

130  CONTINUE 

BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  RAREST 

K = NP(0,REG) 

DO  140  I = (COUNT  + 1),  (COUNT  + NUM) 

K = K + 1 

LNSTR(K.0,REG)  = ALOG (RATSTR( I, 0) ) 

LNNF(K, 0,REG)  = ALOG(RAWNF(I, 0) ) 

STR(K,REG)  = RATSTR(I,0) 

NF(K,REG)  = RAWNF(I,0) 

140  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

NP(0,REG)  = K 
REFNP(REG)  = K 
COUNT  = COUNT  + NUM 

100  CONTINUE 

IF  (NPTS(O)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR;  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

READ(1,*)  SZERO 
IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  = 0 
ELSE 

ZROREG  = 1 
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ENDIF 

IF  (lOUT  .EQ.  10) 

i WRITE (8,*)  'SZERO  = SZERO,  ' ZROREG  = ZROREG 
INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATICXJ 
READ(1,*)  NUMREG,  NNODAT 


IF  ((NUMREG  + NNODAT) 
WRITE(8,*)  'ERROR; 
CALL  TRMNAT 
ENDIF 


.GT.  MAXREG)  THEN 

EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS' 


DO  150  L = ZROREG,  (NUMREG  + NNODAT) 
REAI^l,*)  NBND(L) 

150  CONTINUE 


READ(1,*)  CZERO 


DO  160  L = 1,  (NUMREG  + NNODAT) 

160  CONTI^^'*’  MZER0(1,L),  MZER0(2,L) 


WRITE(3,913) 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  (lOUT  .EQ.  10)  THEN  ' 

WRITE(8,913) 

(ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
WRITE(3,915)  NUMREG,  NNODAT 

IF  (TOUT  .EQ.  10)  WRITE(8,915)  NUMREG,  NNODAT 

^ (NUMREG  + NNODAT) 

WRITE (3, 920)  NBND(L) 

170  CONTIwiE®”^  WRITE (8, 920)  NBND(L) 

WRITE(3,925)  CZERO 

IF  (TOUT  .EQ.  10)  WRITE(8,925)  CZERO 
DO  180  L = 1,  (NUMREG  + NNODAT) 

MZER0(2,L) 

* IF  MZERO(l,L).  MZEROf2,L) 

.AND.  (MPNT(L)  .EQ.  6))  THEN 

^ WRI'TE(8,*)  ;|^°^'qjjNORMAL  VARIATKW  REQUIRES  A PRIOR 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 

IF  (VARY  .EQ.  3)  THEN 

^^^^^^^^5^WF0RMATI0N  ON  NORMAL  DISTRIBUTION 

IF  (lOUT  .EQ.  10)  WR1TE(8,945) 

DO  190  L = 1,  f NUMREG  + NNODA'T) 

SIGMA2(L) 

IfTioUT  EO 

CALL  'TRMNAT DELTA  IN  REGICW  L 
ENDIF 
190  CONTINUE 
ENDIF 


IF  (MPROC  .EQ.  1)  THEN 
READ(1.*]  KRA-TIO,  LAMN 
WRITE (3, 955)  KRATIO,  LAMN 
ENDIF  WRITE(8,955)  KRATIO,  LAMN 
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C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ(5,*)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS' 

CALL  'TRMNAT 
END  IF 

WRITE (6, 935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  = 0 

IF  (lOUT.  EQ.  10)  WRITE(8,*)'J  J,  ' NSETS  , NSETS 

READ(5,*)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  ' , 

& ' SET  ' , J 

CALL  'TRMNAT 
ENDIF 

WRITE(6,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 

IF  (lOUT  .EQ.  10)  WRITE(8,940)  DESCRP( J) , FTU,  FTY,  NPTS(J) 
WRI'TE(6,905) 

IF  (lOUT  .EQ.  10)  WRITE(8,905) 

DO  300  M = 1,  NDIV 

READ(5,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  l.Oi  THEN 

vfelTE(8,*)  'ERROR:  INVALID  VALUE  OF  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 

vfelTE ( 8 , * ) 

& 'ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL  ',  J 

CALL  TRMNAT 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'NUM  = ',  NUM,  ' COUNT  = COUNT 
WRITE(8,*)  'RATIO  = ',  RATIO,  ' REG  = REG 
ENDIF 

DO  310  I = (COUNT  +1),  (COUNT  + NUM) 

READ(5,*)  RAWSTR(I,J),  RAWNF(I,J) 

310  CONTINUE 

C CHECK  IF  S'TRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  320  I = (COUNT  +1),  (COUNT  + NUM) 

RATSTR(I,J)  = RAWS‘rR(I,J) 

320  CONTINUE 

ELSE 

C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT(J,  (COUNT  +1),  (COUNT  + NUM),  RAWSTR, 

& RATS'TR,  RATIO,  FTU,  FTY) 

ENDIF 
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RECORD  BOTH  S/N  DATA  SETS  TO  REIATO 
DO  330  I = (COUNT  + 1),  (COUNT  + NUM) 

W«T.,6,nO,  KEG, 

IF  ,IOUT 

CONTINUE 
K = NP(J,REG) 

DO  340  I = (COUNT  + 1),  (COUNT  + NUM) 

K = K + 1 

LNSTR(K,J, , _ 

LNNF(K, J,REG)  = ALOG(] 

CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE  (8,*)  ;E^0R^  over  LIMIT  ON  NUMBER  OF  POINTS 

CALL  TRMNAT  ' 

ENDIF 

NP(J,REG)  = K 
COUNT  = COUNT  + NUM 


= AL0G(RATSTR(I,  J)  ) 
■■  (^WNF(i;j))" 


300  CONTINUE 


IF  (NPTS(J)  ,NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR;  NUMBER  OF  POINTS  PER  DIVISION  ' 
CALL  TRMNAT  SPECIFIED  IN  SET  ' 

ENDIF 


200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  SPECFO  AND  RELATO 

no  FOKMAT,2x,En.5,2X,P9.0,5x,F5.2,5X,Il,5*,E11.5,2X,F<l.0) 

913  FORMAT(//) 

914^FORMAT(2X,^TmM  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF', 
915  FORMAT(2X  IS  ',12,'  REGION(S)  WITH  DATA  ' 

920  FORMAT (1 ox, E9. 3) 

925  FORMAT (///,2X, 'EXOGENOUS  INFORMATION'  ///  2X 

f COEFFICIENT  OF  VA^TION  C- ' 2X  F6  d 

& //'2x' 'REGION^^5x°”f^^^S^T°”  ‘ ' 

5x:'M°BoSND'f>;*  POINTS', 5X, 'LOWER  BOUND',' 


930  FORMAT(6X,I1,11x,I1,12X,F7.4,9X,F7.4) 
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936  FORMAT(20X, 'NUMBER  OF  DATA  SETS : ' , 2X. 12 , //, 17X, 

& 'NOTE:  ALL  Kt  ASSUMED  TO  BE  1 . 0 ',//// ,23X, 

{,  'TRANSFORMED  DATA'  ) 

940  FORMAT(///,2X, 'DESCRIPTION: ' ,2X,A40, 

& //,2X  'YIELD  STRENGTH' ,18X,F7.0, 

& //,2X, 'ULTIMATE  STRENGTH' , l5X,F7 .0, 

(,  //,2X, 'NUMBER  OF  POINTS' , 16X,  12 ) 

945  FORMAT ( /,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS:', 

& //,2X, 'REGION' ,5X, 'DELTA' ,8X, 'mo' , lOX, 'SIGMA2' ,/) 

950  FORMAT(5X,Il, 5X,F7 .2, 5X,F7.4,5X,E11.5) 

955  F0RMAT(//,2X, 'MATERIALS  PROCESS  VARIATION  INFORMATION', 

& V/,2X, 'MEDK*/MEDK: ' , 5X,E11.5,/,5X, 'LAMBDAN: ' ,5X,E11.5) 


RETURN 

END 


C**************** ************** ****************************************** 


'THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR( ) WHEN  THE 
STRESS  RATIO,  R,  IS  NOT  -1.0 

PROGRAMMER:  L.  NEWLIN  

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  CONVRT  (J,  NUMl,  NUM2,  S'TR,  RSTR,  R,  FTU,  FTY) 


INPUTS:  J,  NUMl,  NUM2,  S'TR,  R,  FTU,  FTY 

OUTPUTS : RSTR 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXSET  = 5) 

CCMmON  lOUT 

INTEGER  I,  lOUT,  J,  NUMl,  NUM2 

REAL  FTU,  FTY,  R,  RSTR(MAXDAT,  0:MAXSET), 

& STR(MAXDAT,  0:MAXSET),  'TEST 


LIST  OF  VARIABLES 


FTU 
FTY 
I 

lOUT 
J 

MAXDAT 
MAXSET 
NUMl 
NUM2 
R 

RSTRO 
C STR(  ) 

C TES'r 


ULTIMATE  STRENGTH  OF  MA'TERIAL  (PSI) 

YIELD  STRENGTH  OF  MATERIAL  (PSI) 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

DATA  SET  OF  INTEREST  

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

STR()  VALUES  TRANSFORMED  TO  R = -1.0  (PSI) 

ARRAY  CONTAINING  STRESS  VALUES  (PSI)  FOR  S/N  CURVE 
Kt  * Smax  * (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I = NUMl,  NUM2 
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TEST  = STR(I,J)  * (1.0  - R)/2.0 

IF  (lOUT.EQ.lO)  WRITE(8,*)  '1  =',1^'  j =»  ^ t =' ,test 

IF  (TEST  .GE.  FTY)  THEN 
RSTR(I,J)  = TEST 

IF  (lOUT.EQ.lO)  WRITE(8,*)'1;RSTR()  =' ,RSTR(I, J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR(I,J)  = TEST/(1.0  -((FTY  - TEST)/FTU)) 

IF  (lOUT.EQ.lO)  WRITE(8,*)'2:RSTR()  =',RSTR(I,J) 

ELSE 

RSTR(I,J)  = raST/(1.0  - ((1.0  + R)  * STR(I,J) 

* /(2.0  * FTU) ) ) \ r ! 

IF  (lOUT.EQ.lO)  WRITE(8, *) '3:RSTR( ) =',RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 

END 


c****^^^**  ★★★★★★  ★★★★★1^***^^^^^**** 


c 

c 


SW2SU2  CALCULATES,  SWHAT2,  THE  RESIDUAL  VARIANCES  ftF  V am  v 

me  X on  y regressions  for^^  Sg^  S^^VLTnfV  Ld 

^DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  • 2 , V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

MATGRM  V4,‘  V4.i;  V4,2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2  SXY 
& SY2,  DD,  SWHAT2,  SUHAT2,  NPPR)  ' ' 

INPUTS:  NUMREG,  NSETS,  NP,  LNSTR.  LNNF 

OUTPUTS:  SX2,  SXY,  SY2,  DD,  SWHAT^,  SUHAT2,  NPPR 

IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 
COMMON  lOUT 


INTEGER  lOUT,  J,  K,  L,  NP(0:MAXSET,  MAXREG), 
& NSETS,  NUMREG 


NPPR  (MAXREG)  , 


REAL 

& 

& 

& 

& 


DIFFX(MAXDAT,  0:MAXSET), 

DIFFY(MAXDAT,  0;MAXSET),  LNNF(MAXDAT,  0 : MAXSET ^ MAXREG \ 
LNSTR(MAXDAT,  0:MAXSETrMAXREd)7>^X(6-^ 
SUHAT^(MAXREGi: 

SX2 (MAXREG),  SXY (MAXREG),  SY2 (MAXREG)  ^ 


C 

C 

C 

C 

C 


BB() 
DD 
Di: 


u. 


X() 


LIST  OF  VARIABLES 

^55^^  CONTAINING  SXY(L) /SY2 (L)  FOR  EACH  REGION 

1—  D ARRAY  CONTAINING  SXY(L ) /SX2 (L)  FOR  EACH  REGION 

2- D  array  containing  THE  DIFFERENCE  BETWEEN  LNSTR (K,J,L) 
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AND  MEANX(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
DIFFYO  2-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,Li 

AND  MEANY(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
lOUT  OUTPUT  DUMP  CONTROLLER 

J CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

K CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LNNF()  3-D  ARRAY  CONTAINING  LN(RAWNF( ) ) , ALSO  INDEXED  FOR  REGION 
LNSTRO  3-D  ARRAY  CONTAINING  LN(RATSTR( ) ) , ALSO  INDEXED  FOR  REGION 
MAXDAT  MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXSET  MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

MEANX( ) 1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 

L AND  DATA  SET  J (X  « Ln  S) 

MEANY( ) 1-D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FROM  REGION 

L AND  DATA  SET  J (Y  = Ln  N) 

NP()  2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

SET  IN  EACH  REGION 

NPPR()  1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Nuinber  of  Points  Per  Region) 

NSETS  NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SUHAT2  0 1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X (»<  Y 

REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
SWHAT20  1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
SX2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

(X  - Ln  S) 

SXY()  1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 

EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

SY2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGICW 

(Y  = Ln  N) 


INITIALIZE  ARRAYS 

DO  50  L = 1.  MAXREG 
SY2(L)  = 0.0 
SX2(L)  = 0.0 
SXY(L)  =0.0 
SWHAT2(L)  =0.0 
SUHAT2(L)  =0.0 
BB(L)  =6.0 
DD(L)  =0.0 
NPPR(L)  = 0 
50  CONTINUE 

DO  60  J = 0,  MAXSET 
DO  70  K = 1,  MAXDAT 
DIFFY(K,J)  = 0.0 
DIFFX(K,J)  =0.0 
70  CONTINUE 

MEANY(J)  = 0.0 
MEANX(J)  = 0.0 
60  CCMJTINUE 

NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EACH  REGIOJ 

DO  100  L = 1,  NUMREG 

DO  200  J = 0,  NSETS 

FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 
FOR  DATA  SET  J IN  REGION  L 
MEANY(J)  = 0.0 
MEANX(J)  = 0.0 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =' , L/  ' J ='» 

& ' NP  =' , NP(J,L) 

DO  250  K = 1,  NP(J,L) 

MEANY(J)  = MEANY(J)  + LNNF(K,J,L) 

MEANX(jj  = MEANX(J)  + LNSTR(K,J,L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'LNNF  =',  LNNF(K,J,L), 

& ' LNSTR  =',  LNSTR(K,J,L) 

250  CONTINUE 
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MEANY(J)  = MEANY(J)/FLOAT(NP(J,L) ) 

MEANX(J)  = MEANX(J)/FLOAT(NP(J,L) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'MEANY(J)  =',  MEANY(J), 
& ' MEANX(J)  =',  MEANX(J) 

NOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 

OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 


300 


DO  300  K = 1,  NP(J,L) 

DIFFY(K,J)  = LNNF(K,J,L)  - MEANY(J) 

DIFFX(K,J>  = LNSTR(K,J,L)  - MEANX(J) 

SY2(L)  = SY2(L)  + DIFFY(K,J)  **  2 
SX2(L)  = SX2(L)  + DIFFX(K,J)  **  2 
SXY(L)  = SXY(L)  + DIFFX(K,J)  * DIFFY(K,J) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'K=',  K,  ' DIFFY(K,J)  =' , DIFFY(K,J), 

' DIFFX(K,J)  =',  DIFFX(K.J) 

WRITE(8,*)  >SY2(L)  =',  SY2(L),  ' SX2(L)  =' , SX2(L), 

' SXY(L)  =',  SXY(L) 

ENDIF 

CONTINUE 


NPPR(L)  = NPPR(L)  + NP(J,L)  - 1 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NPPR(L)  =' , NPPR(L) 

200  CCWTINUE  ' 

IF  (SXY(L)  .GE.  0.0)  THEN 

LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE (8,*)  'ERROR;  SXY  >=  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 


NPPR(L)  = NPPR(L)  - 1 
IF  (NPPR(L)  .LE.  0)  THEN 

WRITE (8,*)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN  ', 

& 'REGION  ',L 

CALL  TRMNAT 
ENDIF 


SY2(L)  = SY2(L)  / FLOAT ( NPPR( L) ) 

SX2(L)  = SX2(L)  / FLOAT (NPPR(L) ) 

SXY(L)  = SXY(L)  / FLOAT ( NPPR ( L) ) 

NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 
REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 


& 

& 


& 

& 

& 

500 


DD(L)  = SXY(L)  / SX2(L) 

BB(L|  = SXY(L)  / SY2(L) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'NPPR(L)  =',  NPPR(L),  ' SY2(L)  =' , SY2(L), 

' SX2(L)  =',  SX2(L) 

WRITE(8,*)  'SXY(L)  =',  SXY(L),  ' DD(L)  =',  DD(L) , 

' BB(L)  =',  BB(L) 

ENDIF 

DO  400  J = 0,  NSETS 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'J  =' , J,  ' NP(J,L)  =',  NP(J,L) 


1,  NP(J,L) 

T2( 


DO  500  K = 

SWHAT2(L)'=  SWHATifL) 

+ (DIFFY(K,J)  - DD(L) 
SUHAT2(L)  = SUHAT2(L) 


DIFFX(K,J))  **  2 


IF  (lOUT  .EQ. 
SWHAT2(L)  , 
CONTINUE 


+ (DIF^I^Ji  - BB(L) 


10)  WRl'TE(^^,*) 

' SUHAT2(L)  =', 


* DIFFY(K,J)) 
" ■ SWHA'T2 


K =',  K, 
SUHAT2(L) 


2 

(L)  =' 


400  CONTINUE 


SWHAT2(L)  = SWHAT2(L)  / FLOAT (NPPR(L) ) 

SUHAT2(L)  = SUHAT2(L)  / FLOAT (NPPR( L) ) 

IF  (lOUT  .EQ.  10)  WR1TE(8,*)  'NPPR(L)  =',  NPPR(L) , 


7-133 


100‘cONTINUE®'^'^^‘^’  ' SUHAT2(L)  =' , SUHAT2(L) 


RETURN 

END 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  lo,  ON 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  15SEP89 

VERSIC»l:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
V8.4,  V8.5  > > , , , 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
& JZERO,  MCHAT) 

INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR 

OUTPUTS:  IZERO,  JZERO,  MCHAT 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  = 150,  MAXREG  = 3,  TTAB  = 31) 

COMMON  lOUT 

INTEGER  I,  lOUT,  L,  NPPR(MAXREG) , NUM,  NUMREG 

REAL  ARG,  CHI025 (CHITAB) , CHI975 (CHITAB) , DD ( MAXREG ) , 

& IZERO(2,  MAXREG),  JZERO(2,  MAXREG),  MCHAT(2,  MAXREG), 

& SUHAT,  SUHAT2 (MAXREG) , SWHAT,  SWHAT2 (MAXREG) , SX, 

«.  SX2(MAXREG),  f,  T025(TTAB)  » 


484419,  0.831211, 
, 3.24697, 

, 6.26214, 

, 9.59083, 

, 13.1197' 

, 16.7908, 

20.56, 

24.4331, 

28.36, 

32.3574, 

36.39, 

40.4817, 

44.60, 

48.7576, 

52.94  / 

57.1532, 

61.39, 

65.6466, 

69.92, 

74.2219, 

78.53, 

82.87, 

87.21, 

91.57, 

95.94, 

100.33, 

104.73, 

109.14, 

113.56, 

117.98  / 


DATA  (CHI025(I 


[),  1=1,  75)  / 

0.OOO982069,  0.506356,  0.215795.  0. 

1.237347, 

1.68987, 

2.17973, 

2.70039 

3.81575, 

4.40379, 

5.00874, 

5.62872 

6.90766, 

10.28293, 

7.56418, 

8.23075, 

8.90655 

10.9823, 

11.6885, 

12.4011 

13-8439, 

14.5733, 

15.3079, 

16.0471 

17 . 53 , 

18.28, 

19.04, 

19.80, 

21.33, 

22.10, 

22.87, 

23.65' 

25.21, 

25.99, 

26.78, 

27.57, 

29.95, 

30.75 

31.55, 

33.16, 

33.96, 

34.77, 

35.58, 

37.21, 

38.02, 

38.84, 

39.66, 

41.30, 

42.12, 

42.95, 

43.77, 

45.43, 

46.26, 

47.09, 

47,92, 

49.59, 

50.42, 

51.26, 

52,10, 

, 150i  / 
54.62, 

55.46, 

56.30, 

57.80, 

58.84, 

59.69, 

60.54, 

62.24, 

63.09, 

63.94, 

64.79, 

66.50, 

67.35, 

68.21, 

69.07, 

70.78, 

71.64, 

72.50, 

73.36, 

75.08, 

75.94, 

76.80, 

77.67 

19.40, 

80.27, 

81.13, 

82.00, 

83.73, 

84.60, 

85.47, 

86.34, 

88.08, 

88.95, 

89.83, 

90.70, 

92.45, 

93.32, 

94.19, 

95.07, 

96.82, 

101.21, 

97.70, 

98.57, 

99.45, 

102.09, 

102.97, 

103.85, 

105.61, 

106.49, 

107.37, 

108.25, 

110.02, 

110.90, 

111.79, 

112.67, 

114.44, 

115.33, 

116.21, 

117.10, 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATA 

& 

(CHI975(I),  1=1, 
5,02389, 

751  / 
7.37776, 

9.34840, 

11.1433, 

12.8325, 

& 

14,4494, 

16.0128, 

17.5346, 

19.0228, 

20.4831, 

& 

21,9200, 

23.3367, 

24.7356, 

26.1190, 

27.4884, 

& 

28.8454, 

30.1910, 

31.5264, 

32.8523, 

34.1696, 

& 

35,4789, 

36.7807, 

38.0757, 

39.3641, 

40.6465, 

& 

41.9232, 

43.1944, 

44.4607, 

45.7222, 

46.9792, 

& 

48.23, 

49.48, 

50.72, 

51.96, 

53.20, 

& 

54.44, 

55.67, 

56.89, 

58.12, 

59.3417, 

& 

60.56, 

61.77, 

62.99, 

64.20, 

65.41, 

71.4202, 

& 

66.62, 

67.82, 

69.02, 

70.22, 

& 

72.61, 

73.81, 

75.00, 

76.19, 

77.38, 

& 

78.57, 

79.75, 

80.93, 

82.12, 

83.2976, 

& 

84.48, 

85.65, 

86.83, 

88.00, 

89.18, 

& 

90.35, 

91.52, 

92.69, 

93.86, 

95.0231, 

& 

96.19, 

97,35, 

98.52, 

99.68, 

100.84  / 

DATA 

& 

(CHI975(I),  I = 76 
102.00, 

, 150)  / 
103.16, 

104.31, 

105.47, 

106.629, 

& 

107.78, 

108.94, 

110.09, 

111.24, 

112.39, 

& 

113.54, 

114.69, 

115.84, 

116.99, 

118.136, 

& 

119.28, 

120.43, 

121.57, 

122.72, 

123.86, 

129.561, 

& 

125.00, 

126.14, 

127.28, 

128.42, 

& 

130.70, 

131.84, 

132.98, 

134.11, 

135.25, 

& 

136,38, 

137.52, 

138.65, 

139.79, 

140.92, 

& 

142,05, 

143.18, 

144.31, 

145.44, 

146.57, 

& 

147.70, 

148.83, 

149.96, 

151.09, 

152.21, 

& 

153.34, 

154.47, 

155.59, 

156.72, 

157.84, 

& 

158.97, 

160.09, 

161.21, 

162.33, 

163.46, 

& 

164.58, 

165.70, 

166.82, 

167.94, 

169.06, 

& 

170.18, 

171.30, 

172.41, 

173.53, 

174.65, 

& 

175.77, 

176.88, 

178.00, 

179.12, 

180.23, 

& 

181.35, 

182.46, 

183.58, 

184.69, 

185.80  / 

VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 

1 - 30,  40,  50,  60,  70,  80,  90,  100  - Theil,  pp.  718-719 

31-39,  41-49,  51-59,  61-69,  71-79,  81-89,  91-99,  101-150 
- CALCULATED  USING  CUBE  RULE  APPROXIMATION 


DATA  T025  / 12.706, 
& 2,365, 
& 2.160, 
& 2,093, 
& 2.060, 


4,303,  3,182,  2.776, 
2.306,  2,262,  2.228, 
2.145,  2,131,  2.120, 
2.086,  2.080,  2.074, 
2.056,  2.052,  2.048, 


2.571,  2.447, 
2,201,  2.179, 
2,110,  2.101, 
2.069,  2.064, 
2.045,  2.042, 


1.960  / 


LIST  OF  VARIABLES 


ARC 

CHI025( ) 
CHI975( ) 
CHI  TAB 
DD() 

I 

I OUT 
IZERO( ) 

JZERO( ) 

L 

MAXREG 
MCHAT ( ) 


NPPR( ) 

NUM 

NUMREG 

SUHAT 


INTERMEDIATE  CALCULATION  VARIABLE 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI025  AND  CHI975 

1- D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025()  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  lo,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
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C SUHAT2 ( ) 
C 

C SWHAT 
C SWHAT2 ( ) 
C 

C SX 
C SX2 ( ) 

C 

C T 

C T025() 

C TTAB 


1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

EQUAL  TO  SWHAT2 (L) **0 .5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  = Ln  s7  Y = Ln  N) 

^ SET  OF  CALCULATIONS 

^^NTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

VALUE  OF  T0^5 ( ) USED  IN  CALCULATI<»JS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 

DO  50  L = 1.  MAXREG 
IZERO(l,L)  =0.0 
IZERO(2,L)  =0.0 
JZERO(l,L)  = 0.0 
JZERO(2,L)  = 0.0 
MCHAT(1,L)  =0.0 
MCHAT(2,L)  = 0.0 
50  CONTINUE 

C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEE3>ED 

DO  75  L = 1,  NUMREG 

IF  (OTPR(L)  .GT.  CHITAB)  THEN 

WRITERS,*)  'ERROR:  fiXCEEDED  LIMIT  OS  DEGREES  OF  FREEDOM 

CALL  ™»AT  ™ “ REOIOI,  •,  L 

ENDIF 
75  CONTINUE 


C 

C 


ASSIGN  VALUES  TO  NUM, 
CONFIDENCE  INTERVALS 


T,  SWHAT,  SUHAT  AND  THEN  CALCULATE 
FOR  EACH  REGION 


DO  100  L = 1,  NUMREG 


NUM  = NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
T = T025(NUM) 

ELSE 

T = T025(NUM) 

ENDIF 


SWHAT  = SWHAT2(L)  **  0.5 
SUHAT  = SUHAT2(L)  **  0.5 
SX  = (NUM  * SX2(L))  **  0.5 

CALCULATE  ESTIMATED  VALUES  OF  M AND  C 

ARG  = T * SWHAT  / SX 
MCHAT(1,L)  = - DD(L) 

MCHAT(2,L)  = SUHAT 

CALCULATE  CONFIDENCE  INTERVALS 


IZERO(l,L) 
IZERO(2,L) 
JZERO( 1,L) 
JZERO(2,L) 


MCHAT(2,L) 

MCHAT(2,L 

MCHAT(1,L) 

MCHAT(1,L) 


FLOAT (NUM 
FLOAT (NUM 
ARG 
ARG 


CH1975(NUM) ) 
CHI025(NUM) ) 


**  0.5 
**  0.5 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE (8,*) 
WRITE(8,*) 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE (8,*) 

WRITE(8,  *) 


10)  THEN 

'L  =',  L,  ' NPPR  =' 
'SWHAT2  =',  SWHAT2(L), 
'SUHAT2  =',  SUHAT2(l' 
'SX2  ='.  SX2(L)  ■ - 


NPPR(L),  ' NUM  =',  NUM 
SWHAT  =',  SWHAT 
SUHAT  = ' , SUHAT 
SX 


i'-' 

OA  = , a»A 

'CHI025  =',  CHI025(NUM),  ' CHI975  =', 

' 7'  ' DD  =',  DD(L),  ' ARG  =',  AR 
IZER0(1»I<),  ' IZERO(2, 


CHI975(NUM) 
ARG 


lZERO(2,L) 
'JZERO(l,L)  = 


JZERO(l,L), 


L)  =', 

JZERO(2,L)  =', 
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S JZERO(2,L) 

WRITE(8,*)  'MCHAT  1,L)  =',  MCHAT(1,L),  ' MCHAT(2,L)  =' , 
i MCHAT  2, L) 

ENDIF 
100  CONTINUE 

RETURN 

END 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPON 
THE  Co  GIVEN  BY  THE  USER 
PROGRAMMER:  L.  NEWLIN 

DATE;  CODE:  80CT87  COMMENTS;  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 

INPUTS;  NUMREG,  CZERO,  SX2,  SXY,  SY2 
OUTPUTS:  MCPNT,  MC 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARGl,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2 (MAXREG) , 

S SXY(MAXREG),  SY2 (MAXREG) 


LIST  OF  VARIABLES 


ARGl  INTERMEDIATE  CALCULATION  VARIABLE 

ARG2  INTERMEDIATE  CALCULATION  VARIABLE 

CZERO  EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO 
CZER02  EQUAL  TO  CZERO  **  2 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MC()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH  REGION 

CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
MCPNT ()  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC()  FOR  EACH  REGION 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SX2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

(X  = Ln  S) 

SXY()  1-D  ARWiY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 

EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

SY2()  1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 

(Y  = Ln  N) 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
MCPNT(L)  = 0 
MC(1,L)  = 0.0 
MC(2,L)  = 0.0 
50  CONTINUE 
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BEGIN  CALCUIiATIONS 
CZER02  = CZERO  **  2 


IF  (lOUT  .EQ.  10) 

& VJRITE(8,*)  'CZERO  = CZERO,  ' CZER02  = CZER02 

DO  100  L = 1,  NUMREG 

ARGl  = SX2(L)  - CZER02 
ARG2  =0.0 

IF  (CZERO  .EQ.  0.0)  THEN 
C THEN  NO  M CONSTRAINT  IS  REQUIRED 

MCPNT(L)  = 0 

ELSEIF  (ABS(ARGl)  .LT.  l.OE-6)  THEN 
C THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 

MCPNT(L)  = 1 

MC(1,L)  = - SY2(L)  / (2.0  • SXY(L)) 

ELSE 


THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOHE 
COMMON  CALCULATIONS 


ARG2  = j(SXY(L)  **  2 - SY2(L)  * ARGl) 

IF  (ARG2  .LT.  0.0)  THEN 

ARG2  IS  NEGATIVE  — IMPLIES  M IS  COMPLEX 
WRITE(8,*)  'ERROR:  Co  TOO  LOW' 

CALL  TRMNAT 
ELSE 

ARG2  = ARG2  **  0.5 
ENDIF 


IF  (SX2(L)  .LT.  CZER02)  THEN 

AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 
MCPNT(L)  = 1 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
ELSE 

SX2(L)  .GT.  CZER02  — THIS  TIME  THE  M CCWSTRAINT  IS  A RANGX 
MCPNT(L)  = 2 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
MC(2,L)  = (-  SXY(L)  + ARG2)  / ARGl 

ENDIF 


ENDIF 
100  CONTINUE 


IF  (lOUT  .EQ.  10 

DO  200  L = 1, 

WRITE(8,*) 
WRITE (8,*) 
WRITE(8,*) 

200  CONTINUE 

ENDIF 


THEN 

NUMREG 

'L  = ',  L,  ' MCPNT  = ', 
'ARGl  = ',  ARGl,  ' ARG2 
'MC(1,D  = ',  MC(1,L), 


MCPNT(L) 

= ',  ARG2 

MC(2,L)  = ',  MC(2,L) 
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RETURN 

END 


c 

c 

c 

c 

c 

c 


c 

c 


CODE;  21jxnj88  COMMENTS;  13JUL89 
VERSION:  MATCHRV8.1,  V8.2,  V8.3,  V8  4, 

MATGRMV4.1,  V4.2,'  V4.3,'  V4.4;  V4.5 

SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 
OUTTOTS;  PVAR®'  ^CHAT 


C IMPLICIT  NONE 


INTEGER  MAXREG,  MAXSET 
PARAMETER  (MAXREG  = 3,  MAXSET  = 5) 
COMMON  lOUT 


INTEGER  jW^^J,^^(0:MAXSET,  MAXREG),  NSETS,  NUM  ( MAXREG ) , 
real  LAMN,  MCHAT(2,  MAXREG),  PS IG2 (MAXREG) , PVAR,  SUM 


lOUT 

J 

L 

LAMN 

MAXREG 
MAXSET 
MCHAT 0 


NP() 

NSETS 

NUM() 

NUMREG 
PSIG2 ( ) 

PVAR 

SUM 

TOTAL 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

^ each  data  SET 

^ LOOP  FOR  EACH  REGION 
LA^fflDA— N — RATIO  OF  Var  (Ln  N QXVGn  S^  / 

CONSTANT  OVER  REGIONS  AND  COMPONENTS  ^ 

MMIMim  NUMBER  OF  REGIONi^^S^^**^® 

^ATA  sets  ALLOWED 

CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

materials  D^r^Y  “ ^ 

MCHAT  ESTIMATE  FOR  M AND 

o SUHAT,  THE  ESTIMATE  FOR  C 

^~SET^  EACH^MGION  POINTS  OF  EACH  S/N  DATA 

material  s/n  data  sets 

NUMBER  OF  REGIONS  OF  INTEREST 

VA^foN^^n^CH^RiilO^"^®  materials  PROCESS 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEHTam  c/m 

A^^GE®^”  PSIG2s  - USED  TO  CALCULATE  A WEIGHTED 

SUM  OF  NUM( ) OVER  ALL  REGIONS 


INITIALIZE  VARIABLES 

SUM  = 0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2(L)  =0.0 
NUM(L)  = 0 
50  CONTINUE 

DO  100  L = 1,  NUMREG 
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DO  150  J = 0,  NSETS 

NUM(L)  = NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  = TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L = 1,  NUMREG 

PSIG2(L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2(L)  * NUM(L) 

200  CONTINUE 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'LAMN  = LAMN 
DO  300  L = 1,  NUMREG 

WRITE(8,*)  'L  = ' , L,  ' NUM  = NUM(L) 

WRITE(8,*)  'MCHAT  = MCHAT(2,L),  ' PSIG2  = PSIG2(L) 
300  CONTINUE 

WRITE(8,*)  'TOTAL  = ',  TOTAL,  ' SUM  = ',  SUM 
ENDIF 

PVAR  = SUM  / FLOAT  (TOTAL) 

RETURN 

END 


C********** ****************** ******************************************** 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOWLEDGE  ON  BOTH 
M AND  Co  WITH  THE  95%  CONFIDENCE  INTERVALS  (JZERO  FROM  INTRVL) 

TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT / COMMENTS : 12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7*l,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4*l,  V4.2,  V4*3,  V4.4,  V4.5 

SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 

& MCHAT,  RANGEM) 

INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT ( MAXREG ) , NUMREG 

REAL  JZERO(2,  MAXREG),  LOWER,  MC(2,  MAXREG),  MCHAT(2,  MAXREG), 
& MZERO(2,  MAXREG),  RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 
lOUT  OUTPUT  DUMP  CONTROLLER 

JZERO(  ) 2-D  ARRAY  CONTAINING  JO,  THE  95%  CONFIDENCE  INTERVALS  ON  M 

FOR  EACH  REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  LOWER  BOUND  OF  INTERSECTION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MC()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 

REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
- MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

MCHAT ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

FOR  EACH  REGION  - MCHAT(1,L)  = - DD(L),  THE  ESTIMATE 
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MCPNT ( ) 
MPNT( ) 
MZERO ( ) 

NUMREG 
RANGEM( ) 

UPPER 


1 MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 

O"  ,“.T  Sr  2,  IH 

^'SzSiSt)  »■  1-  2.  ™ 

values  of  the  prior  ranges  <»l  M FOR 
IS  TH^UPpL“bOUND°^^'^^  MZERO(2,L) 

ipMBER  OF  REGIONS  OF  INTEREST 

2— D ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

RANGEM(2,L)  IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  INTERSECTION 


C 

C 


c 

c 


c 

c 


INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  = 0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L = 1,  NUMREG 

IF  (lOUT  .EQ.  10)  THEN 

J^JTE(8,*)  'L  = ',  L,  ' NUMREG  = NUMREG 
^^TOITE(8,*)  'MPNT  = MPNT(L),  ' MCPNT  = JK:PNT(L) 

IF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 

RANGEM(1,L)  = JZERO(l.L) 

RANGEM(2,L)  = JZERO^,L) 


& 

& 


IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(1,L)  = RANGEM(1,L), 

JZERO(i.L)  = JZER0(1;L) 

WRITE(8,*)  'RANGEM(i,L)  = RANGm(2,L), 

' JZER0(^,L)  = *,  jzero(2;l) 

ELSEIF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

TO  ?A,  THERE  IS  A LOWER  BOUND  ON  M DUE 

TO  Co,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 

LOV^R  = AMAXl(JZERO(l,L),  MC(1,L)) 

UPPER  = JZER0(2,L)  y > II 

IF  (UPPER  .LT.  LOWER)  THEN 

C^^T^At'^^°^‘  intersection  between  Jo  and  Me' 

ELSE 

RANGEM(1,L)  = LOWER 
RANGEM ( 2 , L ) = UPPER 
ENDIF 


IF  (lOUT  .EQ.  10)  THEN 
WRITE(8,*)  'JZERO(l,D 
' JZERO(2,L) 
WRITE(8,*)  'MC(1,D  = 
WRITE (8,*)  'LOWER  = ', 
WRITE(8,*)  'RANGEM(1,D  = 
' RANGEM(2,L)  = 
ENDIF  ' ' ' 


= ',  JZERO(l,L), 

= ',  JZERO(2,L) 

, MC(1,L) 

lower,  ' UPPER  = ' , 
RANGEM(1,L), 
RANGEM ( 2, L) 


UPPER 


ELSEIF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANOF 
CORRESPONDING  TO  THE  CO  CONSTRAINT,  ADJUST  Jo^^TORDINGLY 
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LOWER  = AMAX1(JZER0(1,L),  MCU,I.)  ) 
UPPER  = AMIN1(JZERoU»L)/  MC(2,L)  ) 
IF  (UPPER  .LT.  LOWER)  THEN 


WRITE (8,*) 

CALL  TRhINAT 
EXjSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 


IF 


(lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE(8,*) 


10)  THEN 
'JZERO(l,L)  = 

' JZER0(2»L)  = 

'MC(1,L)  = ■ 

' LOV^R  = ' _ 

'RANGEM(1,L)  = ' , ' RANGEMU/L)  . 
' RANGEM(2,L)  = RANGEM(2,L) 


JZERO(l,L), 

JZERO(2,L) 

MC(1,L),  ' m6(2,L)  = MC(2,L) 

LOWER,  ' UPPER  = ' , UPPER 


ENDIF 


i 


ELSEIF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFOTMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM(1,L)  = MZERO(l,L) 
RANGEM(2,L)  = 0.0 


IF  (lOUT  .EQ. 
TOITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
'MZERO(l.L)  = ' 
'RANGEM(1,L)  = 

' RANGEM(2,L)  = 


MZERO(l,L) 

, RANGEH(1,L), 
, RANGEM(2,L) 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT 
USE  INTERSECTION  BETWEEN  JO  AND  MO 


LOWER  = AMAXl(JZERO(l,L),  MZEROa.I* 
- -,),  MZER0(2,L 


UPPER  = AMINl(JZERO(2,L 
IF  (UPPER  .LT.  LOWER)  T1 
'ERROR:  1 

CALL  'TRilNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


THEN 

NO  INTERSECTION  BETWEEN  Jo  AND  Mo' 


& 

& 


6 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


JZERO(l,L) , 
JZERO(2,L) 
MZERO(l,L)  , 

. MZERO(2,L) 

'LOVffiR  =''j  LOWE»,  ' UPPER  = 
'RANGEM(1,L)  = ',  RANGEM(1,L) 
RANGEM(2,L)  = ',  RANGEM(2,L) 


10)  THEN 
'JZERO(l,L)  = ', 
JZERO(2,L)  = ', 
'MZERO(l,L)  = ', 

M»7Tron/  O T.\  = ' 


UPPER 


& 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 


THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND 
CONSTRAINT,  INTERSECT  JO  AND  Mo,  ADJUSTING  THE 
BY  Me  ACCORDINGLY 


DUE  TO  Co 
LOWER  BOUND 


LOWER  = AMAXl(JZERO(l,L),  MZERO(l,L),  MC(1,L)) 

UPPER  = AMINl(JZERO(2,L) , MZERO(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  JO,  MO,  , 

'AND  Me' 

CALL  TRMNAT 
ELiSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 
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& 

& 


IF  (lOUT  .EQ, 
WRITE(8,*) 

WRITE(8,*) 

WRITE(8,^) 
WRITE  < 8 , ♦ ) 
WRITE(8,*) 

t 

ENDIF 


10)  THEN 

'JZEROa,Ll  = JZERO(l,L), 

JZERO(2,L)  = JZERO(2'l) 

'MZERO  1,L)  = MZERO(l,L), 

MZERO(2,L)  = MZERO(2,L) 

'MC(1,D  = MC(1,L) 

'LOWER  = ' , LOWER,  ' UPPER  = ' , UPPER 
'RANEGM(1,L)  = RANGEM(1,L), 

RANGEM(2,L)  = RANGEM(2,L) 


C 

C 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES  WITH  Jo 

LOWER  = AMAXl(JZERO(l,L) , MZERO(l,L),  MC(1,L)) 

UPPER  = AMINl(JZERO(2,L),  MZERO  2, L MC  2!l) 

IF  (OTPER  .LT.  LOWER)  THmJ  ' ' I 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo,  '. 

'AND  Me'  > r , 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 

& 


IF  (lOUT  .EQ.  10)  THEN 

Write (8,*)  'jzero(1,L)  = 

' JZERO(2,L)  = 

WRITE(8,*)  'MZERO(l,L)  = 

' MZERO(2,L)  = '■  MZEr6?2! 
WRITE(8,*)  'MC(1,L)  = ',  MC(1,L) 
WRITE<8,*)  'LOWER  = ',  LOWER,  'UPPER  = ' 
WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

ENDIF  ' = ',  RANGEM(2;L) 


JZERO(l,L) , 
JZERO(2,L) 
MERO(l,L», 
2,L) 


UPPER 


ELSE 


WRITE (8,*)  'ERROR: 
CALL  TRMNAT 


PRIOR  ON  M INCORRECTLY  SPECIFIED  IN 


ENDIF 


RESTRICT  RANGE  TO  BE  NON-NEGATIVE 
RANGEM(1,L)  = AMAXl (RANGEM( 1,L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L) 
100  CONTINUE 


CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 
DO  300  L = 1,  NUMREG 


IF  ((MCHAT(1,L)  .LT.  RANGEM(1,L)) 

& .OR.  (MCHAT(1,L)  .GT.  RANGEM(2,L) ) ) 

& WRITE{8,*)  'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE  '. 

' ON  m IN  REGION  ' , L 

300  CONTINUE 


RETURN 

END 
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SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 
WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT/COMMENTS;  12AUG91 

VERSICMJ:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  LL,  MPNT(MAXREG) , NNODAT,  NUMREG 

REAL  MCHAT(2,  MAXREG),  MZERO(2,  MAXREG),  RANCTIM(2,  MAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LL 

MAXREG 
MCHAT( ) 


MPNT() 
MZERO( ) 


NNCOAT 
NUMREG 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATI(»1S 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AMD 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  - 
MCHAT(1,L)  = - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  F<Hl  C 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ( ) FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RAMGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 


IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  =' , NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'L  =' , L,  ' NUMREG  =' , NUMREG, 
& ' LL  =',  LL,  ' MPNT(LL)  =',  MPNT(LL) 


& 

& 


IF  ((MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM(1,LL)  = MZERO(l,LL) 

RANGEM(2,LL)  = MZERO(2,LL) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(1,LL)  =',  RAMGEM( 1,LL) , 

' MZERO(l,LL)  = ',  MZERO(l,LL) 
WRITE(8,*)  'RANGEM(2,LL)  =',  RANGEM(2,LL) , 

' MZERO(2,LL)  = ',  MZERO(2,LL) 

ENDIF 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  (RAMGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT(1,LL)  = RANGEM(1,LL) 

ELSE 
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MCHAT(1,LL)  = (RANGEM( 1,LL)  + RANGEM(2,LL) ) / 2.0 
ENDIF  \ > II 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'MCHAT  =' , MCHAT(1,LL) 
ELSE 

WRITE (8,*)  'ERROR;  OVERALL  PRIOR  RANGE  INCORRECTLY 
& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVITY  CONSTRAINTS 
PROGRAMMER:  L.  NEWLIN 

DATE;  2FEB88  FORMAT/COMMENTS;  15SEP89 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MA'TGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 

INPUTS;  NUMREG,  RANGEM 
OUTPUTS ; RANGEM 
SUBPROGRAMS ; TRMNAT 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 
COMMON  lOUT 


INTEGER  lOUT,  L,  NUMREG 

REAL  RANGEM(2,  MAXREG),  TESTM 


LIST  OF  VARIABLES 


lOUT 

L 

MAXREG 
NUMREG 
RANGEM ( ) 


TESTM 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  REGIONS  OF  INTEREST 

2-D  array  containing  values  of  the  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ^,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-1  — USED  DURING 
CONCAVITY  ADJUSTMENT 


C ADJUST  RANGE  TO  INSURE  CONCAVITY 


DO  100  L = NUMREG,  2,  -1 


C 


C 


& 


IF  (RANGEM(2,L-1)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT  IN  REGION  L-1 

IF  ( RANGEM (1, L-1)  .GT.  AMAXl (RANGEM( 1,L) ,RANGEM(2,L) ) ) THEN 
WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  L, 

' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGION  '.L-1 
CALL  TRMNAT 
ENDIF 
ELSE 


RANGE  IS  AN  INTERVAL  IN  REGION  L-1 
TESTM  = AMAXl ( RANGEM (l.L),  RANGEM(2,L)) 

IF  ('TESTM  .LT.  RANGEM(  1 , L-1 ) 1 THEN 

WRITE (8,*)  'ERROR:  POSTEMOR  INTERVAL  IN  REGION  L, 
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& 

& 


' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN  ' . 
'REGION  L-1  ' 

CALL  TRMNAT 
ELSE 

RANGEM(2,L-1)  = AMINl <RANGEM(2 ,L-1 ) , TESTM) 

ENDIF 

ENDIF 


& 

& 


IF  (lOUT  .EQ. 
WRITE (8,*) 

WRITE(8,*) 

WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'RANGEM(l.L-l)  =',  RANGEM( l.L-1) 
' RANGEMfi,L-i)  =' , RANGEM(5,L-i 
'RANGEM(1,L)  =',  RANGEM(1,I.) 

' RANGEM(2,L)  =' , RANGEM(2,L 
'TESTM  =',  TESTM,  ' L = ',  L 


100  CCWTINUE 


RETURN 

END 


C***************************-k1fk1r*i,1c*1rk********-tttr*1iiriiirkm,1,1,*i,it1,1,1i1,i,itirkir*1t1, 


SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  Co 
PROGRAMMER:  L.  NEWLIN 

CODE;  50CT87  COMMENTS;  1DEC87 

MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
Vo • 4 1 Vo • 5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4,4,  V4.5 


DATE: 
VERSION: 


SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 


INPUTS:  NUMREG,  RANGEM 

lOUTPUT:  MEDM 


IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 
COMMON  lOUT 


INTEGER  lOUT,  L,  NUMREG 

REAL  LOWERM,  MEDM ( MAXREG ) , RANGEM(2,  MAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LOWERM 

MAXREG 
MEDM( ) 
NUMRTO 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CONSIDERATION) 

TO  BE  USED  IN  MEDIAN  ^CULATION  ; 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(l^L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 


C INITIALIZE  ARRAY  MEDM 

DO  50  L = 1,  MAXREG 
MEDM(L)  =0,0 
50  CONTINUE 
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c 

c 


BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

IF  (RANGEM(2,L)  ,EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  = RANGEM(1,L) 

ELSEIF  (L  .EQ,  1)  THEN 

WE  ARE  IN  REGION  ONE  — NOT  AFFECTED  BY  OTHER  REGTON^ 
- MEDIAN  WILL  JUST  BE  AVERAGE  OF 

MEDM(L)  = (RANGEM(1,L)  + RANGEM(2,L) ) / 2.0 
ELSE 

MUST  TAKE  MEDIAN  OF  REGION  L-1  INTO  ACCOUNT 

LOWERM  = AMAXl (RANGEM( 1,L) , MEDM(L-l)) 

MEDM(L)  = (LOWERM  + RANGEM(2 , L) ) / 2.6 

ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

L,  ' NUMREG  = NUMREG 
WRITE(8,*)  'RANGEM(1,L)  = RANGEM(l.L), 

^ ' RANGEM(2,L)  = ' RANGEM/2  Li 

END^P^"^^^®'*^  LOWErJT^'  = 


MEDM(L) 


100  CONTINUE 

RETURN 

END 


C'^***it’k*irir'kir*icitit 


c 

c 

c 

c 

c 

c 

c 

c 

c 


calculates  the  expected  or  median  values  of  the  s/n 

PROGRAMMER:  L.  NEWLIN 

VERSION-  MATCro  A ,^°^T/C0MMENTS : 15SEP89 

V£.K2>iON.  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technoloov 
is  actowlSd^ed  under  NASA  Contract  NAS??^i8 


C 

C 

c 

c 


SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO 
ZROREG,  NBND,  BIGkI,  BZHAT)  ' 


NUMREG, 


OOT^fi:  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 


IMPLICIT  NONE 


INTEGER  MAXDAT , MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  I OUT 


INTEGER  lOUT,  L,  NCOMPS,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 


REAL 

& 

& 


BIGK ( 0 : MAXREG ) , BIGKl,  BZHAT,  FACTR.  KHAT  MEANZ 
MEDM(Ma3cREG)  , MM  ( 0 : MAXREG ) , NBND  ( 0 • MAXREG  \ ' 

NF(MAXDAT,  MAXREG),  SBND ( 0 : MAXREG ) , STR(MAXDAT,  MAXREG), 
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& SZ2,  SZERO,  TRBIGK(0:MAXREG),  ZZ(MAXDAT) 


C 

c 

C BIGK() 

C 

C BIGKl 
C BZHAT 
C FACTR 
C lOUT 
C KHAT 
C L 

C MAXDAT 
C MAXREG 
C MEANZ 
C MEDM(  ) 

C MM(  ) 

C NBI^O 
C 

C NCOMPS 
C 

C NF(  ) 

C 

C NP 
C 

C NPTS ( ) 

C 

C NUMREG 
C SBND() 

C 

C 

C STR( ) 

C 

C SZ2 
C SZERO 
C TRBIGKO 
C 

C ZROREG 
C 

C ZZ() 


LIST  OF  VARIABLES 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E ( BETAO i 

A SCALE  FACTOR  = PHI  * KRATIO  * Z 
OUTPUT  DUMP  CONTROLLER 

c^nIrols  do  loop  for  each  region 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

, MM) 

EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

Number  of  COMPonentS  - 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  — 2 FOR  DECOMPOSED  STRAIN  DATA 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 


MAXIMUM  NUMBER  OF  REGICXIS  ALLOWED 
SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF, 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 


DATA  SET 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 


i-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND ( ) 


2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT,  So 

1-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 
TRBIGK(i)  = BIGK(i) 

ZeRO  REGlon  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

DO  50  L = 0.  MAXREG 
MM(L)  = 0.0 
50  CONTimJE 

C CREATE  MM( ) ARRAY  FROM  MEDM( ) ARRAY 

DO  100  L = 1,  NUMREG 
MM(L)  = MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ , MEANZ,  SZ2) 

C CALCULATE  BETAo  AND  k 

CALL  KBETA  (MEANZ,  SZ2,  KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGKl  = BIGK(l) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 
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CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 


DO  150  L = ZROREG,  NUMREG 
TRBIGK(L)  = BIGK(L) 

150  CONTINUE 


IF  (ZROREG  .EQ.  0)  THEN 
FACTR  =1.0 

CALL  KOMO  (SZERO,  BIGK,  MM, 
' FACTR,  NUMREG) 
ENDIF 


NBND, 


SBND,  TRBIGK, 


C WRITE  RESULTS  TO  FILE 

IF  (NC<^S  ,EQ.  1)  THEN 


& 

200 


WRITE(7,900)  NUMREG,  BZHAT,  KHAT 

IF  (I6UT  .EQ.  10)  WRITE(8,§00)  NUMREG,  BZHAT,  KHAT 


DO  200  L = ZROREG 
WRITE(7,910)  L 
IF  (IOUT  .EQ. 

CC»ITINUE 


, NUMREG 

, MM(L),  TRBIGK(L),  NBND(L),  SBND(L) 
10)  WRITE(8,910)  L,  MM(L),  TRBIGK  L 
NBND(L),  SBND(L) 


WRITE(7,920) 

ELSE 


WRITE (7, 930)  MM(1),  BIGK(l),  KHAT 
ENDIF 


C FORMAT  STATEMENTS 


910  F0RMAT(5X,11,5X,F9.5,5X,E12.5,5X,E9.3,9X,E11.5) 

920  FORMAT(///) 


930  F0RMAT(//,2X,  PARA^TER  VALUES  FOR  MEDIAN  S/N  CURVE' 
I 'K',13X, 'E(k)', 

& //f 7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


c 

c 

c 

c 

c 

c 


SUBROUTINE  MUSIC  CALCULATES  THE  POSTERIOR  NORMAL  DISTRTRlJTTrw 

deviation,  SIG; 


DATE 

VERSION 


CODE;  21JUN88 
MATCHR  V8.1,  V8.2, 
MATGRM  V4.1,  V4.2 


COMMENTS ; 13 JUL89 

V8.3,  V8.4,  V8.5 
V4.3,  V4.4,  V4.5 


PARAMETERS: 


C 

C 


SUBROUTINE  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2.  NPPR 
* MO,  SIGMA2,  MCHAT,  MU,  SIG)  ' 


DELTA, 


INPUTS; 
OUTPUTS ; 


NUMREG,  SX2,  DD, 
MCHAT,  MU,  SIG 


SWHAT2 , 


SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 


C IMPLICIT  NONE 
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INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG,  NPPR( MAXREG) 

REAL  ARG,  DD ( MAXREG ) , DELTA ( MAXREG) , MCHAT(2,  MAXREG), 

& MO(MAXREG),  MU(MAXREG),  SIG(MAXREG),  SIGMA2 (HAXRiXS) , 

& SUHAT2  (MAXREG)  , SUMX2,  SWHAT2  (NAX^G) , SX2  (MAXREG) 


LIST  OF  VARIABLES 

ARG  INTERMEDIATE  CALCULATION  VARIABLE 

DD()  1-D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 

DELTAO  1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 

SIG()  CALCULATION 
lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGION  ALLOWED 

MCHAT( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 

EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — MCHATfl,L)  = 

- DD(L),  THE  ESTIMATE  FOR  M AND  MCHAT(2,L)  = SUHAT, 

THE  ESTIMATE  FOR  C 

MO()  1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION 

MU()  1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  MEAN  FOR  EACH  REGION 

NPPR()  1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-!))-!)  OVER  ALL 

DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMREG  NtJMBER  OF  REGIONS  OF  INTEREST 

SIG( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGKXl 
SIGMA20  1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

SUHAT20  1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  » Ln  S,  Y > Ln  N) 

SUMX2  EQUAL  TO  NPPR( ) * SX2 ( ) FOR  A PARTICULAR  REGION 

SWHAT20  1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

SX2  ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  ^GION 

(X  = Ln  S) 


INITALIZE  ARRAYS 

DO  50  L = 1,  MAXREG 
MCHAT(1,L)  = 0.0 
MCHAT(2,L)  = 0.0 
MU(L)  = 0.0 
SIG(L)  = 0.0 
50  CCaJTINUE 

BEGIN  CALCULATION  FOR  EACH  REGION 

DO  100  L = 1 , NUMREG 

MCHAT(1,L)  = - DD(L) 

MCHAT(2,L)  = SQRT  (SUHAT2(L)) 

SUMX2  = NPPR(L)  * SX2(L) 

ARG  = SUMX2  + DELTA(L) 

IF  (DELTA(L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  WAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU(L)  = MCHAT(1,L) 

ELSE 

C UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 

MU(L)  = (MCHAT(1,L)  * SUMX2  + MO(L)  * DELTA(L))  / ARG 
ENDIF 

IF  (SIGMA2(L)  .EQ.  0.0)  THEN 

C THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 
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C USE  SWHAT2  AS  AN  ESTIMATE  OF  SIGMA-HAT-2 

SIG(L)  = SQRT  (SWHAT2(L)  / ARG) 

ELSE 

SIG(L)  = SQRT  (SIGMA2(L)  / ARG) 

ENDIF 


& 

& 

& 


& 


IF  (lOUT  .EQ,  10)  THEN 

MRITE(8,*)  'L  = ',  L,  ' DD  = ' , DD(L),  ' MCHATl  = 

MCHATa,L) 

WRITE(8,*)  'SUHATi  = SUHAT2(L),  ' MCHAT2  = ' 

MCHAT(2,L) 

WRITE(8,*)  'NPPR  = NPPR(L),  ' SX2  = ' SX2(L), 

' SUMX2  = ' , SUMX2 

WRITE(8,*)  'DELTA  = DELTA(L),  ' ARG  = ARG 
WRITE(8,*)  'MO  = ',  MO(L),  ' MU  = ' , MU(L) 

WRITE (8,*)  'SWHAT2  = SWHAT2(L),  ' SIGMA2  = SIGMA2(L), 
' SIG  = ' , SIG(L) 

ENDIF 


100  CONTINUE 


RETURN 

END 


c 

c 

c 

c 

c 

c 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  CO  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT / COMMENTS : 12AUG91 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8,l,  V8.2,  V8,3,  V8,4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 


C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

C OUTPUTS : RANGEM 

C SUBPROGRAMS:  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 


COMMON  lOUT 


INTEGER  lOUT,  L,  MCPNT  ( MAXREG ) , MPNT  ( MAXREG ) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG),  MCHAT(2,  MAXREG),  MZERO(2,  MAXREG), 
& RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


lOUT 

L 

LOWER 

MAXREG 

MC() 


MCHAT ( ) 


MCPNT ( ) 
MPNT( ) 
MZERO ( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
LOWER  BOUND  OF  INTERSECTION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
— MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  array  containing  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT(1,L)  = - DD(L)  , THE  ESTIMATE 
FOR  M AND  MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC()  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
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EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  ' / / 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEM( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
UPPER  UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 


DO  50  L = 1,  MAXREG 
RANGEM(1,L)  = 0.0 
RANGEM(2,L)  = 0.0 
50  CCWTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
DO  100  L = 1,  NUMREG 


IF  (lOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  = ',  L,  ' NUMREG  = NUHB^G 

WRITE (8,*)  'MPNT  = MPNT(L) , ' MCPNT  = MCPNT(L) 


IF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  <MJ  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM( 1,L) 
RANGEM(2,L) 


MZERO(l,L) 

0.0 


& 


IF 


(I OUT  .EQ. 
WRITE(8,*) 
WRITE ( 8 , * ) 


ENDIF 


10)  THEN 
'MZERO( l.L) 
'RANGEM(1,L) 
RANGEM(2,L) 


MZERO(l,L) 

, RANGEH(1,L), 
, RANGEM(2,L) 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  M,  BUT  NO  Co  CONSTRAINT  USE  Mo 

RANGEM(1,L)  = MZERO(l,L) 

RANGEM(2,L)  = MZERO(2,L) 


& 

& 


IF  (I OUT  .EQ. 
WRITE(8,*) 

WRITE( 8, *) 

ENDIF 


10)  THEN 
'MZERO( 1,L) 
MZEROj2,L) 
’RANGEM(1,L) 
RANGEM(2,L) 


, MZERO(l,L), 

, MZERO(2,L) 
RANGEM(1,L), 

rangehU,l) 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  Mo  BY  Mc 


LOWER  = AMAXl(MZERO(l,L),  MC(1,L)) 

UPPER  = MZERO(2,L) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  MC- 

CALL TRMNAT 
ELSE 


RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


& 


IF 


(lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


10)  THEN 
-MZERO( 1,L) 
MZERO(2,L) 
'MC(1,L)  = ' 
'LOWER  = 
-RANEGM(1,L) 
RANGEM(2,L) 


= ',  MZERO(l,L), 

= MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = 
= RANGEM(1,L) 

= RANGEM(2,L) 


UPPER 
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ENDIF 


C 

C 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 

LOWER  = AMAXl(M2ERO(l,L) , MC(1,L)) 

UPPER  = AMINl(MZERO(2,L),  MC(2,L) 

IF  (UPPER  .LT.  LOWER)  THEN  ' ' '' 

WRITE(8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  MO  AND  HC ' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LCWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 

ENDIF 


10)  THEN 
'MZERO( 1,L) 
MZERO(2,L) 
'MC(1,L)  = ' 
'LOWER  = ' , 
'RANGEM( 1,L) 
RANGEM(2,L) 


= MZERO(l,L), 

= MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = ' 
= RANGEM(1,L), 

= RANGEM(2,L) 


UPPER 


ELSE 

WRITE (8,*)  'ERROR!  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' . L 
CALL  TRMNAT 

ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  = AMAXl (RANGEM( 1 , L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L) 
100  CONTINUE 


CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((MCHAT(1,L)  .LT.  RANGEM(1,L)) 

& .OR.  (MCHAT(1,L)  .GT.  RANGEM(2 ,L) ) ) 

fi  WRITE(8,*)  'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE 

4 ' ON  m IN  REGION  ' , L 

300  CONTINUE 


RETURN 

END 


C*  * * * * * W * 


* "tr  * -k  Ik -k  ***’^*k*’kir*'k’k-k'k‘k-k-k'k'k-k'krkkiriritie*irir*itirir1t1c’kitirktitit*irir1tirit1rir 


c 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT / COMMENTS : 12AUG91 

VERSION:  MATCHRV7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG, 
i MZERO,  MPNT,  MO,  SIGMA2 ) 

INPUTS!  RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO,  MPNT, 
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MO,  SIGMA2 

OUTPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NUMREG 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  LL,  MPNT (MAXREG) , NNODAT,  NUMREG 

REAL  MCHAT(2,  MAXREG),  MO(MAXREG),  MU(MAXREG), 

i MZEROp,  MAXREG),  RANGEM(2,  MAXREG),  SIG(MAXREG), 

& SIGMA2 (MAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LL 

MAXREG 
MCHAT ( ) 


MO() 
MPNT( ) 
MU() 
MZERO(  ) 

NNODAT 
NUMREG 
RANGEM () 

SIG() 
SIGMA2  0 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  = - DDXL),  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTICMJ 
MEAN  FOR  EACH  REGIC»1 


1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  C»I  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTI<»I 
VARIANCE  FOR  EACH  REGION 


IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  =' , NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'L  =' , L,  ' NUMREG 
& ' LL  =',  LL,  ' MPNT(LL)  =',  MPNT(LL) 


NUMREG, 


& 

& 


& 


IF  ((MPNT(LL)  .EQ.  1)  .OR 

POSTERIOR  ON  M IS  SAME  

RANGEM(1,LL)  = MZERO(l,LL) 
RANGEM(2,LL)  = MZERO(2,LL 
MU(LL)  = MO(LL) 

SIG(LL)  = SQRT(SIGMA2(LL) ) 
IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(1,LL) 
' MZERO(l,LL) 
' RANGEM ( 2, LL) 
' MZERO(2,LL) 
'MU(LL)  = ' 
'SIG(LL)  = 
SIGMA2(LL) 


(MPNT(LL)  , 
AS  PRIOR  ON 


mi, 

M 


WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


=',  RANGEM(1,LL) 

= ',  MZERO(l,LL" 

=',  RANGEM(2,LL, 

= ',  MZERO(2,LL) 

MU(LL),  ' MO(LL)  = ',  MO(LL) 
SIG(LL),  ' SIGMA2(LL)  = ', 


i. 


END  IF 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 
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IF  ( RANGEM ( 2 , LL ) . EQ . 0.0)  THEN 
MCHAT(1,LL)  = RANGEM(l.LL) 

MU(LL)  = RANGEM(1,LL) 

SIG(LL)  = 0.0 
ELSE 

~ (RANGEM(1,LL)  + RANGEM ( 2, LL ) ) / 2.0 
IF  10)  WIITE(8^  =',  MCHAT(1,LL), 


SIG(LL) 


MU  = MU(tL)/  ' iSiG 
ELSE  ' ^ ' 

WRITE ( 8 , ♦ ) ' ERROR : OVERALL  PRIOR  RANGE  INCORRECTLY 

* 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


************* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  PARE ST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMFTFR 

MATiS^Si  CH^cSi|^?^^DEL 


DATE: 

VERSION: 


CODE:  13FEB89 

MATCHR  V8.3,  V8.4, 
MATGRM  V4.3,  V4 . 4 


FORMAT/COMMENTS:  15SEP89 
V8.5  - FOR  USE  WITH  PFM'S 
V4.5 


Copyr^ht  (C)  1990,  Califprnia  Institute  of  Technology, 
y.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  aCKnowiedgea . 


C 

C 

c 

c 

c 


SUBROUTINE  RAREST 

& 

& 


(VARY,  RANGEM,  MU,  SIG,  NF 
ZROREG,  RAND,  NBND,  STR, 
SBND) 


, NPTS 
BIGK, 


, NUMREG, 
BZERO,  MM 


INPUTS:  NPTS,  NUMREG,  ZROREG,  RAND, 

OUTPUTS:  BIGk'  BZERO,  MM,  SBND 

SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB 

IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 


INTEGER  lOUT,  L,  NP,  NPTS ( MAXREG ) , NUMREG,  VARY,  ZROREG 

REAL  ' BZERO,  K,  MEANZ,  MM ( 0 : MAXREG ) , 

t NBND(0:MAXREG)  , NF(MAXDAT,  MAXREG), 

t MAXREG),  SBND  (fO:  MAXREG ) , SIG(MAXREG), 

& STR(MAXDAT,  MAXREG),  SZl , ZZ (MAXDAT)  ' ^ 

DOUBLE  PRECISION  RAND 


C 

c 

c 

c 


BIGK( ) 

BZERO 
I OUT 
K 
L 

MAXDAT 

MAXREG 


LIST  OF  VARIABLES 

^"Lc^gion^^^”^“°  values  of  k,  where  a = k **  m for 
ootpSt°du)^^c^ro^^'^^^'  characterizing  s/n  data  set 

matekim.  mta  base 
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MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

MU()  1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  MEAN  FOR  EACH  REGION 

NBND<)  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NF()  2-D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGICWS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS()  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEMO  2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGIC»1  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
RAND  RANDOM  NUMBER  SEED 

SBND()  1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 

SIG( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 

STANDARD  DEVIATION  FOR  EACH  REGION 

STR( ) 2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SZ2  SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

VARY  CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  - 0 - NO  VARIATICW; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATICMJ; 

3 - TRUNCATED  NORMAL  VARIATION 

ZROREG  ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
ZZ()  1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE.  2)  THEN 

C UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 

CALL  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

ELSE 

C NORMAL  VARIATION  IN  M IS  DESIRED 

CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 
ENDIF 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ , MEANZ,  SZ2) 

C CALCULATE  THE  VALUES  FOR  k AND  BETAo  FROM  THE  SAMPLE  MEAN 
C AND  VARIANCE 

CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

C CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A = K **  M 
CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C WRITE  RESULTS  TO  FILE 
C WRITE (7, 900)  NUMREG,  BZERO 

C DO  200  L = ZROREG,  NUMREG 
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UOUCJUUOUCJUUUUU 


c 

c 


200 


WRITE(7,910)  L,  MM(L), 
CONTINUE  ' ' 


BIGK(L) 


NBND(L),  SBND(L) 


C 

C 


WRITE(7,920) 
FORMAT  STATEMENTS 


4 ' STRESS  BOUND '!/')' 


RETURN 

END 


C**'^****irfr±*’kitiriririririe-kfriririt*itirir*^it 


**'^'*r^iciclrlr*itiriririr*^^rirttititiririr‘kitieltitititlririeiHt1r*itir 


c 

c 

c 

c 

c 

c 


c 

c 

c 


FINDM  CALCUIATES  THE  VALUE  OF 
APPROPRIATE  M RANGE 
PROGRAMMER;  L,  NEWLIN 

CODE:  7JUN88  COMMENTS: 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  VS.3 
MATGRM  V4,  V4.1,  V4.2,  V4.s' 


M FOR  EACH  REGION  BY 


13JUL89 
V8,4,  V8.5 
V4.4,  V4.5 


SUBROUTINE  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

INPUTS:  RAND,  NUMREG,  RANGEM 

OUTPUTS : MM 

SUBPROGRAMS : RANDOM,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 
COMMON  lOUT 


INTEGER  lOUT,  L,  NUMREG 

real  MM(0:MAXREG) , PICK(2),  RANGEM{2,  MAXREG),  X 
DOUBLE  PRECISION  RAND 


lOUT 

L 

MAXREG 
MM(  ) 
NUMREG 
PICK( ) 
RAND 
RANGEM ( ) 


X 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

O'-  « '"■< 

ON  M TO  BE  SAMPLED  PKOM 

2— D ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RAMr'is’c  rvM 
^OFF^He'UnGe”on”m'^^^^'^^  OBTAIN  VALUE  SAMPLED 


C INITIALIZE  MM ( ) 

DO  50  L = 0,  MAXREG 
MM(MAXREG)  = 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 
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DO  100  L = 1,  NUMREG 


C 

c 


c 

c 


PICK(l)  = 0.0 
PICK(2)  = 0.0 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
MM<L)  = RANGEM(1,L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  =',  RANGEM(1,L), 
' ' MM(L)  =',  MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  RANDOM(X,  RAND)  , ,, 

MM(L)  = (RANGEM(2,L)  - RANGEM(1,L))  * X + RANCTM(1,L) 

IF  (lOUT  .EQ.  1(5)  THEN 

VTOITE(8 ,*)  'RANGEM(l.L)  =',  RANGEM(l.L), 

' RANGEM(2,L)  =',  RANGEM(2,L) 

WRITE(8,*)  'L  =',  L,  ' X =',  X,  ' MM(L)  =' , MM(L) 

END  IF 

else 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  = AMAXl (MM(L-l) , RANGEM(1,L)) 

““■:K(2)  = RANGEM(2,L) 

(PICK(l)  .GT.  PICK(2))  THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  BE  POSSIBLE 
STOP  PROGRAM 
WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  RANDOM  (X,  RANDl 

MM(L)  = (PICK(2)  - PlCK(l))  * X + PICK(l) 

ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'L  =',  L,  ' MM(L-l)  =' , MM(L-l), 

' RANGEM(1,L)  =',  RANGEM(1,L) 

WRITE(8,*)  'PICK(l)  =',  PICK(1),  ' PICK(2)  =',  PICK(2) 
WRITE  8' *)  -RANGEM(2,L)  =' , ^GEM(2,L),  ' 

' MM(L)  =',  MM(L) 

ENDIF 
ENDIF 


PICK( 
IF 


X =■ 


X, 


100  CWJTINUE 

RETURN 

END 


C**************** ********************** ******************************** 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 


Miles,  R.  F.,  The  RANDOM  Conmuter  Progr^: 
Random  Number  Generator,  JPL  Publication 
5101-277,  Feb.  15,  1986. 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  1DEC87  ^ ^ , 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3, 

V7,  V7.1,  V8,  V8.1,  V8.2, 
MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3, 
V4.3,  V4.4,  V4.5 


A Linear  Congruential 
85-98,  JPL  Document 


V6,  V6.1,  V6.2, 
V8.3,  V8.4,  V8.5 
V4,  V4.1,  V4.2, 


C************ ************************ ********************************** 


SUBROUTINE  RANDOM  (FRAC,  RAND) 
C IMPLICIT  NONE 

COMMON  I OUT 
INTEGER  lOUT 
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REAL  FRAC 

DOUBLE  RANG,  RAND,  RANDIV,  RANM,  RANSUB, 


C 

C 

C FRAC 
C lOUT 
C RANA 
C RANG 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


USING  LCG  RANDOM  # GENERATOR 

RANA  = 671093.0 
RANG  = 7090885.0 
RANM  = 33554432.0 

10  RANX  = RANA  * RAND  + RANG 
RANDIV  = RANX  / RANM 
RANT  = DINT (RANDIV) 

RANSUB  = RANT  * RANM 
rand  = RANX  - RANSUB 
FRAC  = SNGL(RAND  / RANM) 


IF  ((FRAC 
IF  (lOUT 
& ' RANT 

& ' FRAC 


•EQ.  0.0)  .OR.  (FRAC  . 
EQ.  2)  WRITE f 8 ,*)' RANX 
= ',  RANT,  ' RANSIJB  =' 
=',  FRAC 


EQ.  1.0))  GOTO  10 
=',  RANX,  ' RANDIV 
RANSUB,  ' RAND  =', 


=',  RANDIV, 
RAND, 


RETURN 

END 


NOTES:  IOUT=2  DUMPS  TO  SCREEN 


C*******it*itirirititie 


* irir  iriricie  * ft  it 


***‘*^***'^*'^*'k*ic'k*'k’k‘kic'k'^'k'kirkirieitiritiririritifkititir1tititie 


c 

c 

c 

c 

c 

c 


c 

c 

c 


FINDMN  CALCULATES  THE  VALUE  OF  M FOR  EACH  RPCTOH  nv 

ISSSSpHr  truncated  normal  m Destitution 


PROGRAMMER 

DATE 

VERSION 


L.  NEWLIN 

COMMENTS:  13FEB89 

MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4,  V4.1,  V4.2;  V4.3,  V4.4;  V4.5 


SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 

OUT^TS:  ^IG,  RANGEM 

SUBPROGRAMS : NORMGN , TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 
COMMON  lOUT 


INTEGER  lOUT,  L,  NUMREG 

^G?MAxT?J RANGEM(2,  MAXREG), 


7-159 


oo  no  o o o o o o o o o o o o o o n o o o o o o 


DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


TOUT 

L 

HAXREG 

HM() 

HUO 

NUMREG 

PICK() 

RAND 

RANGEMO 


SIG() 

X 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 

RANDOM  NUMBER  SEED  „ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  THE  STANDARD  DEVIATION  OF  M FOR  EACH 
REGION 

NORMAL (MU, SIGMA)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


INITIALIZE  MM( ) 

DO  50  L = 0,  MAXREG 
MM(MAXREG)  = 0.0 
50  CONTI^ 

BEGIN  CALCULATIONS 

DO  100  L = 1,  NUMREG 

PICK(l)  =0.0 
PICK(2)  = 0.0 

IF  .(.R^GEM|2,L|  .EQ.  0.0)  THEN 


10 


20 


M IS  SPECIFIED  AS  A POINT  VALUE 
L)  = RANGEMfl,L) 

(lOUT  .EQ.  iO)  WR1TE(8,*) 


RANGEM(1,L)  =' , RANGEM(1,L), 
MM(L)  =',  MM(L) 


ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  NORMGN  fRAND,  MU(L) , SIG(L),  X)  

IF  ((X  .LT.  ^GEM(l,L)i  .OR.  (X  .GT.  RANGEM(2,L) ) ) GOTO  10 
MM(L)  = X 

IF  (lOUT  .EQ.  10)  THEN 

TOITE<8,*)  'RANGEM(l.L)  =' , RANGEM(l.L), 

' RANGEM(2,L)  =',  RANGEM(2,L) 

WRITE(8,*)  'L  =',  L,  ' X =',  X,  ' MM(L)  =' , MM(L) 

ENDIF 

ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  = AMAX1(MM(L-1) , RANGEM(1,L)) 


THEN 

SHOULD  NOT  BE  POSSIBLE 

STOP  PROGRAM 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRJINAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 

CALL  NORMGN  (RAND,  MU(L),  SIG(L) , X) 

IF  ((X  .LT.  PICK(l))  .OR.  (X  .GT.  PICK(2)))  GOTO  20 
MM(L)  = X 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'L  =',  L,  ' MM(L-l)  =',  MM(L-l) , 

' RANGEM(1,L)  =',  RANGEM(1,L) 

WRITE(8,*)  'PICK(l)  =',  PICK(l),  ' PICK(2)  =',  PICK(2) 
WRITE  8 * 'RANGEM(2,L)  =' , RANGEM(2,L),  ' X=',  X, 

' MM(L)  =',  MM(L) 

ENDIF 

ENDIF 
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100  CONTINUE 

RETURN 

END 


C'^'^****'^*'^****’*eirir‘kiciririritiririticir 


**^****ir*ic’k*it‘kiric*-k’kt[’k*irfcic*itiriHfifkir*irit1rit*irir1titirit 


9.**lT^^'^T.lZ********************************************************i,*i„ 

^ NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 

STANDARD  DEVlX^,  si§Ar 
PROGRAMMER;  L.  GRONDALSKI,  L.  NEWLIN 
DATE*  3FEB88 

VERSION."  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3.  V8.4  V8  5 
MATGRM  V4,  V4.i;  V4.2,  V4.3,  V4.4,  V4.5  ' 


The  random  variates  are  generated  using  the  "Direct  Method" 

^Mathoma??^'ai < sditors.  Handbook  of 

National  Bureau  of  Standards,  Applied 

- K70  SitiS  SolSSionl;  printing.  Ho»e«l»r 

SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

SUBPROGRAM : RANDOM 

IMPLICIT  NONE 


COMMON  lOUT 


DOUBLE  PRECISION  RAND 

real  FRAC,  mu,  pi,  SIGMA,  X,  Ul,  U2,  Zl,  22 
PARAMETER  (PI  = 3.1415926536) 

INTEGER  lOUT 


C 

C 

C FRAC 
C lOUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U ( 0 , 1 ) 

UNIFORM  RANDOM  NUMBER  U ( 0 . 1 ) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 

NORMAL  RANDOM  NUMBER  ON  N ( 0 , 1 ) 


IF  ((lOUT  .EQ.  10)  .OR. 
4 WRITE ( 8 , * ) ' RAND  = ' , 


(lOUT 

RAND, 


.EQ.  15)) 

' MU  =',  MU, 


CALL  RANDOM  (FRAC,  RAND) 
Ul  = FRAC 


' SIGMA  = 


SIGMA 


CALL  RANDOM  (FRAC, 
U2  = FRAC 
IF  ((lOUT  .EQ.  10) 
& WRITE(8,*)  'Ul 


RAND) 


•OR,  (lOUT 
=',  Ul,'  U2 


.EQ.  15)) 
= ' , U2 


Zl  = SQRT  (-  2. 
Z2  = SQRT  (-2. 


* ALOG(Ul))  * COS(2.  * PI  * U2) 

* ALOG(Ul))  * SIN(2.  * PI  * u2) 


X = SIGMA  * Zl  + MU 
IF  ((lOUT  .EQ.  10) 

4 WRITE(8,*)  'Zl  = 


X =’ 


X 
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RETURN 

END 


Qiririritirir1titititiritifkirieiritiriririciricie**iririt  ★**★★★★★*★★★*★★*★★**■*★★****♦*****♦**♦****’* 


c 

c 

c 

c 

c 

c 


SUBROUTINE  TRNSFM  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  TRANSFORM 


THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 
PROGRAMMER : L . NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS: 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3 

MATGRM  V4,  V4.1,  V4.2,  V4.3 


13JUI.89 
V8.4,  V8.5 
V4.4,  V4.5 


SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 


C INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

C OUTPUTS:  NP,  ZZ 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  I,  lOUT,  K,  L,  LL,  NP,  NPTS ( MAXREG ) , NUMREG 

REAL  MM(0:MAXREG) , MML,  NBND( 0 :MAXREG) , NF(MAXDAT,  MAXREG), 
& STR(MAXDAT,  MAXREG),  ZZ(MAXDAT) 


C 

C 

C I 
C lOUT 
C K 
C L 
C LL 
C MAXDAT 
C MAXREG 
MM( ) 
MML 
NBND( ) 

NF() 

NP 

NPTS( ) 

NUMREG 
STR(  ) 

ZZ() 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  EACH  REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 
EQUAL  TO  MM(L)  FOR  A SET  OF  CAUTULATIONS 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RATSTRQ  FOR  THE  SPECIFIC  MATERIAL 
S-N  DATA  SET  BROKEN  INTO  MGIONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 
NP  = 0 

DO  50  I = 1,  MAXDAT 
ZZ(I)  = 0.0 
50  CCtfITINUE 


C BEGIN  CALCULATIONS 

DO  100  L = 1,  NUMREG 
MML  = MM(L) 
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& 

& 


300 

200 


IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =' , L, 
MML , ' NPTS  = ' , NPTS ( L ) 


MM  =' , MM(L), 


MML 


IX)  200  K = 1,  NPTS(L) 

NP  = NP  + 1 

ZZ(NP)  = ALOG(STR(K,L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'K  =',  K,  ' NP  =',  NP?^  NF 
SF(K,L),  ' StA=',  S^rIk'd,  ''zZ  =',  ZZ(NP) 

DO  300  LL  = 2,  L 

ZZ(NP)  = ZZ(NP)^+  AI^jNBND(LL-l)) 


ZZ(NP)  + ALOG(NBND(LL-l) ) 

* 1(1.0  / MM(^-1))  - (1.0  / MM(LL))) 

.EQ.  10)  WRI-h:(8,*) 'LL  =',  LL,  ' N6ND(LL-1 


IF  (lOUT  _ 

NBND(LL-l),  ' MM(LL-l)  MM(LL-l), 

MM(LL),  ' ZZ  ZZ(NP) 

CONTINUE 

CONTINUE 


MM(LL) 


100  CONTINUE 


RETURN 

END 


SUBROUTINE  SMNVAR  CALCULATES  THE  Sanrnle  MeaN  and  VARlance  OF 
Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER;  L.  NEWLIN 

DATE;  CODE;  24AUG87  COMMENTS;  13JUL89 
VERSION;  MATCHR  V5.3,  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 
V8,3,  V8.4,  V8.5 

MATGRM  V3.3,  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 


INPUTS;  NP,  ZZ 
OUTPUTS;  MEANZ,  SZ2 


IMPLICIT  NONE 


INTEGER  MAXDAT 
PARAMETER  (MAXDAT  = 50) 
COMMON  lOUT 


INTEGER  I,  TOUT,  NP 

REAL  MEANZ,  SZ2 , ZZ (MAXDAT) 


LIST  OF  VARIABLES 


I 

lOUT 

MAXDAT 

MEANZ 

NP 

SZ2 

ZZ() 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER  « 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND.  MM) 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC ' MATERIAL  S/N  ' 

DATA  SET 


SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR. 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA. 

Z = F(STR,NF,NBND,MM) 


NF,  NBND,  MM) 


C INITIALIZE  VARIABLES 

MEANZ  = 0.0 
SZ2  = 0.0 
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C CALCULATE  THE  MEAN  OF  ZZ ( ) , MEANZ 

DO  100  I = 1,  NP 

MEANZ  = MEANZ  + ZZ(I) 

IF  (LOUT  .EQ.  10)  WRITE(8,*) 'NP  =' , NP,  ' I =' , I, 

& ' ZZ  =',  ZZ(I),  ' MEANZ  =',  MEANZ 

100  CCaJTINUE 

MEANZ  = MEANZ  / FLOAT<NPl 

IF  (lOUT  .EQ.  10)  WRITE(6,*)'  MEANZ  =',  MEANZ 

C CALCtOATE  THE  VARIANCE  OF  ZZ () , SZ2 

DO  200  I = 1,  NP 

SZ2  = SZ2  + (ZZ(I)  - MEANZ)  **  2 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'I  =',  I,  ' SZ2  =' , SZ2 
200  CCWTINUE 

SZ2  « SZ2  / FLOAT (NP  - 1) 

IF  (lOUT  .EQ.  10)  WRITE(6,*)'  SZ2  =',  SZ2 

RETURN 

END 


C********** ****************** *********-********•************«***«********* 


SUBROUTINE  KBETA  CALCULATES  k AND  BETAo  FROH  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CC©E:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


f 


SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 


INPUTS:  MEANZ,  SZ2 

OUTPUTS:  K,  BZERO 


IMPLICIT  NONE 


REAL  PI 


PARAMETER  (PI  = 3.1415926536) 
COMMON  I OUT 


INTEGER  I OUT 


REAL  BZERO,  K,  MEANZ,  SZ , SZ2 


LIST  OF  VARIABLES 


BZERO 

lOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k - PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z = F(STR,  NF,  NBND,  MM) 


C PERFORM  CALCULATIONS 


SZ  = SZ2  **  0.5 
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BZERO  = PI  / ( SZ  * (6.0  *»  0.5)) 
K = MEANZ 


C DATA  DUMP  STATEMENTS 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'SZ2  =',  SZ2,  ' SZ  ='  SZ 

WRITE(8,*)  'MEANZ  =',  MEANZ,  ' K = ' , K,  ' BZERO  =' , BZERO 


RE'TURN 

END 


C******************* ******** *************»****************^^***^***^^^^^^^ 


SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K.  WHERE  A = K **  M FOR 
EACH  REGION 

PROGRAMMER:  L.  NEWLIN 

DATE:  7JUN88 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

INPUTS;  BZERO,  K,  MM,  NBND,  NUMREG 
OUTPUTS:  BIGK 

IMPLICIT  NONE 

INTEGER  MAXREG 


REAL  GAMMA 

PARAMETER  (GAMMA  = 0.57721566490,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG 

REAL  BIGK(0:MAXREG) , BZERO,  K,  MM( 0 ;MAXREG) , NBND( 0 :MAXREG) 


LIST  OF  VARIABLES 

BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 

FOR  EACH  REGION 

BZERO  VALUE  OF  WE I BULL  PARAMETER,  BETAo,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
GAMMA  EULER'S  CONSTANT 

lOUT  OUTPUT  DUMP  CONTROLLER 

K VALUE  OF  k - PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 


C INITIALIZE  VARIABLES 

DO  50  L = 0,  MAXREG 
BIGK(L)  =0.0 
50  CONTINUE 

C CALCULATE  K FOR  REGION  ONE 
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BIGK(l)  = (ALOG(2.0)  •*  (1.0  / BZERO) ) * EXP(K  + GAMMA  / BZERO) 
C WRITE (7,*)  'REGION:  1,  K=',  BIGK(i) 

IF  (lOUT  .EQ.  10)  WRITE (8,*) 'BZERO  BZERO,  ' k =',  K, 

& ' GAMMA  =',  GAMMA,  ' BIGK(l)  =',  BIGK(l) 

C CALCULATE  K FOR  REMAINING  REGIONS 

DO  100  L = 2,  NUMREG 

(L-1) 

- (1.0  / MM(L-l) ) ) 

' K =' , BIGK(L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =',  L,  ' NBND(L-l)  =' , 

& NBND(L-l),  ' MM(L)  =',  MM(L) , ' MM(L-l)  =',  MM(L-l), 

& ' BIGK(L)  =',  BIGK(L) 

100  CCWTINUE 

RETURN 
END 


C******  ********  *****««:*****1t**1lr*******:l^**  ******************************** 


SUBROUTINE  FINDSB  CALCULATES  THE  REGION  'TIE-POINTS'  — THE  STRESS 
VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  Ms,  AND  THE  Ks  CALCULATED  FROM  THE  BETA  AND  k 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DA'TE:  22DEC88 

VERSION:  MATCHR  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

OUTPUTS:  SBND 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

C(»ttlON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  ZROREG 

REAL  BIGK( 0: MAXREG) , MM ( 0 : MAXREG ) , NBND( 0:HAXREG) , 

& SBND(0: MAXREG) 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  IN'TEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SBND()  1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


C INITIALIZE  SBND() 

DO  50  L = 0,  MAXREG 
SBND(L)  =0.0 


BIGK(L)  = BIGK(L-l)  * NBND 
**  ( (1.0  / MM(L) ) 
WRI'TE(7,*)  ^REGION  ',  L, 
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50  CONTINUE 


C CALCULATE  SBND(O)  IF  ZROREG  = 0 


IF  ( ZROREG  . EQ . 0 ) THEN 

SBND(O)  = BIGK^)  * NBND(O)  ** 
ENDIF  ' 


(-1.0  / MM(1)) 


C CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 

DO  100  L = 1,  NUMREG 

IF  (NBND(L)  .GE.  l.OE+36)  THEN 
SBND(L)  =0.0 
ELSE 

ENdIf**'^^^^  = BIGK(L)  * NBND(L)  **  (-1.0  / MM(L)  ) 
100  CONTINUE 

RETURN 

END 


THIS  SUBROUTINE  GENERATES  WE  I BULL  (BETA,  ETA)  RANDOM  VARIATES  WITH 
?^^0^  constrained  TO  BE  oAe^^MG 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  18MAR87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 

V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  VBU,  VSlS 
MATGRM  ^2,^V3^^V3.1^^V3.2;  V3.3;  V4,  V4.i;  V4:2, 


(C)  1990,  California  Institute  of  Technology, 
y.s.  ^vernment  Sponsorship  under  NASA  Contract  NAS7-918 
xs  acKnowiedgea • 


SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS:  BETA,  RAND 

C OUTPUTS ; WEIB 
C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  lOUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C 

C 

C ARG 
C BETA 
C ETA 
C FRAC 
C lOUT 
C RAND 
C WEIB 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 
WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 
UNIFORM  (0,1)  RANIX5M  VARIATE 
OUTPUT  DUMP  CONTROLLER 
RANDOM  NUMBER  SEED 

WEIBULL (BETA, ETA)  GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 

ETA  = 1.0  / (ALOG(2.0)  *»  (1.0  / BETA)) 
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C GENERATE  WEIBULL  RANDOM  VARIATE 

CALL  RANDOM (FRAC,  RAND) 

ARG  = -ALOG(1.0  - FRAC) 

WEIB  = ETA  * ARG*»( 1.0/BETA) 

IF  (lOUT  .EQ.  10)  WRITE(8,*) 'BETA  = BETA,  ' ETA  =' , ETA, 
& ' FRAC  =',  FRAC,  ' ARG  =',  ARG,  ' WEIB  =',  WEIB 

RETURN 

END 


C SUBROUTINE  KOMO  CALCULATES  Ko  AND  MO  FOR  THE  ZERO  REGION  (NO  DATA 
C REGION  TO  THE  LEFT ) . IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE  POINT 
C AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 

C PROGRAMMER  ; L.  NEWLIN 

C DATE : 1AUG9 1 

C VERSION;  MATCHR  V8.5  MATGRM  V4.5 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged . 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 

& FACTR,  NUMREG) 

C INPUTS;  SZERO,  BIGK,  MM,  NBND,  TRSBND,  FACTR 

C OUTPUTS;  TRBIGK,  MM,  TRSBND 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG 

REAL  BIGK(0;MAXREG) , FACTR,  MM( 0 ;MAXREG) , NBND( OtMAXREG) , 

1 SCLK,  SZERO,  TRBIGK(0;MAXREG),  TRSBND ( 0 ;MAXRBG) 


LIST  OF  VARIABLES 

BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 

EACH  REGION 

FACTR  SCALE  FACTOR  = PHI  * KRATIO  • Z 
lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NimBER  OF  REGIONS  ALLOWED 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBNDO  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS 

SCLK  ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 

SZERO  STRESS  TENSILE  TEST  POINT,  So 

TRBIGK ()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < So  FOR  EACH  TRIAL 

TRSBND  ()  1-D  AR^Y  CONTAINING  STRESS  VALUES  CORRESPONDING  TO  THE 

LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND( ) 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK(O)  = SZERO 

IF  (TRSBND(O)  ,GT.  SZERO)  THEN 
SCLK  = SZERO/TRSBND(0) 

DO  100  L = 0,  NUMREG 
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100 


c 


TRBIGK(L)  = BIGK(L)  ♦ SCLK 

' TRSBND(L)  * SCLK 

ELSE 

TRBIGK(O)  = SZERO/FACTR 
MM(0)  = MM(1)  » ( (ALOG  (BIGK(l)) 
ENDIF  (FACTR))  / (ALOG 


- ALOG  (TRSBND(O)) 

(SZERO)  - ALOG  (TRSBNO( 0) ) ) ) 


IF  flOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE(8  *) 
ENDIF 


10)  THEN 
'SZERO  = 
'FACTOR  = 
'MMl  = ' , 


, SZERO,  ' BIGKo 
' , FACTR,  ' BIGKl 
MM(1),  ' MMo  = ', 


= ',  TRBIGK(O) 
= '.  TRBIGK(i 
MM(0) 


) 


RETURN 

END 


c* **★★★♦★★ ★★★★*# 


c 

c 

c 

c 

c 

c 

c 

c 

c 


DATE:  10FEB89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 

Copyright  <C)  1990,  California  Institute  of  Technoloov 
is  actowl^ed  under  NASA  Contract  NAS7??i8 


REAL  FUNCTION  G'TLIFE  (S,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND, 

* ZROREG,  NUMREG,  SZERO)  =>oau, 

C OOTtoII;  KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

C IMPLICIT  NONE 

INTEGER  lOUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

REAL  C^TLIF,  KRATIO,  LNA ( 0 : MAXREG ) , LNZ,  LPHIM^ O'MAYRFC^ 
f‘  MM(O.-MAXREG)  , S,  SBND  ( 0 :MAXREG) , SZEF»,  TE  ^MAXREG), 


GETLIF 

I OUT 

KRATIO 

L 

LNA(  ) 
LNZ 

LPHIM ( ) 

MAXREG 
MM(  ) 
NUMREG 
S 

SBND( ) 


SZERO 

TEMP 


CYCLES  TO  FAILURE  FOR 


LIST  OF  VARIABLES 

VALUE  TO  BE  ASSIGNED  TO  GTLIFE 
THE  REQUIRED  STRESS  LEVEL 
OUTPUT  DUMP  CONTROLLER 

SoS  COWPONEHTS 

1 D ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  RPCTnu  utnr'Dir 

VARI^^^ 

nG^^I  ^G?0NS^OT 

CONTAINING  THE  STRESS  VALUES  fPSI  R = -1  0\ 
CO^lNED^^S'^NBND'ff  BOUNDARY"  VALUES  FOR  eAc^  REGION 

STRESS  TENSILE  POINT,  So 

^^O^^  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 
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ZROREG  ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGICMJ  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


GETLIF  =0.0 

CALCULATE  CYCLES  TO  FAILURE 

IF  ((S  .GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  = 1.0 
ELSE 

DO  100  L = ZROREG,  NUMREG 
IF  IS  .GT.  SBND(L))  THEN 

■hiMP  = LNA(L)  + LPHIM(L)  + MM(L)  * ( - ALOG(S) 
fc  + ALOG  (KRATIO)  + LNZ) 

IF  (TEMP  .GT.  86.0)  THEN 
TEMP  = 86.0 
ENDIF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 

RETURN 

END 


SUBROUTINE  'SORTM'  SORTS  THE  ARRAY,  ALLM(),  FROM  LOWEST  TO  HIGHEST 
M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB88 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS:  ALLM 

C IMPLICIT  NONE 

C<MmON  I OUT 

INTEGER  I,  INC,  lOUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  = 20001,  MAXREG  = 3) 

LOGICAL  INORDR 

REAL  ALLM(MAXMM,  MAXREG),  TEMP 

C LIST  OF  VARIABLES 

C 

C ALLM( ) 2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGICX) 

C I CONTROLS  INSERTION  POINTER 

C INC  SORT  INCREMENT  VARIABLE 

C INORDR  FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
C lOUT  OUTPUT  DUMP  CONTROLLER 

C L CONTROLS  DO  LOOP  FOR  EACH  REGION 

C MAXMM  MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 

C MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
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C NUM 
C NUMREG 
C TEMP 


NUMBER  OF  ELEMENTS  IN  AT.T.M/  ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L = 1,  NUMREG 

5 INC  = NUM 
10  IF  (INC  .GT.  1)  THEN 
INC  = INC  / 2 
20  INORDR  = .TRUE. 

DO  300  1=1,  (NUM  - INC) 

IF  (ALLM(I,L)  .GT.  ALLM(I  + INC,  L) ) THEN 
TEMP  = ALLM(I,L) 

ALLM(I,L)  = ALLM(I  + INC,  L) 

ALLM(I  + INC,  L)  = TEMP 
INORDR  = .FALSE. 

ENDIF 

300  CONTINUE 

IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 

400  CONTINUE 


RETURN 

END 


C*************** **************************** ******************************* 


C*********** ************************ *********************************** 


FUNCTION  RAINF3  CALCULATES  THE  TIME  (in  missions)  TO  FAILURE  FOR 
THE  GIVEN  STRAIN-TIME  HISTORY 


PROGRAMMER: 

DATE: 

VERSION: 


L.  SHIRAISHI,  L.  NEWLIN 
27MAR90 

1.1  (BLDLCF  V3.1,  V3.2,  V3.3,  V3.4  MATCHR  V8.4,  V8.5) 


Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acknowledged. 

c*** ********************************** ********************************* 


FUNCTION  RAINF3  (SEFF,  M,  TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM, 
& KRATIO,  LNZ,  SEND,  ZROREG,  NUMREG,  SZERO) 


C INPUTS : 

C 

C OUTPUTS : 


SEFF,  M,  TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM,  KRATIO, 

LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

RAINF3 


C IMPLICIT  NONE 

COMMON  lOUT 


INTEGER  MAXREG,  MAXM 

PARAMETER  (MAXREG  = 3,  MAXM  = 50) 

INTEGER  I,  INDEX(MAXM),  lOUT,  J,  JMAX,  K,  M,  N,  NEWTOT,  NUMREG, 
& ZROREG 

REAL  CHKFT,  E(MAXM),  GTLIFE,  INVLIF(MAXM) , KRATIO, 

& LIFE(MAXM),  LNA(0:MAXREG),  LNZ,  LPHIM( 0 : MAXREG ) , 

& MM(0:MAXREG) , PERIOD,  RAINF3,  S(MAXM) , SBND( 0 :MAXREG) , 

& SEFF(MAXM),  SEFFM(2,  MAXM),  SEFMAX,  SP(MAXM) , 

& SRANGE(MAXM) , SUMDAM,  SZERO,  TEST 1 (MAXM) , roST2(MAXM), 

fc  TRUNC,  WEXP  ' 
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LIST  OF  VARIABLES 


RAINF3  TIME  TO  FAILURE  FOR  THE  GIVEN  TIME  HISTORY 


input  variables : 


SEFF(M) 

M 

TRUNC 

PERIOD 

WEXP 


EFFECTIVE  STRAINS  BEFORE  FILTERING/RAINFLOW 
TOTAL  NUMBER  OF  STRAIN  DATA  POINTS  PER  PERIOD 
VALUE  USED  TO  FILTER  OUT  NOISE 
TIME  IN  SECONDS  FOR  ONE  PERIOD 
WALKER  EXPONENT 


intermediate  variables: 


MAXM 

SEFMAX 
JMAX 
IrJ,K 
SP(M+1) 
INDEX (MAXM) 

S(NEWTOT) 

NEWTOT 

E() 

N 

SEFFM(2,N) 


SRANGE(N) 

GTLIFE 

LIFE(N) 

INVLIF(N) 

SUMDAM 

CHKFT 


MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRAIN-TIME  HISTORY 
ARRAYS 

LARGEST  EFFECTIVE  STRAIN 

INDEX  (LOCATION)  OF  SEFMAX  IN  SEFF() 

COUNTERS  FOR  VARIOUS  DO  LOOPS 

RESEQUENCED  EFFECTIVE  STRAINS;  # OF  PTS  * M+1 
, TESTl(MAXM),  TEST2(MAXM) 

INTERMEDIATE  CALCULATION  ARRAYS  USED  DURING  FILTERING 
FILTERED  EFFECTIVE  STRAINS 

TOTAL  NUMBER  OF  EFFECTIVE  STRAIN  VALUES  AFTER  FILTERING 
HOLDING  ARRAY  USED  TO  FIND  CYCLES  DURING  RAINFLOW  ANALYSIS 
NUMBER  OF  CYCLES  FOUND  DURING  RAINFLOW  ANALYSIS 
EFFECTIVE  STRAINS  AFTER  RESEQUENCING/FILTERING/RAINFLOW 
SEFFM(1,I)  - sigma  max,ef£,i 
SEFFM(2,I)  = sigma  min,eff,i 
SRANGE(I)  = EQUIVALENT  STRAIN  RANGE  FOR  CYCLE  I 
REAL  FUNCTION  THAT  CALCULATES  FATIGUE  LIFE  FOR  A GIVEN  STRAIN 
LIFE(I)  = CALCULATED  LIFE  FOR  STRAIN  LEVEL  SRANGE(I) 

INVLIF(I)  = 1/LIFE(I);  DAMAGE  FRACTION 

SUM  OF  ALL  THE  DAMAGE  FRACTIONS 

DUMMY  VARIABLE  USED  TO  PRINT  OUT  RAINF3  RESULT 


OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CC»^STANT  OVER  REGIONS  AND  COMPONENTS 
1-D  ARRAY  CONTAINING  VALUES  OF  Ln(A)  « M Ln  K FOR  EACH  REGION 
NORMAL (0,PVAR)  GENERATED  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WEIBULL(BETAO,  ETAo)  GENERATED  RANDOM  VARIATE 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES  (%,  R = - 1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND()  CORRECTED  BY  PHI,  KRATIO, 

AND  LNZ 

STRAIN  TENSILE  POINT,  So  (%) 

Zero  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 

C dump  input  data 

if  (iout.eq.20)  then 

write(8,*)'  rainf3  inputs' 

write(8,*)'m  ' period period 

write ( 8 , * ) ' wexp  : ' , wexp 

write ( 8 , * ) ' numreg  : ' , numreg , ' zr oreg  : ' , zroreg 
write  ( 8 , * ) ' szero  : ' , szero,  ' Jcratio  : ' , kratio,  "inz  : ' , Inz 
write( 8, * ) ' lna( i) , mm(i).  Iphim(i),  sbnd(i)' 
write(8,*)  (Ina(i),  mm(i),  Iphim(i),  sbnd(i),  i=zroreg, numreg) 
write ( 8 , ♦ ) ' ' 
endif 


lOUT 

KRATIO 

LNA() 

LNZ 

LPHIM( ) 

MAXREG 
MM(  ) 
NUMREG 
SBND() 


SZERO 

ZROREG 


C INITIALIZE  ARRAYS 

DO  50  I = 1,  MAXM 
SP(I)  = 0.0 
S(i)  = 0.0 
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nonoo 


E(I)  = 0.0 
SEFFM(1,I)  =0.0 
SEFFM(2,I)  =0.0 
SRANGE(I)  =0.0 
LIFE(I)  =0.0 
INVLIF(I)  = 0.0 
INDEX(I)  = 0 
TESTl(I)  =0.0 
TEST2(I)  =0.0 
50  CONTINUE 


C**********^^********  BEGIN  RESEQUENCE 
C RESEQUENCE  effective  strains  (needed  for  rainflow  analysis); 

C largest  effective  strain  is  placed  at  beginning  cuid  end  of  SP(M+1) 

C find  SEFMAX,  the  Icurgest  sigma, eff,  and  JMAX,  its  location  within  SEFF(M) 

SEFMAX  = -l.OE+20 
DO  200  1=1, M 

IF  ( SEFF(I)  .GT.  SEFMAX  ) THEN 
SEFMAX  = SEFF(I) 

JMAX  = I 
ENDIF 
200  CONTINUE 


C 


210 


assign  all  points  from  JMAX  out, 
DO  210  I = 1,  M-JMAX+1 
J = JMAX-1  + I 
SP(I)  = SEFF(J) 

CONTINUE 


to  the  beginning  of  SP( ) 


C assign  points  before  JMAX  to  the  end  of  SP() 
J = 0 

DO  220  I = M-JMAX+2,  M 
J = J + 1 
SP(I)  = SEFF(J) 

220  CONTINUE 

SP(M+1)  = SEFF(JMAX) 
if  (iout.eq.20)  then 
write ( 8 , * ) ' sefmax : 
write (8,*) 'sp(m+l) 
endif 


, sefmax, ' jmax:',jmax 
' , (sp(i) ,i=l,m+l) 


C*******i*r«***iiM^*** END 
Ci^*********i<t1lnlr«^*#*WK^*ilr^  BEG 

C 


RESQUENCE 
N FILTER 


FILTER  the  reseguenced  effective  strains,  leaving  only  peaks  and  valleys 
C (excursions  larger  than  TRUNC  are  deleted  during  rainflow  counting)  in 

^ Q / xnriiiFPi'VP  \ Mr»TA7nv\fn  -in  

c 


S(NEWTOT),  where  NEWTOT  is  the  new  number  of  points 


DO  300  I = 2,  M 

TESTl(I)  = SP(I-1 
TEST2(I)  = TESTl( 
300  CONTINUE 


) - SP(I) 

I)  * (SP(I)  - SP(I+1) ) 


if  (iout  .eq.  20)  then 
do  305  i = 2,  m 

write(8,*)  'testl  = ',  testl(i),  ' test2  = test2(i) 
305  continue 
endif 

K = 1 

INDEX(l)  = 1 
DO  310  I = 2.  M 

IF  ((TESTl(I)  .NE.  0)  .AND.  (TEST2(I)  .LT.  0))  THEN 
K = K + 1 ' 

INDEX(K)  = I 
ENDIF 
310  CONTINUE 

NEWTOT  = K + 1 
INDEX (NEWTOT)  = M + 1 
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DO  320  1 = 1,  NEWTOT 
K = INDEX(I) 

S(I)  = SP(K) 

320  CONTINUE 

if  (iout*eq.20)  then 

write ( 8 , * ) ' newtot : ' , newtot 
write (8,*) 's (newtot) : ' , (s(i) ,i=l, newtot) 
endif 


C********iir*****«*******«**  END  FILTER  **★★♦♦**♦*♦♦★★★★♦*★***♦*♦★★*** 

C*********************  BEGIN  RAINFLOW 

C RAINFLOW  ANALYSIS  to  identify  cycles  within  effective  strain  data,  S(NEWTOT); 

C places  each  cycle's  max  and  min  values  into  SEFFM(2,N) 

C 

C counters:  I counts  # of  cycles  found,  J counts  how  many  S()'s  counted, 

C K accumulates  unmatched  points 

1 = 0 
J = 0 
K = 0 

400  CONTINUE 
J = J+1 
K = K+1 

c check  J to  avoid  reading  beyond  end  of  filtered  strain  data 
IF  ( J .GT.  NEWTOT  ) GOTO  499 


: read  strain  point  into  a holding  array  to  be  checked  for  cycles 

E(K)  = S(jy 

410  IF  { K .LT.  3 ) GOTO  400 

IF  ( ABS(  E(K)  - E(K-l)  ) ,LT.  ABS(  E(K-l)  - E{K-2)  ) ) GOTO  400 
Z if  not,  then  a cycle  has  been  found,  but  we  need  to  check  for  truncation 
IF  {ABS  (E(K-l)  - E(K-2n  .GT.  TRUNC)  THEN 
Z cycle  is  large  enough  to  save 

1 = 1+1 

SEFFM(1,I)  = AMAX1(  E(K-l),  E(K-2)  ) 

SEFFM(2,I)  = AMIN1(  E(K«1),  E(K-2)  ) 

ENDIF 

: discard  points  K-1  and  K-2,  and  decrement  the  counter  of  unmatched  points 

E(K-2)  = E(K) 

K = K-2 

Z return  for  more  counting 
GOTO  410 


499  CONTINUE 

C N equals  the  final  number  of  cycles  found 

N = I 

if  (iout,eq.20)  then 
write( 8, *) 'N  : ' ,n 
write (8,*) 'seffm(2,n) : ' 
do  12  i=l#n 

write(8,*)  seffm(l,i),  seffm(2,i) 

12  continue 

endif 

IF  (N  .EO.  0)  THEN 

c truncation  filter  value  too  large  — no  cycles  left 

SUMDAM  = l.OE-36 
GOTO  710 
ENDIF 

C 

C*******^*^^******^***  END  RAINFLOW 


C calculate  equivalent  strain  range 
C 

DO  500  1=1, N 

SRANGE(I)  = (SEFFM(1,I)  - SEFFM(2,I)) 

& * ((SEFFM(1,I}  . SEFFM(S,I))  / (2.0  ♦ SEFFM(1,I))) 

& **  (WEXP  - 1.6) 

500  CONTINUE 

if  (iout.eq.20) 
if  (iout.eq.25) 


write(8,^) 'srange(n)  : ' , ( srange(i) , i=l,n) 
write(8,*)  (srange( i) , i=l,n) , ' 
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on  no  on 


4 exp(lphim( 1 ) /mm( 1 ) ) 


calculate  lives  and  damage  fractions:  LIFE(N)  and  INVLIF(N) 


500 

550 

L4 


DO  600  1=1, N 

LIFE(I)  = GTLIFE  (SRANGE(I),  MM,  LNA,  LPHIM,  KRATIO,  LNZ, 
CONTINUE  NUMREG,  SZERO) 

DO  650  1=1, N 

INVLIF(I)  = 1.0  / LIFE(I) 

CONTINUE 

if  (iout.eq.20)  then 
do  14  i=l,n 

continue^”' 'life(n) : ' ,life(i) , ' invlif (n) ; ',invlif (i) 

endif 


Miner's  Rule  — sum  the  damage  fractions 


700 

710 


SUMDAM  =0.0 
DO  700  1=1, N 

SUMDAM  = SUMDAM  + INVLIF (I) 
CONTINUE 
CONTINUE 

if  (iout.eq.20)  write( 8, *) ' sumdam: 


sumdam 


calculate  fatigue  life  (time  to  failure) 


RAINF3  = PERIOD  / SUMDAM 


if  (iout.eq.15)  then 
chkft=period/ sumdam 
write (8,*)'  rainf3  life',chkft 
write ( 8 , * ) 
endif 


RETURN 

END 
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7.2.5  Program  BLDLCF  V3.4B1.3  Listing 


Routine Page 


Program  BLDLCF  V3.4B1.3  Listing  Temporal  Order 7-177 

BLDLCF 7-178 

BLDUF 7-187 

INSORT 7-189 

PRYRV 7-191 

BETAGN 7-191 

GAM  7-192 

INFAGG 7-192 

TRMNAT 7-198 

INIT 7-198 

RCE  7-200 

CONVRT 7-206 

SW2SU2 7-207 

FINDMC  7-210 

INTRVL 7-212 

GTPVAR  7-215 

FNDRNG 7-216 

ADDREG  7-220 

CONCAV 7-222 

MEDIAN  7-223 

EXPCTD  7-224 

MUSIG 7-226 

NORRNG 7-228 

ADDRGN 7-230 

EXPB  7-232 

PEB  7-233 

RANDOM  7-235 

NORMGN 7-236 

PICRES  7-237 

MREGR  7-238 

TRNSFM !"Z!Z.ZZ!".7-240 

SMNVAR  7-241 

KBETA 7-242 

FINDK !I""""ZZ""”"'"""7-243 

FINDSB  7-244 

KOMO  7-245 

WORSTN 7-246 

GTLIFE  7-248 

SORTM 7-249 

RAINF3 7-250 

BLDLCF  Version  3.4B1.3 
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Program  BLDLCF  V3.4B1.3  Listing  Temporal  Order 


Routine 


Page 


BLDLCF  , 
INFAGG  . 

INIT  

RCE 

CONVRT 

SW2SU2 

EXPB 

FINDSB  .. 
KOMO  .... 
PRYRV  ... 
RANDOM 

PEB 

PICRES  .. 
RANDOM 
MREGR  .. 
TRNSFM 
SMNVAR 

KBETA  

FINDK  

FINDSB  ... 
BETAGN  .. 

GAM 

RANDOM 
NORMGN 
RANDOM. 
PRYRV  .... 
RANDOM 
WORSTN 
RANDOM 
BLDUF  .... 
RAINF3  ... 
GTLIFE  .... 
INSORT ... 
SORTM  ... 
EXPCTD  .. 
TRNSFM  . 
SMNVAR  . 

KBETA  

FINDK  

FINDSB  ... 
KOMO 


,.7-178 
.7-192 
.7-198 
. 7-200 
.7-206 
.7-207 
. 7-232 
.7-244 
. 7-245 
.7-191 
. 7-235 
.7-233 
.7-237 
. 7-235 
. 7-238 
.7-240 
. 7-241 
.7-242 
.7-243 
.7-244 
,7-191 
,7-192 
7-235 
7-236 
7-235 
7-191 
7-235 
7-246 
7-235 
7-187 
7-250 
7-248 
7-189 
7-249 
7-224 
7-240 
7-241 
7-242 
7-243 
7-244 
7-245 
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C PROGRAM  BLDLCF  CONTROLS  THE  FLOW  OF  LOGIC  OF  THE  LOW  CYCLE 
C FATIGUE  ANALYSIS  OF  THE  TURBINE  BLADE  FOIL  PROBLEM 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  5FEB92  COMMENTS:  17APR92 

C VERSION:  3.4B1.3  (MATCHR  VBl.3,  RAINF3  VI. 1,  INSORT  V2.1) 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


PROGRAM  BLDLCF 


C 

C 

C 

C 

C 


SUBPROGRAMS : 
FILES: 


INFAGG,  PEB,  PRYRV,  BETAGN,  NORMGN,  WORSTN, 

TRMNAT,  BLDLIF,  INSORT,  SORTM,  EXPTCD 

1 : BLDLCD-OLD ? 3 : BLDLCO-NEW ; 5 : RELATD-OLD ; 6 :RELATO-NEW; 
7:DUMP~NEW;  8 : lOUTPR-NEW;  9 :LOWLIF-NEW; 

NOTE:  5 & 6 ARE  OPENED  IN  'INFAGG' 


C IMPLICIT  NONE 


INTEGER  MAXBLF,  MAXDAT,  MAXLIF,  MAXM,  MAXMM,  MAXREG 

PARAMETER  (MAXBLF  = 10,  MAXDAT  = 50,  MAXLIF  = 10000, 
& MAXM  = 50,  MAXMM  = 20001,  MAXREG  = 3) 

COMMON  lOUT 


INTEGER  BLFPOS  ( MAXBLF ) , I,  lOUT,  J,  K,  L,  MCOUNT,  MID, 

& MPROC,  NBLIFE,  NHYPER,  NLIFE,  NLIFET,  NMED, 

& NPTS (MAXREG) , NSYM,  NTIME,  NUMREG,  TSUBI , VARY, 

& ZROREG 


DOUBLE  PRECISION  RAND 


REAL  ALLM (MAXMM,  MAXREG),  BIGK( 0 :MAXREG) , BIGKl,  BLDLIF, 

& BLFPER ( MAXBLF ) , BZERO,  DUM,  EBEND,  EBENDA,  EBENDB, 

& EMNOM,  EPSL,  EPSW,  ETHNOM(MAXM) , FAA,  FAB,  FAC,  FACTR, 

& FAD,  FAE,  FAF,  FAERRM,  FAERRS,  FDIA,  FDIB,  FDIC,  FDlD, 

& FDlE,  FDIF,  FD2A,  FD2B,  FD3A,  FD3B,  FDERRM,  FDERRS, 

& FIFTY.  FTU,  FTY,  HGAS,  HGASA.  HGASB,  HGASR,  HGASRl, 

& HGASR2,  HGAST,  HGASTl,  HGAST2,  KRATIO,  LAMA,  LAMAA, 

& LAMAB.  LAMDA,  LAMDAA,  LAMDAB.  LAMG,  LAMGA,  LAMGB,  LAMGR, 

& LAMGRl,  LAMGR2,  LAMGT,  LAMGTl,  LAMGT2,  LAMP,  LAMPA, 

& LAMPB,  LAMTM,  LAMTMA,  LAMTMB,  LIFEL ( MAXLIF ) , 

& LIFEW ( MAXLIF ) , LIFL,  LIFW,  LNA(0:MAXREG) , LNZ 

REAL  LPHIM(0:  MAXREG),  MANAL,  MANALA,  MAMALB,  MEDKB  ( 0 : MAXREG ) , 

& MEDM(MAXREG)  , MEDMB ( 0 : MAXREG ) , MM ( 0 : MAXREG ) , MCX^ERl, 

& MODER2,  MU (MAXREG),  NBND ( 0 : MAXREG ) , NEWLIF, 

& NF( MAXDAT,  MAXREG),  NOMSPD,  PERIOD,  PHI,  PSIG,  PVAR, 

& RANGEM(2,  MAXREG),  RES  ID  (MAXDAT)  , RPM(MAXM) , 

& SBND ( 0 : MAXREG ) , SIG ( MAXREG ) , SLOPE , SLOPEA , SLOPES , 

& SLOPR,  SLOPRl,  SLOPR2,  SLOPT,  SLOPTl,  SLOPT2,  SPEED, 

& SPEEDM,  SPEEDS,  STR(MAXDAT,  MAXREG),  SZERO,  TANAL, 

& TANALA,  TANALB,  TGAS,  TGASA,  TGASB,  TGASR,  TGASRl, 

& TGASR2,  TGAST,  TGASTl,  TGAST2,  TRBIGK(  0 :MAXREG) , 

& TRSBND(0:MAXREG)  , TRUNC,  TSTART,  TSTMU,  TSTSIG,  WEXP,  Z 


C SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN 

(1, 

FILE 

OPEN 

(3, 

FILE 

OPEN 

(7, 

FILE 

OPEN 

(8, 

FILE 

OPEN 

(9, 

FILE 

' BLDLCD ' , STATUS 
'BLDLCO',  STATUS 
'DUMP',  STATUS 
'lOUTPR',  STATUS 
'LOWLIF',  STATUS 


'OLD' ) 
'NEW' ) 
'NEW' ) 
'NEW' ) 
'NEW' ) 


READ(1.*)  RAND 
WRI'TE(6,*)  ' 

READ(1.*)  lOUT 

WRITE(6,’^)  'IOUT  (MATCHR  = 10, 
READ(1,*)  NLIFE 
WRITE(8,*)  ' 

READ(1,*)  NHYPER 


RANDOM  NUMBER  SEED  =',  RAND 
BLDLCF  = 15,  RAINF3  = 20)=',  IOUT 
INNER  LOOP  SIZE  =',  NLIFE 
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WRITE(8,*)  ' 
READ(i  *)  NSYM 
WRITE (8,*)  ' 

Read(1.»)  vary 

WRITE ( 6 , * ) ' 

WRITE(8,*)  ' 
READ(1,*)  NMED 
WRITE* 8,*)  ' 
READ*!.*)  MPROC 
WRITE(8,*)  ' 
WRITE ( 8 , * ) ' 


OUTER  LOOP  SIZE  =' ,NHYPER 

SYMMETRY  NUMBER  =' , NSYM 

TYPE  OF  S/N  VARIATION  DESIRED  ' 

(4  - BOOTSTRAP)  =' ,VARY 

NORMAL  MEDIAN  CURVE  (0  - NO,  1 — YES)  =' ,NMED 

MATERIALS  PROCESS  VARIATION  DESIRED' 

(0  - NO,  1 - YES)  =',  MPROC 


IF  (VARY  .NE. 
WRITE (8,*) 
CALL  TRMNAT 
ENDIF 

IF  ((NMED  .NE. 
WRITE(8,«) 

CALL  TRMNAT 
ENDIF 


4)  THEN 

'ERROR:  INVALID  TYPE  OF  S/N  VARIATION  DESIRED 


0)  .AND.  (NMED  .NE.  1))  THEN 
' ERROR : INVALID  RESPONSE  TO  NORMAL  MEDIAN  ' . 

' CURVE  QUESTION ' 


IF  ((MPROC  .LT 
WRITE ( 8 , * ) 

CALL  TRMNAT 
ENDIF 


. 0 ) . OR . ( MPROC  . GT . 1 ) ) THEN 

'ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS 

'VARIATION  DESIRED' 


READ(1,*)  NBLIFE 

IF  (NBLIFE  .GT.  0)  READ(1,*)  (BLFPE3l(J),  J = 1,  NBLIFE) 


C **  READ  DATA  FROM  BLDLCD 

READ(1,*)  HGASA,  HGASB,  HGASRl, 

4 TGASA,  'TGASB,  TGASRl, 

& SLOPEA,  SLOPES,  SLOPRl, 

& LAMGA,  LAMGB,  LAMGRl, 

4 TSUBI,  SPEEDM,  SPEEDS, 

& FAERRM,  FAERRS,  TSTMU, 

& FDERRM,  FDERRS, 

& EBENDA,  EBENDB,  LAMPA, 

i MANALA,  MANALB,  lAMAA, 

& TANALA,  TANALB,  LAMDAA, 

4 LAMTMA,  LAMTMB 

READ(1,*)  EMNOM,  NOMSPD,  PERIOD, 

READ(1,*)  FAA,  fab.  FAC,  FAD,  FAE, 

FDIA,  FDlB,  FDIC,  FDlD, 

& FD2A,  FD2B, 

5 FD3A,  FD3B 


HGASR2,  HGASTl,  HGAST2, 
TGASR2,  TGASTl,  TGAST2, 
SLOPR2,  SLOPTl,  SLOPT2, 
LAMGR2,  LAMGTl,  LAMGT2, 

TSTSIG, 

LAMPS, 

LAMAB, 

LAMDAB, 

TRUNC,  NTIME,  WEXP 
FAF 

FDIe'  FDIF, 


IF  (NTIME  .GT.  MAXM)  THEN 

'ERROR:  STRAIN-TIME  HISTORY  TOO  LARGE' 

CALL  'TRMNAT 
ENDIF 


DO  20  I = 
READ( 1 
20  CONTINUE 


1,  (NTIME  - 1) 

*)  RPM(I),  ETHNOM(I) 


C **  ECHO  DATA  TO  BLDLCO 


WRITE(3, 900) 
WRITE(3,901) 

WRITE (3, 902) 

WRITE (3, 903) 

WRITE(3,904) 

WRITE(3,905) 
WRITE (3, 906) 
WRITE(3,907) 


HGASA , HGASB , HGASR 1 , 
TGASA , TGASB , TGASR 1 
SLOPEA,  SLOPEB,  SLOPRl, 
LAMGA,  LAMGB,  LAMGRl, 
TSUBI,  SPEEDM,  SPEEDS, 
TSTMU,  TSTSIG,  FDERRM, 
EBENDA,  EBENDB,  LAMPA, 
LAMAA,  LAMAB,  TANALA, 
EXP ( LAMDAA) , EXP ( LAMDAB 
EMNOM,  NOMSPD,  PERIOD, 
FAA,  FAB,  FAC,  FAD,  FAE 
FDlA,  FDlB,  FDlC,  FDlD, 
FD2A,  FD2B, 


HGASR2,  HGASTl,  HGAST2, 
TGASR2,  TGASTl,  TGAST2 
SLOPR2,  SLOPTl,  SLOPT2, 
LAMGR2,  LAMGTl,  LAMGT2 
FAERRM,  FAERRS, 

FDERRS 

LAMPB,  MANALA,  MANALB, 
TANALB 

),  EXP(LAMTMA),  EXP(LAMTMB) 
TRUNC,  NTIME,  WEXP 
, F^, 

FDIE,  FDIF, 
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no  on  o on 


FD3A,  FD3B 


DO  25  I = 1,  (NTIME  - 1) 

WRITE(3,908)  RPM(I),  ETHNOM(I) 

25  CONTINUE 

**  CALL  INFAGG  TO  PERFORM  THE  INFORMATION  AGGREGATION  MODEL  ASPECT 
OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  INFAGG  (RANGEM,  MU,  SIG,  NF,  NPTS,  SZERO,  ZROREG,  NUMREG, 

& NBND,  STR,  FTU,  FTY,  VARY,  MPROC,  KRATIO,  PVAR, 

& MEDMB,  MEDKB,  RESID) 

IF  (MPROC  .EQ.  1)  PSIG  = SQRT  (PVAR) 

MCOUNT  = 0 

**  INITIALIZE  VARIABLES 

DO  35  K = 1,  MAXLIF 
LIFEW(K)  = l.OE+36 
LIFEL(K)  = l.OE+36 
35  CONTINUE 

NLIFET  = NHYPER  * NLIFE 

**  OUTER  LOOP  - THIS  LOOP  SAMPLES  HYPER-PARAMETER  SETS 
DO  150  K = 1,  NHYPER 

**  CALL  PRYRV  TO  OBTAIN  RHO, THETA  PAIRS  FOR  INNER  LOOP  CALCULATIONS 

CALL  PRYRV  (RAND,  HGASRl,  HGASR2,  HGASTl,  HGAST2,  HGASR,  HGAST) 

CALL  PRYRV  (RAND,  TGASRl,  TGASR2,  TGASTl,  TGAST2,  TGASR,  TGAST) 

CALL  PRYRV  (RAND,  SLOPRl,  SLOPR2,  SLOPTl,  SLOPT2,  SLOPR,  SLOPT) 

CALL  PRYRV  (RAND,  LAMGRl,  LAMGR2,  LAMGTl,  LAMGT2,  LAMGR,  LAMGT) 

CALL  PRYRV  (RAND,  MANALA,  MANALB,  TANALA,  TANALB,  HANAL,  TANAL) 

**  CALL  PEB  TO  PERFORM  THE  BOOTSTRAPPING  ASPECT  OF  THE 
MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  PEB  (NPTS,  NUMREG,  ZROREG,  RAND,  NBND,  STR,  MEDMB, 

& MEDKB,  RESID,  BIGK,  BZERO,  MM,  SBND) 

C **  OBTAIN  MATERIALS  PROCESS  VARIATION  PARAMETERS  IF  DESIRED 

CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ) 

IF  (MPROC  .EQ.  1)  THEN 
Z = EXP  (LNZ) 

ELSE 

KRATIO  =1.0 
Z = 1.0 
LNZ  =0.0 
ENDIF 

MCOUNT  = MCOUNT  + 1 
IX)  175  L = 1,  NUMREG 

ALLM(MCOUNT,  L)  = MM(L) 

175  CONTINUE 

C **  INNER  LOOP  - THIS  LOOP  GENERATES  BLADE  FAILURE  TIMES 

DO  200  1=1,  NLIFE 

C **  INITILIZE  S/N  CURVE  PARAMETERS 

DO  225  L = 0,  MAXREG 
LNA(L)  = O.O 
LPHIM(L)  =0.0 
TRSBND(L)  = 0.0 
225  CONTINUE 

C **  SELECT  DRIVERS  FOR  CALCULATING  LIFE 
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& 


CALL  BETAGN 
CALL  BETAGN 
CALL  BETAGN 
CALL  BETAGN 


(RAND,  HGASR, 
(RAND,  TGASR, 
(RAND,  SLOPR, 
(RAND,  LAMGR, 


HGAST,  HGASA, 
TGAST,  TGASA, 
SLOPT,  SLOPEA, 
LAMGT,  LAMGA, 


HGASB, 

TGASB, 

SLOPES, 

LAMGB, 


CALL  NORMGN 
CALL  NORMGN 
CALL  NORMGN 
CALL  NORMGN 


(RAND,  SPEEDM, 
(RAND,  FAERRM, 
(RAND,  TSTMU, 
(RAND,  FDERRM, 


SPEEDS,  SPEED) 
FAERRS,  MODERl) 
TSTSIG,  TSTART) 
FDERRS,  MODER2) 


HGAS) 

TGAS) 

SLOPE) 

LAMG) 


CAI,L  PRYRV  (RAND,  EBENDA,EBENDB#IAMPA  XAMPR 
C^  PRYRV  (rand;  lamaa,  lammT  lam^'  iajm'  ' 

L^A^=^EXP  ^ ' LAMDAB  , LAMTMA , LAMTm6  , lAMDA, 

LAMTM  = EXP  (LAMTM) 


LAMP) 

DUM) 

LAmW) 


CALL  WORSTN  (RAND,  NSYM,  BZERO,  MM,  EPSW,  EPSL) 
IF  ((VARY  .EQ.  0)  .OR,  (VARY  .EQ.  4))  PHI  = 1,0 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE(8,^) 
WRITE ( 8 , ★ ) 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , ★ ) 

WRITE ( 8 , * ) 
ENDIF 


15)  THEN 
'HGAS  =' , 
'SLOPE 
'LAMP  =' , 
'SPEED  = 
'LAMTM  =' 
'MANAL  =' 
'TSTART  = 
' MODER2 
'EPSW  = ' 


HGAS , ' TGAS  = ' , TGAS 

, SLOPE,  ' LAMG  = LAMG 
LAMP,'  EBEND  =' ,EBEND, ' LAMA  =' 
',  SPEED,'  LAMDA  =' ,LAMDA 
, LAMTM, ' PHI  =' ,PHI 
, MANAL, ' TANAL  =',TANAL 
= ' , TSTART . ' MODERl  = ' , MODERl , 

= ' , MODERN  ' 

, EPSW,  ' EPSL  = EPSL 


,LAMA 


C **  CALCULA'TE  REGION  DEPENDENT  S/N  CURVE  PARAME'TERS 
FACTR  = PHI  ★ KRATIO  * Z 


235 


250 


DO  235  L = ZROREG,  NUMREG 
TRSBND(L)  = FACTR  * SBND(L) 

TRBIGK(L)  = BIGK(L) 

CONTINUE  ^ ' 

'TRSBND(O)  = SBND(O) 

(SZERO,  BIGK,  MM,  NBND 
TRSBND,  TRBIGK,  FACTR,  NUMREG)  ' ' 

DO  250  L = ZROREG,  NUMREG 

MM(L)  ★ ALOG (TRBIGK (L)  ) 

MM(L)  * ALOG(PHI)' 

TRSBND(L)  = SBND(L)  * PHI  * KRATIO  ♦ Z 
IF  (lOUT  ,EQ.  15)  THEN 

: P^,  = '£  SBND(L) 

'TRSBND  =',  TRSBND(L) , ' FACTO  = FACTO 

CONTINUE 


C *★  CALL  BLDLIF  TO  OBTAIN  BLADE  LCF  LIFE 


& 

& 

& 

& 

& 

& 


NEWLIF  = I^A  * LAMTM  * BLDLIF  (TGAS,  HGAS,  FAA  FAB  FAC 
FAD,  FAE,  FAF , MODERl,  RPM,  TSUBI  SPEED  SLOPE  ^ 
TSTART,  FDIA,  FDIB,  FDlC,  FDlD,  FDlE  FdIf  ' 
MODER2,  FD2a;  FD2b;  FD3a;  FD3B  ETONOMf  A^AL 
NOMSPD,  EMNOM,  TANAL,  LAMA,  LAMg!  EMNd' 
NTIME,  TRUNC,  PERIOD,  WEXP,  MM,  LNA  LPHIM  ’ 
KRATIO,  LNZ,  TRSBND,  ' ZROREG, MtoS) 


LIFW  = EPSW  * NEWLIF 
LIFL  = EPSL  * NEWLIF 


IF  (IOUT  . 
WRITE ( 8 
WRITE (8 
ENDIF 


EQ. 

>*) 

,*) 


15)  THEN 
'NEWLIF  = 
'LIFW  = ' , 


' , NEWLIF 
LIFW,  ' LIFL 


LIFL 
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IF  (NLIFET  .GE.  100)  THEN 

CALL  INSORT  (LIFW,  LIFEW,  NLIFET) 

CALL  INSORT  (LIFL,  LIFEL,  NLIFET) 

ENDIF 

200  CONTINUE 

150  CCWTINUE 

IF  (NLIFET  .GE.  100)  THEN 
C **  PRINT  SORTED  LIVES  TO  FILE  LOWLIF 
DO  300  J = 1,  (NLIFET  / 100) 

WRITE(9,*)  J,  FLOAT (J) /FLOAT (NLIFET),  LIFEW(J),  LIFEL(J) 
300  CONTINUE 

C **  INITIALIZE  VARIABLE  BLFPOS ( ) 

DO  325  J = 1,  MAXBLF 
BLFPOS (J)  = 0 
325  CONTINUE 

FIFTY  = 0.50E0 

C **  PRINT  EMPIRICAL  BLIVES 

WRITE(3,925) 

DO  350  J = 1,  NBLIFE 

BLFPOS (J)  = NINT  (BLFPER(J)  * FLOAT  (NLIFET)) 

WRITE(3,926)  BLFPER(J),  LIFEW(BLFPOS( J) ) , LIFEL(BLFPOS( J) ) 
350  CONTINUE 

WRITE(3,926)  FIFTY,  LIFEW(NLIFET/2 ) , LIFEL (NLIFET/2 ) 

ENDIF 

C **  CALCULATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 

IF  (((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  .OR.  (VARY  .EQ.  4))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  = MCOUNT  / 2 
DO  400  L = 1,  NUMREG 

MEDM(L)  = ALLM(MID,L) 

400  CONTINUE 

CALL  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 

& NBND,  BIGKl,  BZERO) 


ENDIF 


C **  FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  BLDLCO 


900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ', 

& 'Technology.  U.S.  Government' , /,2X, 'Sponsorship  under  ', 

& 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

& 33X, 'INPUT  DATA', 

& ///, 14X, 'DRIVERS' ,25X, 'PARAMETER  DISTRIBUTIONS', 

& //,48X, 'RHO' , 16X, 'THETA' ) 


901  FORMAT(/,2X, 'Hgas' , 
& 'U('  F7.5,', 

& //,2X, 'Tgas 

& 'U(',F7.5,', 


13X ,'Be( ' ,F5.0, ' , ' ,F6.0, ' ) ',5X, 
',f8.5,')',4X, 'U(',F4.1,',',F5.1,' 
(deg  R) ' ,5X, 'Be( ' ,F5.0 ' ,F6.0 ,' ) 
',F8.5,')',4X, '0(',F4.i,',',F5.i,' 


)’) 


902  FORMAT (/, 2X, 'DECEL  SLOPE' ,6X, 'Be( ' ,F5.0, , 
& 'U( ' ,F7.5, ' , ' ,F8.5, ' ) ' ,4X, 'U( ' ,F4.1, ' 

& //,2X, 'Tgas  UNCERT. ' ,5X, 'Be( ' ,F5.2, ' , 

& 'U( ' ,F7.5, ' , ' ,F8.5, ' ) ' ,4X, 'U( ' ,F4. 1, ' 


',F6.2  5 
,',F5.i, 


,5X, 

)S^x, 

')') 
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903  FORMAT(//, SOX, 'N(  MEAN,  STD.  DEV.)', 

i AT  time  T',I1, 

4 2X, 'Faccel  MODELING  E^OR' , ^7x| 'N( ' ,F4 . 1 ' ' Ell  4 

t ^i^J?^f;®^ARTING^DECEL  TE^^  > ' 

i 2X,'Fdecei  MODELING  ERROR' , 27X, 'N( ' ,F4 . 1, ' , ' ,E11. 4, ' ) ' ) 

904^FORMAT(//,2X^^STRAIN  DOT^TO  GAS  BENDING  (%)',17X, 


& //,2X, 'LAMBDA  BLADE  PULL',29X. 

& 'U('  F8.5,',',F9.5,')', 

2X^^MECHANIC^  ANALYSIS  FACTOR' , 20X, 


'U(',F8.5,',',F9.5,')  , 

'''?^^g<^°EFFICIENT  OF  THERMAL  EXPANSION  FACTOR', 7X, 

//, 2 X,  "THERMAL  ANALYSIS  FACTOR', 23X. 

'U(',F8.5, ', ',F9.5, ')') 


905  FORMAT(//,2X, 'DAMAGE  MODEL  ACCURACY' ,23X. 

& 'U(ln',F8.5, ' , ln',F8.5, ' )' . 

& //,2X, 'TMF  MODEL  ACCURACY ', iex, 

& 'U(ln',F8.5,',  ln',F8.5, ')') 

906  FORMAT(////,20X, 'OTHER  STRAIN  HISTORY  INPUT', 

f ///,2X, 'NOMINAL  MECHANICAL  STRAIN  ( %) ' , 23X,F6 .4 . 

t 'NOMINAL  ROTOR  SPEED  (rpm) ' ,23X,F6. o' 

r STRAIN-TIME  HISTORY  PERIOD  (missions 14X.F5  2 

t / ’ strain-time  history  noise  filter  (%) ' , i6X,F7.5  ' 

f 'NUMBER  OF  POINTS  IN  HISTORIES' , 19X,I5' 

& ///2X, 'WALKER  EXPONENT' ,36X,F5. 2) 

907  FORMAT(////6X,' COEFFICIENTS  ^ AND  DECELERATION 


‘ y ACCELERATION  AND  DECELERATION  '. 

y//,2X, 'THERMAL  STRAIN  AT  STARTUP  (%):', /,5X, 
“5as)  = ',E13.6,'  + ',E13.6,'  * Tgas  + ', 

* ?9as  + -,E13.6.'  * Tgas  **  2 + ^, 

/ ^ ^ * Hgas**2  + ',E15.6,'  * Tgas  * Haas' 

STfeiN  AT  SHUTDOWN  (%);'7,5X,  ^ 

/ 1 f Tstart)  — '.E13.6,'  + ',E13.6,'  * Tatart  + ', 
/' 1 f ' , '»Ei3.6,'  * Tstart  **  2 + ' , 

*,5'  * m **  2 + ',E13.6,'  * Tstart  * m', 

//y2X,  TIME  AT  SHUTDOWN  (sec):', 

'Fdecel2(m,  Tstart)  = ',El5.6,'  + 

r ) / m'  , 


SPEED  AT  SHUTDOWN  (rpm):', 
/,5x, 'Fdecel3(t)  = ',E13.6,'  + ' E13  6 
>;////, 20X,  'STRAIN  HISTORY  fNFORMATiSN': 
/ SPEED ',5X, 'THERMAL  STRAIN 

/,9X, 'rpm',15x, ' (%)',/) 


' , ' (Tst^u^t  - 
’ * t'. 


908  FORMAT (7X,F7.1,9X,F9. 6) 

925  FORMAT(///,2X, 'B  LIVES:  WEIBULL 

926  F0RMAT(2X,F7.5,5X,E13.6,5X,E13.6) 


LOGNORMAL' ,/) 


STOP 

END 


c 


SAMPLE  'BLDLCD'  INPUT  FILE 

^ ********************************************************** 

^ n RANDOM  NUMBER  SEED 

OUTPUT  DUMP  CONTROLLER 

onn INNER  LOOP  SIZE 

OUTER  LOOP  SIZE 

SYMMETRY  NUMBER 

n BOOTSTRAP  S/N  VARIATION 

X J: NORMAL  MEDIAN  NOT  REOUIRED 

^ " mat.  PROC.  VAR.  NOT  REQUIRED 

NUMBER  OF  BLIVES  REQUESTED 


C 3. 
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C 0.0001 B.Ol  LIFE 

C 0.001 B.l  LIFE 

.Bl  LIFE 
.Hgas 
.Tgas 

.DECEL  SLOPE 


C 

0.01. 

c 

676. 

2730. 

0.5 

0.5 

0.0 

0.0 

c 

800. 

2000. 

0.5 

0.5 

0.0 

0.0 

c 

2730. 

2730. 

0.5 

0.5 

0.0 

0.0 

c 

0.80 

1.20 

0.5 

0.5 

0.0 

0.0 

(A,B)  (R1.R2J 
(A,B)  (R1/R2 

(A,B)  (R1,R2) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


.Tgas  UNCERTAINTY  FACTOR 


(Tl,T2) 

(Tl,T2) 

(T1,T2) 


5 37592.  507 ROTOR  SPEED  VARIATION  PARAMETERS; 

i,  MEAN,  STD. DEV.  (NORMAL  DIST.) 

0.0  0.020 Faccel  MODELING  ERROR  MEAN  & STD. DEV. 

1640.0  40.67 DECEL  Tstart  MEAN  & STANDARD  DEVIATION 

975.3  28.6 STANDARD  RESPONSE  PROBE  MEAN  & STD  DEV 

0.0  0.003 Fdecel  MODELING  ERROR  MEAN  & STD  DEV 

0.0  0.0 STRAIN  DUE  TO  GAS  BENDING  (%) 

0.96  1.04 LAMBDA  BLADE  PULL 

0.80  1.20 MECHANICAL  ANALYSIS  ACCURACY  FACTOR 

0.975  1.025 COEFFICIENT  OF  THERMAL  EXPANSION 

0.70  1.30 THERMAL  ANALYSIS  ACCURACY  FACTOR 

-0.693147  0.563283 DAMAGE  ACCUMULATION  MODEL  ACCURACY 

0.00  0.00 TMF  MODEL  ACCURACY 

0.295  38482 NOMINAL  MECH.  STRAIN  & ROTOR  SPEED  (%,RPM) 

1.0  STRAIN-TIME  HISTORY  PERIOD  (MISSIONS) 

0.000 STRAIN-TIME  HISTORY  NOISE  FILTER  (%) 

6  NUMBER  OF  POINTS  IN  STRAIN-TIME  HISTORY 

0.5 WALKER  EXPONENT 

COEFFICIENTS  FOR  STARTUP  RESPONSE  SURFACE  FOR  THERMAL  STRAIN: 

Faccel (Tgas, Hgas)  =A+B*T+C*H+D*  t**2  + E ♦ H**2  + F * T * H 
A B C D E F 

0.00727362  0.000067442  -0.000059109  -3.52929E-08  1.07611E-08  -2.74419E-08 

COEFFICIENTS  FOR  SHUTDOWN  RESPONSE  SURFACE  FOR  THERMAL  STRAIN: 

Fdecel l(m, Tstart ) = A + B * Tstart  + C * m + D * Tstart  2 

+E^m**2+F*  Tstart  * m 


A 

-0.132623 


B C 

0.000227427  -0.000059290 


D 

0.00 


E 

0.00 


4.71714E-08 


COEFFICIENTS  FOR  SHUTDOWN  RESPONSE  SURFACE  FOR  TIME: 
Fdecel2 (m, Tstart ) = A + (Tstart  - B)  / m 
JV  B 

0.20  950.0 

COEFFICIENTS  FOR  SHUTDOWN  RESPONSE  SURFACE  FOR  RPM: 
Fdecel3(t)  = A + B t 


A 

30523.07 

RPM r TIME) 
225.8 
3025.1 
6138.8 
8309.0 
0.0 


B 

-21846.15 

THERMAL  STRAIN 

0.0 

-0.196921 

0.146025 

-0.200128 

0.007393 


(%) 


.STRAIN  HISTORY  INFORMATION 


'RT, 

1.54 

8 

0.89 

0.89 

0.67 

0.67 

0.56 

0.56 

0.56 

0.39 


PWA  1480,  001  DIRECTION' MATERIAL  DESCRIPTION 

1.57  1 8 YIELD  & ULTIMATE  STRENGTHES,  NDIV,  NPTS 

-1.0  1 # PTS  IN  DIV,  STRAIN  RATIO,  REGION 


6800 S(l)  N(l) 

15000 S(2  N 2 

27000 S 3 N 3 

43200 S 4 N 4 

139300 S 5 N 5 

545200 S 6 N 6 

147000 S{7)  N 7 

4344800 S(8  N 8 

0.00 NO  value 


RAW 

STRAIN-LIFE 
(S/Nj| 

DATA 
POINTS 
FOR  THE 
SPECIFIC 
MATERIAL 
OF  SO  SUPPLIED  (%) 


1 0 NUMBER  OF  REGIONS  :W/DATA'W^0  DATA 

l.OE+36 LIFE  BOUNDARIES:  REGION  1 

0.00 CONSTRAINT  ON  COEFF.  OF  VARIATICKl 

0 0.00  0.00 0 PTS  IN  RANGE,  LOWER  BOUND,  UPPER  BOUND 

0.0  0.0  0.0 NORMAL  DIST.  PRIORS:  DELTA,  MO,  SIGMA2 


C****  ****  **««««****  *!^  **********  *********1^**  *★**«**<*  ******1^************ 

C LIST  OF  VARIABLES 
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c 

C ALLM(  ) 

C BIGK ( ) 

C 

C BIGKl 
C 

C BLDLIF 
C 

C BLFPER( ) 

C BLFPOS ( ) 

C BZERO 
C DUM 
C EBEND 
C EBENDA 
C EBENDB 
C EMNOM 
C EPSL 
C EPSW 
C ETHNOM( ) 

C FAA,  FAB, 

C 

C FACTR 
C FAERRM 
C FAERRS 
C FDIA,  FDIB 
C 

C FD2A,  FD2B 
C 

C FD3A,  FD3B 
C 

C FDERRM 
C FDERRS 
C FIFTY 
C FTU 
C FTY 
C HGAS 
C HGASA 
C HGASB 
C HGASR 
C HGASRl 
C HGASR2 
C HGAST 
C HGASTl 
C HGAST2 
C I 

C lOUT 
C J 
C K 

C KRATIO 
C L 

C LAMA 
C LAMAA 
C LAMAB 
C LAMDA 
C 

C LAMDAA 
C LAMDAB 
C LAMG 
C LAMGA 
C LAMGB 
C LAMGR 
C LAMGRl 
C LAMGR2 
C LAMGT 
C LAMGTl 
C LAMGT2 
C LAMP 
C LAMPA 
C LAMPB 
C LAMTM 
C LAMTMA 
C LAMTMB 
C LIFELO 
C 


2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 
EACH  REGION 

EQUAL  TO  BIGK ( 1 ) — DUMMY  PARAMETER  FOR  CALLS  TO  SUBROUTINE 
EXPCTD 

REAL  FUNCTION  PERFORMING  THE  DRIVER  TRANSFORMATION  AND  LCF 
LIFE  CALCULATION 

1-D  ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PROVIDED 
1-D  ARRAY  CONTAINING  POSITION  IN  LIFE()  OF  EMPIRICAL  BLIVES 
WEIBULL  SHAPE  PARAMETER,  BETAo,  CHARACTERIZING  S/N  DATA  SET 
DUMMY  VARIABLE 

SELECTED  VALUE  FOR  BENDING  STRAIN  (%) 

EBEND  LOWER  BOUND 
EBEND  UPPER  BOUND 
NOMINAL  MECHANICAL  STRAIN  (%) 

LOGNORMAL  WORST  OF  NSYM  RANDOM  VARIATE 
WEIBULL  WORST  OF  NSYM  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  THE  NOMINAL  THERMAL  STRAIN-TIME  HISTORY 
FAC,  FAD,  FAE,  FAF 

COEFFICIENTS  FOR  FA,  THE  ACCELERATION  FUNCTION 
SCALE  FACTOR  EQUAL  TO  PHI  * KRATIO  * Z 
STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE  MEAN 
STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE  STANDARD  DEV. 

, FDIC,  FDlD,  FDIE,  FDIF 

COEFFICIENTS  FOR  FDl,  ONE  OF  THE  DECELERATION  FUNCTIONS 
COEFFICIENTS  FOR  FD2,  ONE  OF  THE  DECELERATION  FUNCTIONS 


COEFFICIENTS  FOR  FD3,  ONE  OF  THE  DECELERATIC»I  FUNCTIONS 

DECEL  THERMAL  STRAIN  RESPONSE  SURFACE  MEAN 

DECEL  THERMAL  STRAIN  RESPONSE  SURFACE  STANDARD  DEV. 

EQUAL  TO  .6  - USED  TO  ACCESS  50%  POINT  IN  LIFELO  AND  LIFEWO 
MATERIAL  ULTIMATE  STRENGTH  < % ) ' ^ ' ' 


TCIENT,  Hgas 


MATERIAL  YIELD  STRENGTH  (%) 

SELECTED  HOT  GAS  FILM  COEFT 
HGAS  LOWER  BOUND 
HGAS  UPPER  BOUND 
SELECTED  RHO  FOR  HGAS 
HGAS  - RHO  LOWER  BOUND 
HGAS  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  HGAS 
HGAS  - THETA  LOWER  BOUND 
HGAS  - THETA  UPPER  BOUND 
CONTROLS  INNER  DO  LOOP 
CONTROLS  DUMP  TO  FILE  lOUTPR 
CONTROLS  DO  LOOP  FOR  EACH  BLIFE 
CONTROLS  OUTER  DO  LOOP 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

SELECTED  COEFFICIENT  OF  THERMAL  ACCURACY  FACTOR,  LAMbda  Alpha 
LAMA  LOWER  BOUND 
LAMA  UPPER  BOUND 

SELECTED  DAMAGE  ACCUMULATION  MODEL  ACCURACY  FACTOR,  LAMbda 
Damage  Accumulation 
LAMDA  LOWER  BOUND 
LAMDA  UPPER  BOUND 
SELECTED  UNCERTAINTY  IN  Tgas 
LAMG  LOWER  BOUND 
LAMG  UPPER  BOUND 
SELECTED  RHO  FOR  LAMG 
LAMG  - RHO  LOWER  BOUND 
LAMG  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  LAMG 
LAMG  - THETA  LOWER  BOUND 
LAMG  - THETA  UPPER  BOUND 

SELECTED  DEVIATION  IN  BLADE  PULL  DUE  TO  BLADE  MASS,  LAMbda  Pull 
LAMP  LOWER  BOUND 
LAMP  UPPER  BOUND 

SELECTED  TMF  MODEL  ACCURACY  FACTOR,  LAMbda  TMf 
LAMTM  LOWER  BOUND 
LAMTM  UPPER  BOUND 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED  BY  THE  PFM 
USING  THE  LOGNORMAL  DISTRIBUTION  — SORTED  VALUES  OF  THE 


7-185 


c 

C LIFEWO 
C 

c 

C LIFL 
C LIFW 
C LNA() 

C LNZ 
C LPHIMO 
C MANAL 
C MANALA 
C MANALB 
C MAXBLF 
C MAXDAT 
C MAXLIF 
C 

C MAXM 
C MAXMM 
C MAXREG 
C MCOUNT 
C MEDKBO 
C 

C MEDM(  ) 

C MEDMB  < ) 

C 

C MID 
C MM<) 

C MODERl 
C MODER2 
C MPROC 
C 

C MU(  ) 

C 

C NBLIFE 
C NBND() 

C 

C NEWLIF 
C NF(  ) 

C 

C NHYPER 
C NLIFE 
C NLIFET 
C NMED 
C 

C NOMSPD 
C NPTS() 

C 

C NSYM 
C NTIME 
C NUMREG 
C PERIOD 
C PHI 
C PSIG 
C PVAR 
C RAND 
C RANGEM< ) 
C 
C 

C RESID( ) 

C 

C RPM() 

C SBND() 

C 

c 

C SIG() 

C 

C SLOPE 
C SLOPEA 
C SLOPES 
C SLOPR 
C SLOPRl 
C SLOPR2 
C SLOPT 
C SLOPTl 
C SLOPT2 


LEFT-HAND  TAIL 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED  BY  THE  PFM 
USING  THE  WEIBULL  DISTRIBUTION  - SORTED  VALUES  OF  THE 
LEFT-HAND  TAIL 

MISSIONS  TO  FAILURE  BASED  ON  EPSL 
MISSIONS  TO  FAILURE  BASED  ON  EPSW 

1-D  ARRAY  CONTAINING  Ln(A)  = Ln(BIGK)*MM  FOR  EACH  REGION 
NORMAL (0, PVAR)  GENERATED  RANDOM  VARIABLE 
1-D  ARRAY  CONTAINING  Ln(PHI)^MM  FOR  EACH  REGION 
SELECTED  MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 
MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
MAXIMUM  NUMBER  OF  BLIVES  TO  BE  PROVIDED 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA, 

ALPHA  CALCULATION 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  TIME  HISTORY 
MAXIMUM  NUMBER  OF  M' S TO  BE  SORTED  FOR  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  MEDIAN  S/N  CURVE 
1-D  ARRAY  CONTAINING  THE  MEAN  K VALUES  FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEAN  M VALUES  FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

POINTER  TO  THE  MEDIAN  M VALUES  - EQUAL  TO  HALF  OF  MCOUNT 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
MODEL  ERROR  FOR  STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE 
MODEL  ERROR  FOR  DECELERATICa^  THERMAL  STRAIN  RESPONSE  SURFACE 
Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATIC»J 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
NUMBER  OF  BLIVES  TO  BE  PROVIDED 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  FOR  THE  NUMREG  LIFE  REGIONS 

OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 
LIFE  VALUE  RETURNED  FROM  CALL  TO  BLDLIF 

2- D  ARRAY  CONTAINING  RAWNF()  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA 
SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 

CONTROLS  MEDIAN  CALCULATION  FOR  THE  NORMAL  DISTRIBUTION  CASE  - 
0 - NO  MEDIAN  CALCULATION;  1 - MEDIAN  CALCULATION  DESIRED 
NOMINAL  ROTOR  SPEED,  RPM 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REGION  FOR 
THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 

SYMMETRY  NUMBER 

NUMBER  OF  POINTS  IN  STRAIN-TIME  HISTORY 

NUMBER  OF  REGIONS  OF  INTEREST 

LENGTH  OF  TIME  IN  MISSIONS  OF  TIME  HISTORY 

WEIBULL (BETAO,  ETAo)  GENERATED  RANDOM  VARIATE 

EQUAL  TO  SQRT(PVAR)  - MATERIALS  PROCESS  STANDARD  DEVIATION 

MATERIALS  PROCESS  VARIATION 

RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  CW  M FOR 
EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND  RANGEM(2,L) 

IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  REGRESSION  FOR  EACH 
POINT  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
1-D  ARRAY  CONTAINING  ROTOR  SPEED  HISTORY  (rpm) 

1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES  (%,  R « -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
SELECTED  DECELERATION  SLOPE,  m (deg  R / sec) 
m LOWER  BOUND 
m UPPER  BOUND 
SELECTED  RHO  FOR  m 
m - RHO  LOWER  BOUND 
m - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  m 
m - THETA  LOWER  BOUND 
m - THETA  UPPER  BOUND 
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C SPEED 
C SPEEDM 
C SPEEDS 
C STR( ) 

C 

C SZERO 
C TANAL 
C TANALA 
C TANALB 
C TGAS 
C TGASA 
C TGASB 
C TGASR 
C TGASRl 
C TGASR2 
C TGAST 
C TGASTl 
C TGAST2 
C TRBIGKO 
C 

C TRSBND ( ) 
C 

C TRUNC 
C TSTART 
C TSTMU 
C TSTSIG 
C TSUBI 
C VARY 
C 
C 

C WEXP 
C Z 

C ZROREG 
C 


SELECTED  STEADY  STATE  ROTOR  SPEED,  RPM 
MEAN  OF  ROTOR  SPEED  (MU,  NORMAL  DISTRIBUTION) 

ST^DARD  DEVIATION  OF  ROTOR  SPEED  (SIGMA,  NORMAL  DISTRIBUTION) 
2-D  ARRAY  CONTAINING  STRAIN  POINTS  (STRAIN  RATIO  = -1.0)  FOR 
MATERIAL  S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 
STRAIN  TENSILE  TEST  POINT,  So 

SELECTED  THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 

THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 

THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 

SELECTED  GAS  TEMPERATURE  Tqas 

GAS  TEMPERATURE  LOWER  BOUND 

GAS  TEMPERATURE  UPPER  BOUND 

SELECTED  RHO  FOR  GAS  TEMPERATURE 

GAS  TEMPERATURE  - RHO  LOWER  BOUND 

GAS  TEMPERATURE  - RHO  UPPER  BOUND 

SELECTED  THETA  FOR  GAS  TEMPERATURE 

GAS  TEMPERATURE  - THETA  LOWER  BOUND 

GAS  TEMPERATURE  - THETA  UPPER  BOUND 

CONTAINING  VALUES  OF  BIGK()  CORRECTED  FOR  SZERO, 

PHI,  KRATIO,  AND  Z 

1-D  ARRAY  CONTAINING  VALUES  OF  PHI  * KRATIO  ★ 2 * SBND  FOR 
EACH  REGION  CALCULATED  FOR  EACH  TRIAL 
VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  TIME  HISTORY  (%) 

STARTING  DECELERATION  TEMPERATURE  (deq  R) 

MEAN  OF  TSTART  ' ^ * 

STANDARD  DEVIATION  OF  TSTART 

INDEX  FOR  WHICH  VARIATION  IN  ROTOR  SPEED  OCCURS 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  - 0 - NO  VARIATION* 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION;  3 - ' 

TRUNCATED  NORMAL  VARIATION 
WALKER  EXPONENT 

LOGNORMAL ( 0,P VAR)  GENERATED  RANDOM  VARIATE 

” VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


c 

c 

c 

c 

c 

c 

c 

c 

c 


TO*C^lkATE^TL^FMIOTi  TRANSFORMATION  AND  CALLS  RAINF3 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JAN92  COMMENTS;  17APR92 

VERSION:  BLDLCF  3.4  (MATCHR  V8.5,  RAINF3  VI. 1) 

Copyright  (C)  1990,  California  Institute  of  Technoloqv. 
y.s.  ^vernirent  Sponsorship  under  NASA  Contract  NAS7-918 
18  acknowledged. 

FUNCTION  BLDLIF  (TGAS,  HGAS,  FAA,  FAB,  FAC,  FAD,  FAE,  FAF, 
t TSUBI,  SPEED,  SLOPE,  TSTART,  FDIA, 

t FDIE,  FDIF,  MCtt>ER2,  FD^A, 

* FD2B,  FD3A,  FD3B,  ETHNOM,  MANAL,  LAMP,  NOMSPD. 

r TANAL,  LAMA,  LAMG,  EBEND,  NTIME,  TRUNC, 

r PERIOD,  WEXP,  MM,  LNA,  LPHIM,  KRATIO,  LNZ, 

* TRSBND,  ZROREG,  NUMREG,  SZERO) 

SUBPROGRAMS : RAINF3 

INPUTS:  T^S,  HG^,  FAA,  FAB,  FAC,  FAD,  FAE,  FAF,  MODERl,  RPM, 

SLOPE,  TSTART,  FDlA,  FDIB,  FDIC,  FDlD, 
f&iR'  ' ^^2A,  FD2B,  FD3A,  FD3B,  ETHNOM,  MANAL, 

LAMP,  NOMSPD,  EMNOM,  TANAL,  LAMA,  LAMG,  EBEND,  NTIME 

OUTPUTS:  BLDLIF 


C IMPLICIT  NONE 

INTEGER  MAXM,  MAXREG 
PARAMETER  (MAXM  = 50,  MAXREG  = 3) 
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COMMON  lOUT 


INTEGER  I,  lOUT,  NTIME,  NUMREG,  TSUBI,  ZROREG 


REAL 


BLDLIF,  EBEND,  EM(MAXM) , EMNOM,  ETH(MAXM) , ETHNOM ( MAXM ) , 
ETOT(MAXM),  FA.  FAA,  FAB,  FAC,  FAD,  FAE,  FAF,  FDl* 

FDIA,  FDIB,  FDIC,  FDlD,  FDIE,  FDIF,  FD2,  FD2A,  FD2B, 

FD3,  FD3A,  FD3B,  HGAS,  KRATIO,  LAMA,  LAMG,  LAMP, 
LNA(0:MAXREG),  LNZ,  LPHIM(  0 :MAXREG)  , MANAL, 

MM(U;MAXREG) , MODERl,  MODER2,  NOMSPD,  PERIOD,  RAINF3, 
RPM(MAXM),  SLOPE,  SPEED,  SZERO,  TANAL,  TGAS, 
TRSBND(0:MAXREG) , TRUNC,  TSTART,  WEXP 


C 

c 

C EBEND 
C EM(  ) 

C 

C EMNOM 
C ETH() 

C ETHNOMO 
C ETOT( ) 

C FA 
C 

C FAA,  FAB, 

C 

C FDl 
C 

C FDlA,  FDlB 
C 

C FD2 
C 

C FD2A,  FD2B 
C 

C FD3 
C 

FD3A,  FD3B 

HGAS 
I 

lOUT 
KRATIO 
LAMA 

LAMG 
LAMP 

LNA(  ) 

LNZ 

LPHIM( ) 
MANAL 
MAXM 
MAXREG 
MM(  ) 

MODERl 
MODER2 
NOMSPD 
C NTIME 
C NUMREG 
C PERIOD 
C RAINF3 
C 
C 

C RPM(  ) 

C SLOPE 
C SPEED 
C SZERO 
C TANAL 
C TGAS 
C TRSBNDO 
C 

C TRUNC 
C TSTART 
C TSUBI 


LIST  OF  VARIABLES 

SELECTED  VALUE  FOR  BENDING  STRAIN  (%) 

1-D  ARRAY  CONTAINING  THE  SIMULATED  MECHANICAL  STRAIN-TIME 
HX  STORY  ( % ) 

NOMINAL  MECHANICAL  STRAIN  (%) 

1-D  ARRAY  CONTAINING  THE  SIMULATED  THERMAL  STRAIN-TIME  HISTORY 
1-D  ARRAY  CONTAINING  THE  NOMINAL  THERMAL  STRAIN-TIME  HISTORY 
1-D  ARRAY  CONTAINING  THE  TOTAL  STRAIN-TIME  HISTOY 
VALUE  OF  ACCELERATION  FUNCTION  FOR  THERMAL  STRAIN  - SECOND 
ORDER  POLYNOMIAL  AS  A FUNCTION  OF  TGAS  AND  HGAS 
FAC  FAD  FAE  FAF 

COEFFICIENTS 'for  FA,  THE  ACCELERATION  FUNCTION 
VALUE  OF  DECELERATION  FUNCTION  FOR  THERMAL  STRAIN  — SECOND 
ORDER  POLYNOMIAL  AS  A FUNCTION  OF  m,  THE  DECELERATION  SLOPE 
, FDlC,  FDlD,  FDIE,  FDlF 

COEFFICIENTS  FOR  FDl,  ONE  OF  THE  DECELERATION  FUNCTIONS 
VALUE  OF  DECELERATION  FUNCTION  FOR  TIME  — SECOND  ORDER 
POLYNOMIAL  AS  A FUNCTI<»1  OF  m,  THE  DECELERATION  SLOPE 

COEFFICIENTS  FOR  FD2,  ONE  OF  THE  DECELERATION  FUNCTICaiS 
VALUE  OF  DECELERATION  FUNCTION  FOR  ROTOR  SPEED  — FIRST 
ORDER  POLYNOMIAL  (LINEAR)  FUNCTION  OF  TIME 

COEFFICIENTS  FOR  FD3,  ONE  OF  THE  DECELERATION  FUNCTIONS 
SELECTED  HOT  GAS  FILM  COEFFICIENT,  Haas 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  TIME  HISTORY 
CONTROLS  DUMP  TO  FILE  lOUTPR 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
SELECTED  VALUE  FOR  COEFFICIENT  OF  THERMAL  EXPANSION  ACCURACY 
FACTOR,  LAMbda  Alpha 
THE  UNCERTAINTY  IN  Tgas 

SELECTED  VALUE  FOR  DEVIATION  IN  BLADE  PULL  DUE  TO  BLADE  MASS, 
LAMbda  Pull 

1-D  ARRAY  CONTAINING  Ln(A)  = Ln(BIGK)*MM  FOR  EACH  REGION 

NORMAL (0,PVAR)  GENERATED  RANIX>M  VARIABLE 

1-D  ARRAY  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 

SELECTED  VALUE  FOR  MECHANICAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  TIME  HISTORY 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGI<M« 

MODEL  ERROR  FOR  STARTUP  THERMAL  STRAIN  RESPONSE  SURFACE 

MODEL  ERROR  FOR  DECELERATION  THERMAL  STRAIN  RESPONSE  SURFACE 

NOMINAL  ROTOR  SPEED,  RPM 

NUMBER  OF  POINTS  IN  STRAIN-TIME  HISTORY 

NUMBER  OF  REGIONS  OF  INTEREST 

LENGTH  OF  TIME  IN  MISSIONS  OF  TIME  HISTORY 

REAL  FUNCTION  PERFORMING  RAINFlow  COUNTING,  DAMAGE  ACCUMU- 
LATION AND  FATIGUE  LIFE  PREDICTION  (USING  THE  MATERIALS 
CHARACTERIZATION  MODEL) 

1-D  ARRAY  CONTAINING  ROTOR  SPEED  HISTORY 
SELECTED  VALUE  FOR  DECELERATION  SLOPE,  deg  R / sec 
SELECTED  VALUE  FOR  STEADY  STATE  ROTOR  SPEED,  rpm 
STRAIN  TENSILE  TEST  POINT,  So 

SELECTED  VALUE  FOR  THERMAL  STRAIN  ANALYSIS  ACCURACY  FACTOR 
SELECTED  VALUE  FOR  HOT  GAS  TEMPERATURE  Tgas  (deg  R) 

1-D  ARRAY  CONTAINING  VALUES  OF  PHI  * KRATIO  * Z * SBND  FOR 
EACH  REGION  CALCULATED  FOR  EACH  TRIAL 
VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  TIME  HISTORY  (%) 

STARTING  DECELERATION  TEMPERATURE  (deg  R» 

THE  TIME  INDEX  FOR  WHICH  VARIATION  IN  ROTOR  SPEED  OCCURS 
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WEXP  WALKER  EXPONENT 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 

n f X ' 


C **  CALCULATE  STRAIN  HISTORY 


FA  = FAA  + FAB  * TGAS  + FAC  * HGAS  + FAD  * TGAS  **  2 
i + FAE  * HGAS  **  2 + FAF  * TGAS  * HGAS  + HODERl 

ETHNC»1(1)  = FA 

RPM(TSUBI)  = SPEED 


FDl  = FDlA  + FDlB  * TSTART  + FDlC  * SLOPE  + 
& + FDIE  * SLOPE  **  2 + FDIF  * TSTART  * 

FD2  = FD2A  + (TSTART  - FD2B)  / SLOPE 
FD3  = FD3A  + FD3B  * FD2 
RPM(NTIME)  = FD3 
ETHNOM(NTIME)  = FDl 


FDID  * TSTART  **  2 
SLOPE  + MODER2 


DO  100  1=1,  NTIME 

EM(I)  = MANAL  * LAMP  * (RPM(I)  / NOMSPD) 
ETH(l)  = TANAL  * LAMA  * ETHNOM(I) 

IF  ((I  .GT.  1)  .AND.  (I  .LT.  TSUBI) ) 
i ETH(I)  = LAMG  * ETH(I) 

ETO^I)  = EBEND  + EM(I)  + ETH(I) 

100  CONTINUE 


**  2 * EMNOM 


IF  (I OUT  .EQ.  15)  THEN 

V^TC(8,*)  'FA  = FA, 


125 


ETHNOMl  = ETHNOM(l) 
RPMI  = ',  RPM (TSUBI),  ' LAMG  = LAMG 
FDl  = FDl,  ' FD2  = ',  FD2 
FD3  = ',  FD3,  ' RPM  = ',  RPM(NTIME) 
ETHNOM  = ' , ETHNOM( NTIME) 


WRITE (8, * j 
WRITE ( 8 , * ) 

WRITE (8,*) 

WRITE(8,*) 

DO  125  1=1,  NTIME 

WRITE(8,*)  'I  = ',  I,  ' EM  = 
WRITE (8,*)  'ETH  = ',  ETH(I), 
CC»ITINUE  ' 

ENDIF 


, EM(I) 
ETOT  = 


ETOT(I) 


C **  CALL  RAINF3  TO  CALCULATE  DAMAGE  AND  RESULTING  FATIGUE  LIFE 

BLDLIF  = RAINF3  (ETOT,  NTIME,  TRUNC,  PERIOD,  WEXP,  MM,  LNA, 

“ LPHIM,  KRATIO,  LNZ,  TRSBND,  ZROREG,  NUMREG, 

*•  SZERO) 


RETURN 

END 


C*********  *******************  **mr**iririHc*******1r****1rifk*  **1111 


irirititit'k'kititititirit 


S INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 

C PROGRAMMER!  L.  NEWLIN 
C DATE:  20JUL90 

C VERSION:  2.1 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C y.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C IS  acknowledged . 

SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

C INPUTS:  NEWLIF,  LIFE,  NLIFET 

C OUTPUTS : LIFE 

C IMPLICIT  NONE 

INTEGER  MAXLIF 


7-189 


onooonoooooooo 


PARAMETER  (MAXLIF  = 10000) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NLIFET,  NUM,  PLACE 
REAL  LIFE (MAXLIF) , NEWLIF,  TEMP(MAXLIF) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  INSERTION 

lOUT  OUTPUT  DUMP  CONTROLLER 

LIFE ( ) 1-D  ARRAY  CONTAINING  TAIL  VALUES  OF  THE  LIVES  GENERATED  BY  THE 

PFM  TO  BE  SORTED 

MAXLIF  MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA.  ALPHA. 
CALCULATION 

NEWLIF  LIFE  VALUE  TO  BE  INSERTED  INTO  LIFE() 

NLIFET  TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
NUM  NUMBER  OF  LIFE  VALUES  IN  LIFE() 

PLACE  POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFE() 

TEMPO  1-D  ARRAY  CONTAINING  VALUES  OF  LIFE()  TO  BE  SHIFTS  UPON 
INSERTION  OF  NEWLIF 


NUM  = NLIFET  / 2 

C FIND  POSITION  IN  LIFE()  FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE ( NUM) ) GOTO  400 

DO  100  1=1,  NUM 

IF  (NEWLIF  .LT.  LIFE(I))  THEN 
PLACE  = I 
GOTO  110 
ENDIF 
100  CCWTINUE 
110  CCWTINUE 

C STORE  VALUES  OF  LIFE ( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMP ( ) 

DO  200  I = (PLACE  +1),  NUM 
TEMP(I)  = LIFE(I-l) 

200  CC»JTINUE 

C INSERT  NEWLIF 

LIFE (PLACE)  = NEWLIF 

C SHIFT  VALUES  OF  LIFE ( ) FOLLOWING  NEWLIF 

DO  300  I = (PLACE  +1),  NUM 
LIFE (I)  = TEMP(I) 

300  CONTINUE 

C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE( ) THEN  RETURN 

400  CONTINUE 


RETURN 

END 


C****** ************************ ***************************************<, 


c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U(THEl,THE2) 
INDEPENDENT  RANDOM  VARIATES  ' » xiuix,  , 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  9MAR87 

SUBPROGRAM:  RANDOM 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
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C*************** ********************  a*********************  mm********** 
SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl,  THE2,  X,  Y) 

COMMCW  lOUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02 , THEl,  THE2,  X,  Y 

INTEGER  lOUT 

CALL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'FRAC  =',  FRAC 

X = FRAC  * (RH02  - RHOl)  + RHOl 

CALL  RANDOM  (FRAC,  RAND) 

C IF  (TOUT  .EQ.  15)  WRITE(8,*)  'FRAC  =',  FRAC 

Y = FRAC  * (THE2  - THEl)  + THEl 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RHOl  =',  RHOl,  ' RH02  =' , RH02, 

& ' THEl  =',  THEl,  ' THE2  =',  THE2,  ' X =',  X,  ' Y =' , Y 


RETURN 

END 


C*** ******************************************************** *********** 
C THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  9MAR87 

C SUBPROGRAM:  GAM 

C 

C The  random  variates  are  generated  using  the  method  described  in: 
c Johnson,  N.  L.,  and  Kotz,  s..  Distribution  in  Statistics:  Continuous 
C Univariate  Distributions  - 1,  Houghton  Mifflin  Coin)any,  1970, 

C PP*  181—182. 

C*************** ****************  *************************************** 
SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 

COMMON  lOUT 

IXJUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 
INTEGER  lOUT 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RAND  =',  RAND,  ' RHO  =',  RHO, 

& ' THETA  =',  THETA,  ' A =' , A,  ' B =' , B,  ' X =' , X 

Yl  = GAM((RHO  * THETA  + 1.),  RAND) 

Y2  = GAM(((1.  - RHO)  * THETA  + 1.),  RAND) 

W = Yl  / (Yl  + Y2) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'Yl  =',  Yl,  ' Y2  =' , Y2,  ' W =' , W 

C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 
X=W*  (B-Al  +A 

IF  (lOOT  .EQ.  l5)  WRITE (8,*)  'W=',  W,  ' X=',  X 


RETURN 

END 

C The  random  variates  are  generated  using  an  "Acceptance /Re ject ion  Method" 
c Fishmam,  George  s.,  "Sampling  From  the  Gamma  Distribution  on  a 
C Computer,"  Communications  of  the  ACM*  Volume  19,  Number  7,  July  1976, 

C PP*  407-409.  ^ 
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REAL  FUNCTION  GAM  (ALPHA,  RAND) 

C SUBPROGRAM:  RANDOM 

COMMON  I OUT 
INTEGER  lOUT 

REAL  A,  ALPHA,  ARG,  Ul,  U2,  VI,  V2 
DOUBLE  PRECISION  RAND 
A — ALPHA  1 • 

C IF  (lOUT  .EQ.15)  WRITE(8,*)  'A  =',  A,  ' ALPHA  =' , ALPHA 

10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  = - ALOG(Ul) 

V2  = - ALOG(U2) 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'Ul  =' , Ul,  ' U2  ='  U2,  ' VI  =' , 

& VI,  ' V5  =' , V2 

ARG  = A * (VI  - ALOG(Vl)  - 1.) 

IF  (V2  .LT.  ARG)  GOTO  lO 

GAM  = ALPHA  * Vl 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'GAMMA  =',  GAM 

RETURN 
END 


★ *****«>********«-******«lk-****llrKlr**«r******1^**:A-**irWi*rW  Hr*  **************  ****** 


SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
FOR  THE  STRESS  FORMULATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  30NOV90  FORMAT/COMMENTS:  15JAN92 

VERSION:  MATCHR  VB1.2,  VBl.3 

MATGRM  VBl,  VBl.l 

copyright  (C)  1990,  Calif oraia  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  INFAGG  (RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG, 

& NUMREG,  NBND,  STR,  FTUZ,  FTYZ,  VARY,  MPROC, 

& KRATIO,  PVAR,  MEDMB,  MEDKB,  RESID) 


INPUTS : 
OUTPUTS : 


SUBPROGRAMS : 
FILES: 


READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 
RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND,  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR,  MEDMB,  MEDKB, 

RESID 

INIT,  RCE,  SW2SU2,  FINDMC,  INTRVL,  FNDRNG,  ADDREG,  CONCAV, 
MEDIAN,  EXPCTD,  MUSIG,  NORRNG,  ADDRGN,  GTPVAR,  EXPB 
5:RELATD-OLD;  6:RELATO-NEW 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

CCamON  I OUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT(MAXREG) , MPROC,  NN<X>AT, 
& NP(0:MAXSET,  MAXREG),  NPPR ( MAXREG ) , NPTS( 0:MAXSET) , 

& NSETS,  NUMREG,  REFNP ( MAXREG ) , VARY,  ZROREG 

REAL  BIGKHT,  BZERO,  CZERO,  DD(MAXREG),  DELTA ( MAXREG ) , 

& FTUZ,  FTYZ,  IZERO(2,  MAXREG),  JZERO(2,  MAXREG), 
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& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


KRATIO,  LAMN,  LNNF(MAXDAT,  OtMAXSET,  MAXREG) , 
LNSTR(MAXDAT,  OiMAXSET,  MAXREG),  MC(2,  MAXREG) , 
MCHAT(2,  MAXREG),  ME  DKB  ( 0 .'MAXREG ) , MEDM  ( MAXREG ) , 
MEDMB( 0 :MAXREG) , MO(MAXREG),  MU(MAXREG), 

MZERO(2,  MAXREG),  NBND ( 0 ; MAXREG ) , NF(MAXDAT,  MAXREG), 
PVAR,  RANGEM(2,  MAXREG),  RATSTR ( MAXDAT , OlMAXSET), 
RAWNF(MAXDAT,  OtMAXSET),  RAWSTR( MAXDAT,  0:MAXSET), 
RESID(  MAXDAT),  SIG  (MAXREG),  S I GMA2  (MAXREG)  , 
STR(MAXDAT,  MAXREG),  SUHAT2  ( MAXREG ) , SWHAT2  ( MAXREG ) , 
SX2(MAXREG),  SXY(MAXREG),  SY2(MAX^G),  SZERO 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BIGKHT 

BZERO 

CZERO 

DD() 

DELTA  ( ) 

FTUZ 
FTYZ 
I OUT 
IZERO( ) 

JZERO ( ) 

KRATIO 

L 

LAMN 

LNNF( ) 

LNSTR( ) 

MAXDAT 

MAXREG 

MAXSET 

MC() 


MCHAT( ) 


MCPNT ( ) 

MEDKB( ) 

MEDM( ) 
MEDMB( ) 

MO() 

MPNT( ) 

MPROC 

MU() 

MZERO ( ) 


NBND( ) 

NF() 

NNODAT 

NP() 

NPPR( ) 


LIST  OF  VARIABLES 

EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 
VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  THE  S/N 
DATA  SET 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
i-D  ARRAY  CONTAINING  SXY(L) /SX2 (L) , THE  SLOPE  OF  THE 
REGRESSION,  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU() 

AND  SIG()  CALCULATION 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  lo,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Vcu:(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- d  array  containing  LN(RAWNF()),  ALSO  INDEXED  FOR  REGICW 

3-d  array  containing  LN(RATSTRM),  ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  ' 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  (MILY  — 

MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2.  IN 
MC()  FOR  EACH  REGION  « 

1-D  ARRAY  CONTAINING  THE  MEAN  K VALUES  FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  MEAN  M VALUES  FOR  EACH  REGION 

(BOOTSTRAP  OPTION) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2.  IN 

MZEROn  FOR  EACH  REGION  > • • • 

Materials  PROCess  variation  -CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- d  array  containing  values  of  the  prior  ranges  on  m for 

EACH  REGION  — M2ERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  upper  BOUND  ' 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- d  array  containing  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-!))-!)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 
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NPTS( ) 
NSETS 
NUMREG 
PVAR 
RANGEM( ) 

RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

RESID( ) 

SIG() 

SIGMA2 ( ) 

STR(  ) 

SUHAT2 ( ) 

SWHAT2( ) 

SX2(  ) 

SXY(  ) 

SY2() 

SZERO 

VARY 

ZROREG 


1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 
MATERIALS  PROCESS  VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGICMJ 
1-D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  REGRESSION  FOR  EACH 
POINT  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR()  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  RIXSIONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 


REGION  (X  = Ln  S,  Y = Ln  N 
1-D  ARRAY  CONTAINING  SAMPLE 


VARIANCE  FOR  EACH  REGION 


(Y  = Ln  N) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION;  4 - BOOTSTRAP 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGI(»)  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


OPEN(5,  FILE  = 'RELATD',  STATUS  = 'OLD') 

OPEN(6,  FILE  = 'RELATO',  STATUS  = 'NEW') 

C RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA  SET  INFORMATION 
C RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
C INFORMATION 

C PERFORM  CALCULATIONS  COMMON  TO  UNIFORM,  NORMAL,  AND  BOOTSTRAP 
C TYPE  OF  VARIATION 

C INITIALIZE  PRIMARY  ARRAYS 

CALL  INIT  (NPTS,  RAWNF,  RAWSTR,  RATS'TR,  NP,  LNNF,  LNSTR,  REFNP, 

& NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2) 

C READ,  CONVERT,  ECHO  INFORMATION 

CALL  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWS'TR,  RATSTR,  NP,  LNSTR, 

& LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT, 

& NSETS,  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO, 

& SIGMA2,  KRATIO,  LAMN) 

C CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY,  SY2,  DD, 

& SWHAT2,  SUHAT2,  NPPR,  MEDMB,  MEDKB,  RESID) 

C CALCULATE  M CONTRAINT  BASED  ON  Co 

CALL  FINDMC  (NUMREG,  CZERO,  SX2 , SXY,  SY2,  MCPNT,  MC) 
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IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2 , DD,  SWHAT2 , SUHAT2 , NPPR,  IZERO, 
& JZERO,  MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF  ' 


C 

C 


COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 

& RANGEM) 

ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 
ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

WRITE  RESULTS  TO  FILE  DUMP 
WRITE (7, 9 00) 

DO  25  L = 1,  NUMREG 

WRITE(7,§05)  L,  IZER0(1,  L),  IZER0(2,  L), 

' JZERO(l,  L),  JZER0(2,  L) 

CONTINUE  V / ; 


25 


50 


150 


lOO 


WRITE(7,910) 

DO  50  L = 1,  NUMREG 

WRITE(7,915)  L,  MCHAT(2,L),  MCHAT(1,L) 
CONTINUE  \ f I 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7,960) 

DO  150  L = 1,  NUMREG 

IF  (MCPNT(L)  .EQ.  1)  THEN 
WRITE(7,965)  L,  MC(1,L) 

ELSEIF  (MCPNT(L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 
ENDIF 
CONTINUE 
ENDIF 

WRITE(7,920) 

WRITE(7,930) 

DO  100  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 
CONTINUE  y ’ I 


WRITE(7,950) 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 

CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 
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IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1))  THEN 
DO  200  L = 1,  NUMREG 

RANGEM(1,L)  = MEDM(L) 

RANGEM(2,L)  = MEDM(L) 

200  CONTINUE 

ENDIF 


ELSEIF  (VARY  .EQ.  3)  THEN 
C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  SHHAT2,  SUHAT2,  NPPR,  DELTA,  MO, 
& SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 

& MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 

CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 

WRITE (7, 97 5) 

DO  350  L = 1,  NUMREG 

WRITE(7,980)  L,  MCHAT(1,L) 

350  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7,960) 

DO  360  L = 1,  NUMREG 

IF  (MCPNT(L)  .EQ.  1)  THEN 
WRITE(7,965)  L,  MC(1,L) 

ELSEIF  (MCPNT(L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 

ENDIF 

360  CONTINUE 

ENDIF 

WRITE(7, 920) 

WRITE(7, 930) 

DO  370  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 

370  CONTINUE 

WRITE (7, 950) 

WRITE(7, 985) 

DO  38(J  L = 1,  NUMREG 

WRITE(7,990)  L,  MU(L),  SIG(L) 

380  CONTINUE 


ELSE 

C BOOTSTRAPPING  IS  REQUIRED 

WRITE(7, 900) 
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calculate  other  region  parameters  based  on  the  expected 

M AND  K VALUES 

CALL  EXPB  (MEDMB,  MEDKB,  SZERO,  NUMREG,  ZROREG,  NBND) 


ENDIF 


C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1)  THEN 
VTRITE(7,995)  PVAR 
ENDIF 


FORMAT  STATEMENTS 


900  FORMAT(2X, 'Copyright  (C)  1990,  California  Institute  of 

Z ISfo,  ^U.s.  Government ',/,2X, 'Sponsorship  under 

i 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

? 2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

& ///,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m 

i ' FOR  EACH  REGION ' , / ) 

905  FORMAT(7X. 'REGION:  ',11  7X, 'lo  = ( ' ,F12 .9, ' , ' ,F12 .9 , ' ) ' , 

t-  /,24X,'Jo=  (',F1^.9,',',FiL§,')')  ' ' ’ ' 

910  FORMAT (//, 2X, ' POINT  ESTIMATES  OF  C AND  m FOR  EU^CH  REGION', 

4 //, 7X, 'REGION ', 8X, 'E(C) ', 12X, 'E(m) ', /) 

915  F0RMAT(9X,I1,8X,F11.9,5X,F9.6) 

920  FORMAT(///,2X, 'POSTERIOR  CREDIBILITY  RANGES  ON  m FOR  EACH  ' 

& ' REGI  ON  * ) 

930  FORMAT (//,2X, 'REGION' ,5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 

940  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

950  FORMAT(///) 

960  FORMAT (//,2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

& ' CONSTRAINT ' , 

i //,2X, 'REGION' ,5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 

965  FORMAT(6X,Il,8X,F8.4,8X, 'INFINITY' ) 

970  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

975  FORMAT (2X, 'ppyright  (C)  1990,  California  Institute  of  ', 


975  FORMAT (2X, 'ppyright  (C)  1990,  California  Institute  of  ', 

Z u.s.  Government' , /,2x, 'Sponsorship  under 

& NASA  Contract  NAS7-918  is  acknowledged.',////, 

? 2X,  '^SULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

* ///,2X, 'ESTIMATES  OF  m FOR  EACH  REGION', 

«>  //,7X, 'REGION', 12X, 'E(m)',/) 

980  FORMAT{9X,Il, 11X,F10.6) 

985  FORMAT (2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS' 
i //,2X, 'REGION' ,5X, 'MEAN', 8X, 'STD  DEV',/) 

990  FORMAT(5X,Il,5X,F7.4,5X,E11.5) 

995  FORMAT(/,2X, 'THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  ' 

t ' ^FO^IiSn  ' ^/ /!7J^fi:  1 1 : the  available  ' , ' 

RETURN 

END 
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SUBROUTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
ONE  OF  THE  PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  50CT87  , „ ^ , 

VERSION : MATCHR  V6 , V6 . 1 , V6 . 2 , V7 , V7 . 1 , V8 , V8 . 1 , V8 . 2 , V8 . 3 , 
V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  TRMNAT 

WRITE ( 8 , * ) ' PROGRAM  EXECUTION  TERMINATED ' 

STOP 

END 


*********************************************************************** 


SUBROUTINE  INIT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INIT  (NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR, 

& REFNP,  NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 ) 

INPUTS : — 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 

NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 

INTEGER  I,  lOUT,  J,  K,  L,  MPNT ( MAXREG ) , NP(0:MAXSET,  MAXREG), 

& NPTS(0:MAXSET) , REFNP ( MAXREG ) 

REAL  DELTA ( MAXREG ) , LNNF (MAXDAT,  0:MAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  MO ( MAXREG ) , 

& MZERO(2,  MAXREG),  NF(MAXDAT,  MAXREG), 

& RATSTR (MAXDAT,  0:MAXSET),  RAWNF (MAXDAT,  0:MAXSET), 

& RAWSTR (MAXDAT,  0:MAXSET),  SIGMA2 (MAXREG) , 

& STR(MAXDAT,  MAXREG) 

LIST  OF  VARIABLES 


DELTA  ( ) 
I 

lOUT 
J 
K 
L 

LNNF( ) 
LNSTR(  ) 
MAXDAT 
MAXREG 
MAXSET 
MO() 

MPNT( ) 

C MZERO ( ) 

C 

C 


1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

3-D  ARRAY  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN(RATSTR( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ( ) FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 
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NF() 

NP() 

NPTSX) 
RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

SIGHA2 ( ) 

STR(  ) 


RAWNFO  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
XN  £1^0  H I^£iGXON 

CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
2-D  array  containing  stress  DATA  (PSI)  CORRECTED  FOR 

ST^SS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  array  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGICW 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  array  containing  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 


DO  100  J = 0,  MAXSET 
NPTS(J)  =0.0 
100  CONTINUE 


DO  200  L = 1, 
DO  250  J = 
NP(J,  L) 
250  CONTINUE 
200  CONTINUE 


MAXREG 
0,  MAXSET 
= 0.0 


DO  300  J = 0,  MAXSET 
DO  350  1=1,  MAXDAT 
RAWNF(I,J)  =0.0 
RAWSTR(I,J)  =0.0 
RATSTR(I,J)  = 0.0 
350  CONTINUE 
300  CONTINUE 


450 

425 


DO  400  L = 1,  MAXREG 
DO  425  K = 1,  MAXDAT 
DO  450  J = 0,  MAXSET 
LNNF(K,J,L)  = 0.0 
LNSTR(K,J,L)  =0.0 
CONTINUE 
CONTINUE 


400  CONTINUE 


DO  500  L = 1, 
DO  550  K = 
NF(K,L)  = 
STR(K,L) 
550  CONTINUE 
500  CONTINUE 


MAXREG 
1,  MAXDAT 
6.0 
= 0.0 


DO  600  L = 1,  MAXREG 
REFNP(L)  = 0 
MPNT(L)  = 0 
MZERO(i,L)  = 0.0 
MZERO(2,L)  = 0.0 
DELTA(L)  = 0.0 
MO(L)  =0.0 
SIGMA2(L)  =0.0 
600  CONTINUE 


RETURN 

END 


c 

c 

c 

c 


SPECFD  AND  RELATD;  “CONVERTS” 
DATA  TO  A STRESS  RATIO  OF  -1.0;  AND  "ECHOES"  THE  DATA  TO 
SpiciFiro^BY^^ER’  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
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PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 

21JUN88  FORMAT/COMMENTS:  12AUG91 

MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8*5 
MATGRM  V4 . 1 , V4 . 2 , V4 . 3 , V4 . 4 , V4 . 5 


SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

& LNSTR,  LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG, 

& NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZERO, 

& FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2 , KRATIO,  LAMN) 


INPUTS : VARY , MPROC 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR,  LNNF,  REFNP, 

STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT,  NSETS,  NBND, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2, 
KRATIO,  LAMN 

SUBPROGRAMS : TRMNAT , CONVRT 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 
COMMON  lOUT 


INTEGER  COUNT,  I,  lOUT,  J,  K,  L,  M,  MPNT ( MAXREG ) , MPROC,  NDIV, 

& NNODAT,  NP(0;MAXSET,  MAXREG),  NPTS ( 0 : MAXSET ) , NSETS, 

& NUM,  NUMREG,  REFNP ( MAXREG ) , REG,  VARY,  ZROREG 

REAL  CZERO,  DELTA ( MAXREG ) , FTU,  FTUZ,  FTY,  FTYZ, 

& KRATIO,  LAMN,  LNNF(MAXDAT,  0:MAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  MO ( MAXREG ) , 

& MZERO(2,  MAXREG),  NBND ( 0 : MAXREG ) , NF(MAXDAT,  MAXREG), 

& RATIO,  RATSTR (MAXDAT,  0;MAXSET).  RAWNF ( MAXDAT , OtMAXSET), 

& RAWSTR  (MAXDAT,  0:MAXSET),  S IGM^  ( MAXREG ) , 

& STR(MAXDAT,  MAXREG),  SZERO 

CHARACTER*4  0 DESCRP ( 0 ; MAXSET ) 


LIST  OF  VARIABLES 


COUNT 

CZERO 

DELTA  ( ) 

DESCRP ( 
FTU 
FTUZ 
FTY 
FTYZ 
I 

lOUT 
J 
K 

KRATIO 
L 

LAMN 

LNNF( ) 
LNSTR  ( ) 
M 

MAXDAT 
MAXREG 
MAXSET 
MOO 

MPNT(  ) 

C MPROC 
C 

C MZERO( ) 
C 


INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 

CONVERSION,  AND  BREAK  UP 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 

ULTIMATE  STRENGTH  (PS I)  OF  MATERIAL  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

RATIO  OF  K^/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 
3-D  ARRAY  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN ( RATSTR ()) , ALSO  INDEXED  FOR  REGION 
CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2 , IN 
MZEROn  FOR  EACH  REGION 

Materials  PROCess  variation  - CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
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NBND( ) 

NDIV 

NF() 

NNODAT 

NP() 

NPTS( ) 

NSETS 

NUM 

NUMREG 

RATIO 

RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

REG 

SIGMA2 ( ) 

STR(  ) 

SZERO 

VARY 


2ROREG 


IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO 
REGION  PAIRS  DURING  INPUT 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISICWl 
NUMBER  OF  REGIONS  OF  INTEREST 
STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

2- d  array  containing  stress  data  (Psi)  corrected  for  stress 

RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTIC»} 
VARIANCE  FOR  EACH  REGION 

2- d  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGlon  - VALUES  CHOSEN  TO  FACILITATE  REGICM  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C INITIALIZE  COUNT  AND  NBND ( ) 

COUNT  = 0 

DO  10  L = 0,  MAXREG 
NBND(L)  =0.0 
10  CONTINUE 

C INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ(1,*)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(O) 

IF  (NPTS(O)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN 

ir  'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 


WRITE(3,900)  DESCRP(O),  FTY,  FTU,  NP'TS(O) 

IF  (lOUT  .EQ.  10)  WRITE(8,900)  DESCRP(d),  FTY,  FTU,  NPTS(O) 
WRITE( 3, 905) 

IF  (lOUT  .EQ.  10)  WRITE(8,905) 

STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 

FTUZ  = FTU 
FTYZ  = FTY 


C 

C 


INPUT  STRESS /LIFE  INFORMATION  - INCLUDING  STRESS  RATIO  AND  REGION 
INFORMATION  mOM  SPECFD  AND  ECHO  TO  SPECFO 


DO  100  M = 1,  NDIV 


READ  (1,»)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO:  RATIO 
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CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 

WRITE (8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  "rRMNAT 
ENDIF 

DO  110  I = (COUNT  +1),  (COUNT  + NUM) 

READ(1,*)  RAWSTR(I,0),  RAWNF(I,0) 

110  CONTINUE 

C CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  120  I = (COUNT  + 1),  (COUNT  + NUM) 

RATSTR(I,0)  = RAWSTR(I,0) 

120  CONTINUE 

ELSE 

C STRESS  RATIO  'TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 

& RATIO,  FTU,  FTY) 

ENDIF 

C ECHO  STRESS/LIFE  DATA  ON  SPECIFIC  MATERIAL 

DO  130  I = (COUNT  + 1),  (COUNT  + NUM) 

WRI‘TE(3,910)  RAWSTR(I,0),  RAWNF(I,0),  RATIO,  REG, 

& RATSTR(I,0),  RAWNF(I,0) 

IF  (lOUT  .EQ.  10)  WRITE(8,910i  RAWSTR(I,0),  RAWNF(I,0), 

& RATIO,  REG,  RATS'TR(I,0) , RAWNF(I,0) 

130  CONTINUE 

BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  RAREST 

K = NP(0,REG) 

DO  140  I = (COUNT  +1),  (COUNT  + NUM) 

K = K + 1 

LNS'TR(K,0,REG)  = ALOG(RATSTR(I,  0)  ) 

LNNF(K, 0,REG)  = ALOG(RAWNF( I, 0) ) 

S'TR(K,REG)  = RATSTR(I,0) 

NF(K,REG)  = RAWNF(I,0) 

140  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

NP(0,REG)  = K 
RE™P(REG)  = K 
COUNT  = COUNT  + NUM 

100  CONTINUE 

IF  (NPTS(O)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
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ENDIF 


READ(1,*)  SZERO 
IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  = 0 
ELSE 

ZROREG  = 1 
ENDIF 

IF  (lOUT  *EQ.  10) 

& WRITE (8,*)  'SZERO  = SZERO,  ' ZROREG  = ZROREG 
C INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATION 

READ(1,^)  NUMREG,  NNODAT 

IF  UNUMREG  + NNODAT)  .GT,  MAXREG)  THEN 

WMTE(8,^)  'ERROR;  EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS' 
CALL  TRMNAT 
ENDIF 


DO  150  L = ZROREG,  (NUMREG  + NNODAT) 
READ(1,*)  NBND(L) 

150  CONTINUE 


READ(1,*)  CZERO 

DO  160  L = 1,  (NUMREG  + NNODAT) 

160  MPNT(L),  M2ER0(1,L),  MZER0(2,L) 

WRITE* 3, 913) 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  (lOUT  .EQ.  10)  THEN 
WRITE(8,913) 

IF  (ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
ENDIF 

WRITE (3, 915)  NUMREG,  NNODAT 

IF  (lOUT  .EQ.  10)  WRITE(8,915)  NUMREG,  NNODAT 

DO  170  L = ZROREG,  (NUMREG  + NNODAT) 

WRITE(3,920)  NBND(L) 

IF  (lOUT  .EQ.  10)  WRITE(8,920)  NBND(L) 

170  CONTINUE  v ' / \ > 

WRITE (3, 925)  CZERO 

IF  (lOUT  .EQ.  10)  WRITE(8,925)  CZERO 

DO  180  L = 1.  (NUMREG  + NNODAT) 

IF^fl^UT^EQ.^iof’”^^^^'  MZER0(1,L),  MZER0(2,L) 

& WR1TE(8,930)  L,  MPNT(L),  MZER0(1,L),  MZER0(2,L) 

IF  ((VARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  0))  THEN 

WRITE (8,*)  'ERROR;  NORMAL  VARIATION  ^QUIRES  A PRIOR  ' 

& 'RANGE  ON  M'  ' 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 


IF  (VARY  .EQ.  3)  THEN 

READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 
WRI'TE(3,945) 

IF  (lOUT  .EQ.  10)  WRITE(8,945) 

DO  190  L = 1,  (NUMREG  + NNODAT) 

READ(1.*)  DELTA(L),  MO(L),  SIGMA2(L) 

WRITE(  3^950)  L(  DELTA(L),  MO(L) , SIGMA2(L) 


190 


MO(L),  S1GMA2(L) 


IF  (lout  .EQ.'iO) 

WRITE(8,950)  L,  DELTA(L), 

IF  ((DELTA(L)  .LT.  0.0)  .OR. 

((DELTA(L)  .GT.  0.0)  .AND.  (MO(L)  .LE.  0.0)))  THEN 
WRITE (8,*)  'ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF 

' INCONSISTENT  WITH  DELTA  IN  REGION  ' . L 

CALL  TRMNAT 
ENDIF 
CONTINUE 


HO 
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ENDIF 


IF  (MPROC  .EQ.  1)  THEN 
READ(1,*)  KRATIO,  LAMN 
WRITE(3,$55)  KRATIO,  LAMN 

IF  (lOUT  .EQ.  10)  WRITE(8,955)  KRATIO,  LAMN 
ENDIF 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ(5,*)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS' 

CALL  TRMNAT 
ENDIF 

WRITE (6, 935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  = 0 

IF  (lOUT.  EQ.  10)  WRITE(8,*)'J  =',  J,  ' NSETS  =' , NSETS 

READ(5,*)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

V^TE(8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  ', 

& ' SET  ' , J 

CALL  TRMNAT 
ENDIF 

WRITE(6,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 

IF  (lOUT  .EQ.  10)  WRI'TE(8,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 
WRITE(6,905) 

IF  (lOUT  .EQ.  10)  WRI'TE(8,905) 

DO  300  M = 1,  NDIV 

READ(5,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  OF  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 
WRITE(8,*) 

& 'ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL  ',  J 

CALL  TRMNAT 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

VfelTE(8,*)  'NUM  = ',  NUM,  ' COUNT  = ',  COUNT 
WRITE (8,*)  'RATIO  = ',  RATIO,  ' REG  = ',  REG 
ENDIF 

DO  310  I = (COUNT  + 1),  (COUNT  + NUM) 

READ(5,*)  RAWSTR(I,J),  RAWNF(I,J) 

310  CONTINUE 


C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 


IF  (RATIO  .EQ.  -1.0)  THEN 
C STRESS  RATIO  IS  CORRECT 


320 


DO  320  I = (COUNT  + 1),  (COUNT  + NUM) 
RATSTR(I,J)  = RAWSTR(I,J) 

CONTINUE 
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ELSE 


C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT(J,  (COUNT  + 1),  (COUNT  + NUM) , RAWSTR, 

& RATSTR,  RATIO,  FTU,  FTY) 

ENDIF 

C RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 

DO  330  I = (COUNT  + 1),  (COUNT  + NUM) 

WRITE(6,910)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 

5 RATSTR(I»J)/  RAWNF(I,J) 

IF  (lOUT  .EQ.  10)  WRITE(8,910|  RAWSTR(I,J),  RAWNF(I,J), 

6 RATIO,  REG,  RATSTR(I,J),  RAWNF(I,J) 

330  CONTINUE 

K = NP(J,REG) 

DO  340  I = (COUNT  + 1),  (COUNT  + NUM) 

K = K + 1 

LNSTR(K, J,REG)  = ALOG(RATSTR(I, J) ) 

LNNF(K, J,REG)  = ALOG( RAWNF( I, J) ) 

340  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  ' 

4 'IN  SET  ',  J 

CALL  TRMNAT 
ENDIF 

NP(J,REG)  = K 
COUNT  = COUNT  + NUM 

300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN 

WRITE(8,»)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION 

& ' INCORRECTLY  SPECIFIED  IN  SET  ' , J 

CALL  TRMNAT 
ENDIF 

200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  SPECFO  AND  RELATO 

900  FORMAT(////, 13X, 'MATERIAL  INPUT' ,///,2X, 'DESCRIPTION: ' ,2X,A40, //, 
i 2X, 'YIELD  STRENGTH' , 18X, Ell .5, //,2X, 'ULTIMATE  STRENGTH', 

& 15X, Ell. 5, //,2X, 'NUMBER  OF  POINTS ', 16X, 12 ) 

905  FORMAT(//, 7 X,  'ORIGINAL  S/N ', 9X, ' STRESS ', 15X,  "TRANSFORMED  S/N', 

& /,5X, 'STRESS' ,7X, 'LIFE' ,7X, 'RATIO' ,3X, 'REGION' ,5X, 

& 'STRESS' ,7X, 'LIFE'/) 

910  FORMAT(2X,E11.5,2X,F9.0,5X,F5.2,5X,I1,5X,E11.5,2X,F9.0) 

913  FORMAT(//) 

914  FORMAT(2X, 'THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF'. 

& 5X,E11.5)  ' 

915  FORMAT ( 2 X, 'THERE  IS  ',12,'  REGION(S)  WITH  DATA  ', 

& /,2X, 'AND  ',12,'  REGION(S)  TO  THE  RIGHT  WITHOUT  DATA', 

4 /,2X, 'THE  UPPER  BOUND(S)  OF  THE  REGION(S)  ARE  '. 

& '(CYCLES):  ',/) 

920  FORMAT(10X,E9.3) 
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925  FORMAT(///,2X, 'EXOGENOUS  INFORMATION' ,///, 2X, 

& 'CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C:',2X,F6.4. 

& //, 2X, 'EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION:', 

i //,2X, 'REGION' ,5X, '#  OF  POINTS ', 5X, 'LOWER  BOUND', 

& 5X, 'UPPER  BOUND',/) 


930  FORMAT(6X,Il, 11X,I1, 12X,F7.4,9X,F7.4) 


935  FORMAT (2 Ox, 'NUMBER  OF  DATA  SETS: ' ,2X, 12, //, 17X, 

& 'NOTE:  ALL  Kt  ASSUMED  TO  BE  1 . 0 ',////, 23X 

S,  'TRANSFORMED  DATA') 


940  FORMAT(///,2X, 'DESCRIPTION: ',2X,A40, 
i //,2X, 'YIELD  S'TRENGTH' , 16x,F7.0, 

& //,2X, 'ULTIMATE  STRENGTH' , 15X,F7 .0, 

& //,2X, 'NUMBER  OF  POINTS' ,16X, 12) 


945  FORMAT(/,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS:', 

i //,2X, 'REGION' ,5X, 'DELTA', 8X, 'mo',10X, 'SIGMAS' ,/) 

950  FORMAT(5X,Il,5X,F7.2,5X,F7.4,5X,E11.5) 

955  FORMAT (//, 2 X,  'MATERIALS  PROCESS  VARIATION  INFORMATKMJ ' . 

& //,2X,'MEDK*/MEDK:',5X,E11.5,/,5X,'LAMBDAN:',5x'e11.5) 


RETURN 

END 


THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR( ) WHEN  THE 
STRESS  RATIO^  R,  IS  NOT  -1.0 
PROGRAMMER : L . NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  CONVRT  (J, 

INPUTS:  J,  NUMl,  NUM2, 

OUTPUTS : RSTR 


NUMl,  NUM2,  STR,  RSTR,  R, 
STR,  R,  FTU,  FTY 


FTU,  FTY) 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXSET  = 5) 

COMMON  lOUT 


INTEGER  I,  lOUT,  J,  NUMl,  NUM2 

REAL  FTU,  FTY,  R,  RSTR(MAXDAT,  0:MAXSET), 

& STR(MAXDAT,  0:MAXSET),  TEST 


LIST  OF  VARIABLES 


C 

c 

c 

c 


FTU 

FTY 

I 

lOUT 

J 

MAXDAT 

MAXSET 

NUMl 

NUM2 

R 

RSTR( ) 
STR(  ) 


ULTIMATE  STRENGTH  OF  MATERIAL  (PSI) 

YIELD  STRENGTH  OF  MATERIAL  (PSI) 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 
DATA  SET  OF  INTEREST 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 
FIRST  INDEX  TO  BE  TRANSFORMED 
LAST  INDEX  TO  BE  TRANSFORMED 
STRESS  RATIO  (R  «=  -1.0  IS  DESIRED) 

STR()  VALUES  TRANSFORMED  TO  R = -1.0 
ARRAY  CONTAINING  STRESS  VALUES  (PSI) 


(PSI) 

FOR  S/N  CURVE 
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C TEST 


Kt  • Smax  » (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I = NUMl,  NUM2 

TEST  = STR(I,J)  * (1.0  - R)/2.0 

IF  (lOUT.EQ.lO)  WRITE(8,*)  'I  J =' , J, ' TEST  =' ,TEST 

IF  (TEST  ,GE.  FTY)  THEN 
RSTR(I,J)  = TEST 

IF  (lOUT.EQ.lO)  WRITE(8,*) '1:RSTR()  =',RSTR(I,J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR(I,J)  = TEST/(1.0  -((FTY  - TEST)/FTU)) 

IF  (lOUT.EQ.lO)  WRITE(8,*) '2:RSTR()  =',RSTR(I,J) 

ELSE 

RSTR(I,J)  = TEST/(1.0  - ((1.0  + R)  * STR(I,J) 

^ /(2.0  * FTU)  ) ) 

IF  (lOUT.EQ.lO)  WRITE( 8, *) ' 3 ;RSTR( ) =',RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 

END 


******’k'kiririricieic-kiririeiricir’k 


c 

c 

c 

c 

c 

c 


Ajro^°^HAT2^THE^X^^Y^?rli-cl^I^'  RESIDUAL  VARIANCES  OF  Y ON  X 

..  THE  X ON  y ^GRESSIONS  FOR  EACH  REGION  WHERE  Y = LN/NF)  AND 

IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS  ' ' 

Lt  • N£vvLiXN 

15JAN92 

MATCHR  VB1.3  MATGRM  VBl.l 


X = LN(STR); 
PROGRAMMER: 
DATE: 
VERSION: 


C 

C 

C 


SUBROUTINE  SW2SU2 

& 

& 


(NUMREG,  NSETS, 
SY2,  DD,  SWHAT2, 
RESID) 


NP,  LNSTR^  LNNF,  SX2 , 
SUHAT2,  NPPR,  MEDMB, 


SXY, 

MEDKB, 


INPUTS : 
OUTPUTS : 


NUMREG,  NSETS, 
SX2,  SXY,  SY2, 


IMPLICIT  NONE 


NP,  LNSTR-  LNNF 

DD,  SWHATS,  SUHAT2,  NPPR,  MEDMB,  MEDKB,  RESID 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 
COMMON  I OUT 


INTEGER  lOUT,  J,  K,  L, 
& NSETS , NUMREG 


NP(0:MAXSET,  MAXREG),  NPPR ( MAXREG ) , 


REAL 

& 

& 

& 

& 

& 


BBjMAXREG),  CCjfMAXREG),  DD(MAXREG), 

^^^^X ( MAXDAT , OrMAXSET),  DIFFY(MAXDAT  0*MAXSET\ 
LNNF(MAXDAT,  0 : MAXSET , WrEG  ) ' U. MAXSET), 

LNSTR( MAXDAT,  0: MAXSET,  MAXREG), 

MEANX ( 0 : MAXSET ) , MEAN Y ( 0 : MAXSET ) , MEDKB  f 0 * MAXREP \ 
MEDMB(0:MAXREgS;  RESId1ma5^tT,  SU™?2TMAi^^ 
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& SWHAT2(MAXREGK  SX2(MAXREG),  SXY(MAXREG),  SY2(MAXREG), 

& WHAT(MAXDAT,  OiMAXSET) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BB() 

CC() 

DD() 

DIFFX( ) 

DIFFY( ) 

lOUT 

J 

K 

L 

LNNF( ) 
LNSTR( ) 
MAXDAT 
MAXREG 
MAXSET 
MEANX( ) 

MEANY< ) 

MEDKB( ) 

MEDMB( ) 

NP() 

NPPR< ) 

NSETS 
NUMREG 
RESID( ) 

SUHAT2 ( ) 

SWHAT2 ( ) 

SX2() 

SXY(  ) 

SY2() 

WHAT( ) 


LIST  OF  VARIABLES 


1-D  ARRAY  CONTAINING  SXY (L) /SY2 (L) , THE  SLOPE  OF  THE  X ON  Y 
REGRESSION,  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  MEANY-DD(L) ’*^MEANX,  THE  Y- INTERCEPT  OF 
THE  Y ON  X REGRESSION,  FOR  EACH  REGICXJ 

1- D  ARRAY  CONTAINING  SXY (L) /SX2 (L) , THE  SLOPE  OF  THE  Y ON  X 
REGRESSION,  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNSTR(K,J,L) 

AND  MEANX(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,L) 

AND  MEANY(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3- D  ARRAY  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FROti  REGION 
L AND  DATA  SET  J (Y  = Ln  N) 

1-D  ARRAY  CONTAINING  THE  MEAN  K VALUES  FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

1- D  ARRAY  CONTAINING  THE  MEAN  M VALUES  FOR  EACH  REGI<»I 
(BOOTSTRAP  OPTION) 

2- D  array  containing  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  REGRESSION  FOR  EACH 
POINT  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 
EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

1- D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGlOtl 
(Y  = Ln  N) 

2- D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  Y ON  X REGRESSION 
(X  = Ln  S,  Y = Ln  N) 


C INITIALIZE  ARRAYS 

DO  50  L = 1,  MAXREG 
SY2(L)  =0.0 
SX2(L)  = 0.0 
SXY(L)  =0.0 
SWHAT2(L)  =0.0 
SUHAT2(L)  =0.0 
BB(L)  = 6.0 
CC(L)  = 0.0 
DD(L)  = 0.0 
NPPR(L)  = 0 
50  CONTINUE 

DO  55  L = 0,  MAXREG 
MEDMB(L)  =0.0 
MEDKB(L)  =0.0 
55  CONTINUE 

DO  60  J = 0,  MAXSET 
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70 


60 


DO  70  K = 1,  MAXDAT 
DIFFY(K,J)  =0.0 
DIFFX(K,J)  = 0.0 
WHAT(K,J)  = 0.0 
CONTINUE 
MEANY(J)  = 0.0 
MEANX(J)  = 0.0 
CONTINUE 


C 

C 


DO  75  K = 1,  MAXDAT 
RESID(K)  = 0.0 
75  CONTINUE 

NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EIACH  REGION 

DO  100  L = 1,  NUMREG 

DO  200  J = 0,  NSETS 

FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 
FOR  DATA  SET  J IN  REGION  L 
MEANY(J)  =0.0 
MEANX(J)  = 0.0 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =',  L, 

^ ' NP  =' , NP( J,L) 


250 


C 

C 

c 


300 


200 


C 

c 


J =' 


J, 


DO  250  K = 1,  NP{J,L) 

MEANY(J)  = MEANY(J)  + LNNF(K,J,L) 

MEANX(J)  = MEANX(J)  + LNSTR(K,J,L) 

IF  (lOUT  .EO.  10)  WRITE(8,*)  'LNNF  ='  LNNF(K,J,L), 

' LNSTR  =',  LNSTR(K,J,L)  v r / 

CONTINUE  \ f f i 

MEANY(J)  = MEANY(J)/FLOAT(NP(J,L) ) 

MEANX(J)  = MEANX(J) /FLOAT  NPJL 

IF  (lOUT  .EQ.  10)  WRITE (8,*)  'MEANY(J)  ='  MEANY(J), 

' MEANX(J)  MEANX(J)  \ f f K ), 

NOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 

OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 

DO  300  K = 1,  NP(J,L) 

DIFFY(K,J)  = LNNF(K,J,L)  - MEANY(J) 

DIFFX(K,J)  = LNSTR(K,J,L)  ~ MEANX(J) 

SY2(L)  = SY2(L)  + DIFFY(K,J)  2 

SX2(L)  = SX2(L)  + DIFFX(K.J)  2 

SXY{L)  = SXY(l)  + DIFFX(K,J)  ★ DIFFY(K,J) 

TTT  / 0 J THEN  \ f / 

'K  =',  K,  ' DIFFY(K,J)  =' , DIFFY(K,J), 


IF  (lOUT  .EQ.' 
WRITE ( 8 , * ) 


WRITE( 8, *) 


END  IF 
CONTINUE 


' DIFFX(K,J)  =',  DIFFX(K.J) 

'SY2(L}  =',  SY2(L),  ' Sxi(t)  =',  SX2(L), 
' SXY(L)  =',  SXY(L)  ' " 


NPPR(L)_=  NPPRJL)  + NP(J,L)  - 1 

.EQ.  10)  WRITE(8,*)  'NPPR(L)  =' , NPPR(L) 


IF  (lOUT 
CONTINUE 


IF  (SXY{L)  .GE.  0.0)  THEN 

OU^MODEL  WITH  INCREASING  STRESS  — INVALID  FOR 

WRITE (8,*)  'ERROR:  SXY  >=  0 IN  REGION',  L 
CALL  TRMNAT  ' 

ENDIF 

NPPR(L)  = NPPR(L)  - 1 
IF  (NPPR(L)  .LE.  0)  THEN 

WRITE (8,*)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN 

'REGION  ',L 

CALL  TRMNAT 
ENDIF 

CALCULATE  THE  REGRESSION  PARAMETERS 
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SY2(L)  = SY2(L)  / FLOAT ( NPPR(L ) ) 

SX2(L)  = SX2(L)  / FLOAT ( NPPR (L ) ) 

SXY(L)  = SXY(L)  / FLOAT ( NPPR(L ) ) 

DD(L)  = SXY(L)  / SX2(L) 

BB(L)  = SXY(L)  / SY2(L) 

CC(L)  = MEANY(O)  - DD(L)  * MEANX(O) 

MEDMB(L)  = - DD(L) 

MEDKB(L)  = EXP  (-  CC(L)  / DD(L)) 

IF  (lOUT  .EQ.  10)  THEN 

VWITE(8,*)  'NPPR(L)  =',  NPPR(L),  ' SY2(L)  =',  SY2(L), 

& ' SX2(L)  =',  SX2(L) 

WRITE(8,*)  'SXY(L)  =' , SXY(L),  ' DD(L)  , DD(L), 

& ' BB(L)  =',  BB(L) 

WRITE(8,*)  'CC(L)  = CC(L),  ' MEDMB(L)  = MEDMB(L), 

& ' MEDKB(L)  = MEDKB(L) 

ENDIF 

NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 
REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 

DO  400  J = 0,  NSETS 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'J  =',  J,  ' NP(J,L)  =' , NP(J,L) 
DO  500  K = 1,  NP(J,L) 

WHAT(K,J)  = DIFFY(K,J)  - DD(L)  * DIFFX(K,J) 

SWHAT2(L)  = SWHAT2(L)  + WHAT(K,J)  **  2 
SUHAT2(L)  = SUHAT2<L) 

& + (DIFFX(K,J)  - BB(L)  * DIFFY(K,J))  **  2 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'K  = ' K,  ' WHAT(K,J)  = WHAT(K,J) 
WRITE(8,*)  'SWHAT2(L)  = SWHAT5(L), 

& ' SUHAT2(L)  = SUHAT2(L) 

ENDIF 

500  CONTINUE 

400  CONTINUE 

SWHAT2(L)  = SWHAT2(L)  / FLOAT(NPPR(L) ) 

SUHAT2(L)  = SUHAT2(L)  / FLOAT(NPPR(L) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NPPR(L)  =' , NPPR(L), 

& ' SWHAT2(L)  =',  SWHAT2(L),  ' SUHAT2(L)  =' , SUHAT2(L) 

DO  600  K = 1,  NP(0,L) 

RESID(K)  = WHAT(K,0)  * 

& SQRT  (FLOAT  (NP(0,L))  / FLOAT  (NP(0,L)-2)) 

WRITE(4,*)  K,  RESID(K) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'K  = ' , K,  ' RESID  = 

& RESID (K),  ' WHAT  = WHAT(K,0) 

600  CONTINUE 

100  CONTINUE 


RETURN 

END 


************************************************************************ 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPOTJ 
THE  Co  GIVEN  BY  THE  USER 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  80CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6 . 1 , V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


7-210 


oonnoonoonoooooooonooo 


C INPUTS;  NUMREG,  CZERO,  SX2,  SXY,  SY2 
C OUTPUTS:  MCPNT,  MC 

C IMPLICIT  NONE 

INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARGl,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2(MAXREG), 

& SXY (MAXREG),  SY2 (MAXREG)  />  \ n 

LIST  OF  VARIABLES 


ARGl 

ARG2 

CZERO 

CZER02 

lOUT 

L 

MAXREG 

MC() 


MCPNT ( ) 

NUMREG 

SX2() 

SXY() 

SY2() 


INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
EQUAL  TO  CZERO  **  2 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH  REGION 
CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2.  IN 
MC()  FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 
EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  = Ln  N) 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
MCPNT (L)  = 0 
MC(1,L)  = 0,0 
MC(2,L)  = 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

CZER02  = CZERO  **  2 
IF  (lOUT  ,EQ.  10) 

& WRITE (8,*)  'CZERO  = CZERO,  ' CZER02  = ',  CZER02 

DO  100  L = 1,  NUMREG 

ARGl  = SX2(L)  - CZER02 
ARG2  =0.0 

IF  (CZERO  .EQ,  0.0)  THEN 
C THEN  NO  M CONSTRAINT  IS  REQUIRED 

MCPNT(L)  = 0 

ELSEIF  (ABS(ARGl)  .LT.  1 . OE-6 ) THEN 
C THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 

MCPNT(L)  = 1 

MC(1,L)  = - SY2(L)  / (2.0  * SXY(L)) 
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ELSE 


THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 

ARG2  = (SXY(L)  *»  2 - SY2(L)  * ARGl) 

IF  (ARG2  .LT.  0.0)  THEN 

ARG2  IS  NEGATIVE  - IMPLIES  M IS  COMPLEX 
WRITE(8,*)  'ERROR:  Co  TOO  LOW' 

CALL  TRMNAT 

ARG2  = ARG2  **  0.5 
ENDIF 

IF  (SX2(L)  .LT.  CZER02)  THEN 

AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 
MCPNT(L)  = 1 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
ELSE 

SX2(L)  .GT.  CZER02  - THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 
MCPNT(L)  = 2 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
MC(2,L)  = (-  SXY(L)  + ARG2)  / ARGl 

ENDIF 

ENDIF 

100  CCMJTINUE 


IF  (lOUT  .EQ.  10)  THEN 
DO  200  L = 1,  NUMREG 

WRITE(8,*)  'L  = ',  L,  ' MCPNT  = ' MCPNT(L) 

WRITE(8,*)  'ARGl  = ',  ARGl,  ' ARG2  = ARG2 
WRI'TE(8,*)  'MC(1,L)  = MC(1,L),  ' HC(2,L)  = MC(2,L) 

200  CONTINUE 

ENDIF 


RETURN 

END 


********************-**************************************************** 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  lo,  CW 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  IN'TRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
& JZERO,  MCHAT) 

C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR 

C OUTPUTS:  IZERO,  JZERO,  MCHAT 

C SUBPROGRAMS : TRMNAT 

C IMPLICIT  NONE 
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INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  = 150,  MAXREG  = 3,  TTAB  - 31) 
COMMON  I OUT 


REAL 


INTEGER  I,  lOUT,  L,  NPPR ( MAXREG ) , NUM,  NUMREG 

CHI975  (CHITAB),  DD(MAXREG), 

' JZERO(2,  MAXREG),  MCHAT(2,  MAXRE 
SWHAT2(MAXi4g),  SX, 

DATA  (CHI025(Ili,  1 = 1,  75)  / 

' 6.000982069,  0.506356,  0.215795,  0. 

1-237347,  1.68987,  2.17973,  2.76o39 
l-flSJS,  4.40379,  5.00874,  5.62872 
6-90766,  7.56418,  8.23075,  8.90655 

S-i5?|5'  9-SSJ3.  Ii-S!??:  ;?-40u 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


DATA  (CHI025(I 


= 76, 


13.8439, 
17.53, 
21.33, 

25.21, 

29.15, 

33.16, 

37.21, 
41.30, 
45.43, 
49.59, 

57.80, 
62.24, 
66.50, 
70.78, 
75.08 
79.40, 
83.73, 
88.08, 
92.45, 
96.82, 
101.21 
105.61 
110,02 
114.44 


DATA  (CHI975(I),  1=1, 
& 5.02389, 

& 14.4494, 

& 21.9200, 

& 28.8454, 

& 35.4789, 

& 41.9232, 

& 48.23, 

& 54.44, 

& 60.56, 

& 66.62, 

& 72.61, 

& 78,57, 

& 84.48, 

& 90.35, 

^ 96.19, 


18. 

.28, 

22. 

.10, 

25. 

,99, 

29. 

.95, 

33. 

,96, 

38. 

02, 

42. 

12, 

46. 

26, 

50. 

42, 

, 150) 

54- 

62, 

58, 

84, 

63. 

09, 

67. 

35, 

71. 

64, 

75. 

94, 

80. 

27, 

84. 

60, 

88. 

95, 

93. 

32, 

97. 

20, 

102 

,0§ 

106 

-49 

110 

.90. 

115 

•33, 

75) 

/ 

15.3079,  16.0471 


DATA  (CHI975(I 


) t 

r = 

76,  150) 

102 

.00, 

103. 

16 

107 

.78, 

108. 

94 

113 

.54, 

114. 

69 

119, 

.28, 

120. 

43 

125, 

.00, 

126. 

14 

130, 

.70, 

131. 

84 

136. 

.38, 

137. 

52 

142. 

.05, 

143. 

18 

147. 

,70, 

148. 

83 

153, 

.34, 

154. 

47 

158, 

,97, 

160. 

09 

19.04, 

22.87, 

26.78, 

30.75, 

34.77, 

38.84, 

42.95, 

47.09, 

51.26, 

55.46, 
59.69, 
63.94, 
68.21, 
72.50, 
76.80 
81.13, 

85.47, 
89.83, 
94.19, 
98.57' 
102. 9r 
107.37, 
111,79. 
116.21 


7.57776, 

16.0128, 

23.3367, 

30.1910, 

36.7807, 

43.1944, 

49.48, 

55.67, 

61.77, 

67.82, 

73.81, 

79.75, 

85.65' 

91.52, 


19.80, 

23.65, 

27.57, 
31.55, 

35.58, 

39.66, 
43.77, 
47.92, 

52.10, 

56.30, 

60,54, 

64.79, 

69.07, 
73.36, 

77.67, 
82-00, 
86.34, 
90.70, 

95.07, 
99.45, 
103.85, 
108.25, 

112.67, 

117.10, 


484419,  0 
3.24697 
6.26214 
9.59083 
13.1197 
16.7908 

20.56. 
24.4331 
28.36, 
32.3574 

36.39, 
40.4817 
44.60, 
48.7576 
52.94  / 

57.1532, 

61.39, 
65.6466, 
69.92, 
74.2219, 
78.53, 
82.87, 
87.21, 

91.57, 
95.94. 
100.33, 
104.73, 
109.14, 
113.56, 
117.98  / 


9.34840, 

17.5346, 

24.7356, 

31.5264, 

38.0757, 

44.4607, 

50.72, 

56.89, 

62.99, 

69.02, 

75.00, 

80.93, 

86.83, 

92.69, 

98.52, 

104.31, 
110.09, 
115.84, 
121.57, 
127.28, 
132.98, 
138.65, 

144.31, 
149.96, 
155.59, 
161.21, 


II. 1433, 
19.0228, 
26,1190, 
32.8523, 
39.3641, 
45.7222, 
51.96, 

58.12, 
64.20, 
70.22, 
76.19, 

82.12, 
88,00, 
93.86, 
99.68, 

105.47, 

III. 24, 
116,99, 

122.72, 
128.42, 
134.11 
139.79, 
145.44, 
151,09, 

156.72, 
162.33, 


12.8325, 

20.4831, 

27.4884, 

34.1696, 

40.6465, 

46.9792, 

53.20, 

59.3417, 

65.41, 

71.4202, 

77.38, 

83.2976, 

89.18, 

95.0231, 

100.84  / 

106.629, 

112.39, 

118. 13^, 

123.86, 

129.561, 

135.25, 

140.92, 

146.57, 

152.21, 

157.84, 

163.46' 


:g), 

.831211, 
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& 

& 

& 

& 


164.58, 

165.70, 

166.82, 

167,94, 

169.06, 

170.18, 

171.30, 

172.41, 

173.53, 

174.65, 

175.77, 

176.88, 

178.00, 

179.12, 

180.23, 

181.35, 

182.46, 

183.58, 

184.69, 

185.80  / 

VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 

1 - 30,  40,  50,  60,  70,  80,  90,  100  - Theil,  pp.  718-719 

31-39,  41-49,  51-59,  61-69,  71-79,  81-89,  91-99,  101-150 
- CALCULATED  USING  CUBE  RULE  APPROXIMATION 


DATA  T025  / 12.706, 
& 2.365, 
& 2.160, 
& 2.093, 
& 2.060, 


4.303,  3.182,  2.776, 
2.306,  2.262,  2.228, 
2.145,  2.131,  2.120, 
2.086,  2.080,  2.074, 
2.056,  2.052,  2.048, 


2.571,  2.447, 

2.201,  2.179, 

2,110,  2.101, 

2.069,  2.064, 

2.045,  2.042,  1.960  / 


C 

C 

C ARG 
C CHI025O 
C CHI975  0 
C CHITAB 
C DD(  ) 

C I 
C lOUT 
C IZEROO 
C 

C JZERO{ ) 

C 

C L 

C MAXREG 
C MCHATO 
C 
C 
C 

C NPPR() 

C 

C NUM 
C NUMREG 
C SUHAT 
C SUHAT2 ( ) 
C 

C SWHAT 
C SWHAT2 ( ) 
C 

C SX 
C SX2 ( ) 

C 

C T 

C T025() 

C TTAB 


LIST  OF  VARIABLES 
INTERMEDIATE  CALCULATION  VARIABLE 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI025  AND  CHI975 

1- D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025()  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  lo,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2-D  ARRAY  CONTAINING  JO,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y«LnN) 

EQUAL  TO  SWHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y = Ln  N ) 

EQUAL  TO  (NPPR(L)*SX2(L)  )**0.b  FOR  A SET  OF  CALCULATICWS 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

VALUE  OF  T025()  USED  IN  CALCULATIONS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  I ZERO,  JZERO  AND  MCHAT 

DO  50  L = 1,  MAXREG 
IZERO(l,L)  =0.0 
IZERO(2,L)  = 0.0 
JZERO(l,L)  =0,0 
JZERO(2,L)  = 0.0 
MCHAT(1,L)  = 0.0 
MCHAT ( 2, L)  =0.0 
50  CONTINUE 

C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 

DO  75  L = 1,  NUMREG 

IF  (NPPR(L)  .GT.  CHITAB)  THEN 

WRITE (8,*)  'ERROR:  EXCEEDED  LIMIT  ON  DEGREES  OF  FREEDOM  ', 
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‘ CALL  IRMNAt'^""  chi-square  TABLE,  IN  REGION 

ENDIF 
75  CONTINUE 


L 


C 

C 


ASSIGN  VALUES  TO  NUM, 
CONFIDENCE  INTERVALS 


T,  SWHAT,  SUHAT  AND  THEN 
FOR  EACH  REGION 


CALCULATE 


DO  100  L = 1,  NUMREG 

NUM  = NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
T = T025(NUM) 

ELSE 

T = T025{NUM) 

ENDIF 


SWHAT  = SWHAT2(L)  **  0.5 
SUHAT  = SUHAT2(L)  **  0.5 
SX  = (NUM  * SX2(L))  *★  0.5 

CALCULATE  ESTIMATED  VALUES  OF  M AND  C 

ARG  = T ★ SWHAT  / SX 
MCHAT(1,L)  = - DD(L) 

MCHAT(2,L)  = SUHAT 

CALCULATE  CONFIDENCE  INTERVALS 


IZERO(l,L) 
IZERO(2,L) 
J2ERO ( 1 , L ) 
JZERO(2^L) 


MCHAT(2,L) 

MCHAT(2,L) 

MCHAT(1,L) 

MCHAT(1,L) 


(FLOAT(NUM) 
(FLOAT (NUM) 
ARG 
ARG 


CHI975(NUM) ) 
CHI025(NUM) ) 


0.5 
★ ★ 0.5 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , ★ ) 
WRITE ( 8 , * ) 
WRITE ( 8 , ★ ) 
WRITE ( 8 , * ) 
WRITE ( 8 * ) 
& ' / / 
WRITE ( 8 , ^ ) 

& 

WRITE ( 8 , * ) 

& 

ENDIF 
100  CONTINUE 


10)  THEN 

'L  , Ij,  ' NPPR  NPPR(L),  ' NUM 
'SWHAT2  SWHAT2(L)^  ' SWHAT  =' 


'SUHAT2  SUHAT2  L>;  ' 

'SX2  SX2(L).  ' SX 

'CHI025  CHI025(NUM)  / ' CHI975  “ 


SWHAT 

SUHAT 


NUM 


SUHAT  =' 

SX 

CHI975(NUM) 
ARG  =',  ARG 

IZERO(2,L)  =', 


'T  =' , T,  ' DD  =' , DD(L) , ' A 

JZERO(2,'l)  ' JZER0(2,L)  =', 

'mC^1^?(2;l{  ”C«A’’(1,L),  ' MCHAT(2,L)  =', 


RETURN 

END 


c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURP  prom  tpp  mittttotit 


PROGRAMMER 

DATE 

VERSION 


L.  NEWLIN 

CODE:  21JUN88  COMMENTS:  13JUL89 

MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.1,  V4.2,  V4,3,  V4.4'  V4.5 


SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 


INPUTS: 
OUTPUTS ! 


NS^S,  NP,  NUMREG,  LAMN,  MCHAT 


C IMPLICIT  NONE 
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INTEGER  MAXREG,  MAXSET 
PARAMETER  (MAXREG  = 3,  MAXSET  = 5) 

COMMON  I OUT 

INTEGER  lOUT,  J,  L,  NP(0:MAXSET,  MAXREG),  NSETS,  NUM(MAXREG), 
& NUMREG,  TOTAL 

REAL  LAMN,  MCHAT(2,  MAXREG),  PSIG2 (MAXREG) , PVAR,  SUM 


LIST  OF  VARIABLES 


lOUT 

J 

L 

LAMN 

MAXREG 
MAXSET 
MCHAT( ) 


NP() 

NSETS 
NUM(  ) 

NUMREG 
PSIG2 ( ) 

PVAR 

SUM 

TOTAL 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBda-N  - RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  REGIONS  AND  COMPONENTS 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  = -DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  Nj  IS  THE  SUM  OF  THE 
NUMBER  OF  POINTS  IN  EACH  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 
VARIATION  IN  EACH  REGION 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 
CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 
WEIGHTED  SUM  OF  THE  PSIG2s  - USED  TO  CALCULATE  A WEIGHTED 
AVERAGE 

SUM  OF  NUM()  OVER  ALL  REGIONS 


C INITIALIZE  VARIABLES 

SUM  =0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2(L)  =0.0 
NUM(L)  = 0 
50  CCHJTINUE 

DO  100  L = 1,  NUMREG 
DO  150  J = 0,  NSETS 

NUM(L)  = NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  = TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L = 1,  NUMREG 

PSIG2(L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2(L)  * NUM(L) 

200  CONTINUE 

IF  (lOUT  .EQ.  10)  THEN 

WRITE  ( 8 , * ) ' LAMN  = ' , LAMN 

DO  300  L = 1,  NUMREG 

WRITE (8,*)  'L  = ',  L,  ' NUM  = ',  NUM(L) 

WRITE (8,*)  'MCHAT  = MCHAT(2,L),  ' PSIG2  = ',  PSIG2(L) 
300  CONTINUE 

WRITE (8,*)  'TOTAL  = ',  TOTAL,  ' SUM  = ',  SUM 
ENDIF 

PVAR  = SUM  / FLOAT  (TOTAL) 
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RETURN 

END 


****-*cicic*iriricieiciriciririt*iriririr*ifikifir****itirir 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOWTFHTP  na  nrvpu 

CONFIDENCE  IN?ERV^S  T5zERO^^?Sra^ ) 
RANGES  ON  M FOR  EACH  REGION 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAMMER 

DATE 

VERSION 


L,  NEWLIN 

CODE:  2FEB88  FORMAT /COMMENTS : 12AUG91 

MATCHR  V6,l,  V6.2,  V7,  V7.1,  V8,  V8.l7  VS.^  V8.3, 
Vo  • 4 ^ \r  o • 5 

MATGRM  V4,  V4.1,  V4,2,  V4.3,  V4.4,  V4 . 5 


C 

C 

C 


SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 
^ MCHAT,  RANGEM) 

OUT^fs:  RW^m'  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT , L , MCPNT ( MAXREG ) , MPNT ( MAXREG ) , NUMREG 


REAL 


I OUT 
JZERO { ) 

L 

LOWER 

MAXREG 

MC() 


MCHAT () 

MCPNT ( ) 
MPNT( ) 
MZERO( ) 

NUMREG 
RANGEM ( ) 

UPPER 


Sll;  Ki!; 

LIST  OF  VARIABLES 
OUTPUT  DUMP  CONTROLLER 

^"fOR^Ch'^^GION^”'^  CONFIDENCE  INTERVALS  ON  M 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
LOWER  BOUND  OF  INTERSECTION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2— D ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
CONSpTENT  WITH  GIVEN  VALUE  OF  Co  AND  T^  DMA 
LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 

BOUND 

CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT (1,L)  = - DD(L)  , THE  ESTIMATE 
1 MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2 IN 

MC()  FOR  EACH  REGION  / J./  WK  IN 

CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2 IN 

MZERO()  FOR  EACH  REGION  / -L/  XN 

VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
IS  ThTuPPER~B^ND°^^'^’  MZERO(2,L) 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  array  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  CM  M 

RANGEM ( 2, L)  IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  =0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 


C PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
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DO  100  L = 1,  NUMREG 


IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,»)  'L  = ',  L,  ' NUMREG  = NUMREG 
WRITE(8,*)  'MPNT  = MPNT(L) , ' MCPNT  = MCPNT(L) 

ENDIF 


IF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 


RANGEM(1,L)  - 
RANGEM(2,L)  = 

IF  (lOUT  .EQ, 
WRITE ( 8 , ^ ) 

JZERO(l,L) 

JZERO(2,L) 

10)  THEN 
'RANGEM(1,L)  = 

',  RANGEM(1,L), 

& 

' JZERO(l.L)  = 
'RANGEM(2,L)  = 

',  JZERO(l,L) 

WRITE (8,*) 

',  RANGEM(2,L), 

& 

' JZERO(2,L)  = 

',  JZERO(2,L) 

ENDIF 

ELSEIF  ((MPNT(L) 

•EQ.  0)  .AND. 

(MCPNT(L)  .EQ.  1))  THEN 

NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  Co,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 

LOWER  = AMAXl(JZERO(l,L),  MC(1,L)) 

UPPER  = JZERO(2,L) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'JZERO(l,L)  = ',  JZERO(l,L), 

& ' JZERO(2,L)  = J2ERO(2,L) 

WRITE(8,*)  'MC(1,L)  = ',  MC(1,L) 

WRITE(8,*)  'LOWER  = LOWTO,  ' UPPER  = ' , UPPER 
WRITE(8,*)  'RANGEM(1,L)  = RANGEM(1,L), 

& ' RANGEM(2,L)  = RANGEM(2,L) 

ENDIF 

ELSEIF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  Co  CONSTRAINT,  ADJUST  JO  ACCORDINGLY 

LOWER  = AMAXl(JZERO(l,L),  MC(1,L)) 

UPPER  = AMINl ( JZERO(2,L) , MC(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'JZERO(l,L)  = ',  JZERO(l,L), 

& ' JZERO(2,L)  = ',  JZERO(2,L) 

WRITE(8,*)  'MC(1,L)  = ',  MC(1,L),  ' MC(2,L)  = ',  MC(2,L) 

WRITE (8,*)  'LOWER  = ',  LOWER,  ' UPPER  = ',  UPPER 
WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

& ' RANGEM(2,L)  = ',  RANGEM(2,L) 

ENDIF 

ELSEIF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M - THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 
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RANGEM(1,L)  = MZER0(1,L) 
RANGEM(2,L)  = 0.0 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8, *) 

ENDIF 


10)  THEN 
'MZERO(l,L) 
'RANGEM( 1,L) 
RANGEM(2,L) 


MZERO(l,L) 

, RANGEM(1,L), 
, RANGEH(2,L) 


C 

C 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  ,EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CWSTRAINT 
USE  INTERSECTION  BETWEEN  Jo  AND  Mo 


LOWER  = AMAXl(JZERO(l,L),  MZERO(l.L)) 

UPPER  = AMIN1( JZERO(2,L) , MZERO(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  MO' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 

& 


& 


IF 


(lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE (8,*) 
WRITE ( 8 , * ) 


ENDIF 


10)  THEN 
' JZERO( 1,L) 
JZERO(2,L) 
'MZERO(l,L) 
MZERO(2,L) 

' LOWER  = ' , 
'RANGEM( 1,L) 
RANGEM(2,L) 


= JZERO(l,L), 

= JZERO(2,L) 

= MZERoU,L), 

= MZERO(2,L) 
LOWER,  ' UPPER  = 
= RANGEM(1,L) 

= RANGEM(2,L) 


UPPER 


C 

c 

c 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  CO 
BY^Mc^^CO^IN^Y^^^'^  LOWER  BOUND 

LO^R  = AMAXl(JZERO(l,L)  , MZERO(l,L),  MC(1,L)) 

UPPER  = AMIN l(JZERO( 2, L) , MZERo}2,L) ) ** 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo.  ' 

'AND  Me'  • • • 

CALL  TRMNAT 
£»XjS£ 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


£r 

& 


C 

c 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE(8,  *) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 

ELSEIF  ((MPNT(L) 


10)  THEN 
' JZERO( 1,L) 
JZERO(2 ,L) 
'MZERO( 1,L) 
MZERO(2,L) 
'MC(1,D  = 
'LOWER  = ' , _ 
'RANEGM(1,L)  = 
RANGEM(2,L)  = 


= ',  JZERO(l,L), 

= ',  JZERO(2,L) 

= ',  MZERO(l,L), 

= ',  MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = ' 
RANGEM(1,L), 
RANGEM(2,L) 


UPPER 


.EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 


THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  'TWO  RANGES  WITH  Jo 

LOWER  = AMAXl ( JZERO( 1,L) , MZERO(l,L),  MC(1,L)) 

UPPER  = AMIN1( JZERO(2,L) , MZERO(2,L),  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN  v » M 

WRITE  (8,*)  'ERROR:  NO  IN'TERSECTION  BETWEEN  Jo,  Mo.  ' 

'AND  Me'  • ! > 

CALL  TRMNAT 
ELSE 
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RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'JZERO(l,L)  = JZERO(l,L), 

& ' JZERO(2,L)  = JZERO(2,L) 

WRITE(8,*)  'MZERO(l,L)  = MZERO(l,L), 

& ' MZERO(2,L)  = MZERO(2,L) 

WRITE(8,*)  'MC(1,L)  = MC(1,L) 

WRITE (8,*)  'LOWER  = LOWER,  ' UPPER  = UPPER 
WRITE<8,*)  'RANGEM(1,L)  = RANGEM(1,L), 

& ' RANGEM(2,L)  = RANGEM(2,L) 

ENDIF 

ELSE 

WRITE ( 8 , * ) ' ERROR : PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 

ENDIF 


C RESTRICT  RANGE  TO  BE  NON -NEGATIVE 

RANGEM(1,L)  = AMAXl (RANGEM( 1,L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = RANGEM(1,L) 
100  CCWTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((MCHAT(1,L)  .LT.  RANGEM(1,L)) 

& .OR.  (MCHAT(1,L)  .GT.  RANGEM(2,L) ) ) 

& WRITE(8,*)  'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE 

i ' ON  m IN  REGION  ' , L 

300  CCWTINUE 


RETURN 

END 


C**************** ************************ ******************************** 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 
WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DA'TE:  CODE:  2FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION;  MATCHR  V6 . 1 , V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

C OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  LL,  MPNT (MAXREG) , NNODAT,  NUMREG 
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REAL 


MCHAT(2,  MAXREG),  MZERO(2,  MAXREG) , RANGEM(2,  HAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LL 

MAXREG 
MCHAT( ) 


MPNT( ) 
MZERO( ) 


NNODAT 
NUMREG 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  array  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  = - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1.  OR  2.  IN 

MZEROO  FOR  EACH  REGION  , 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
Is'^UPp1r^BOUNd”^^^°^^'^*  is  the  lower  bound  and  MZER0(2,L) 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATAl 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


C 

C 


IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  =',  NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'L  =',  L. 
i ' LL  =',  LL,  ' MPNT(LL)  =' , MPNT(LL) 


& 

& 


NUMREG  =',  NUMREG, 


IF 


(MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM(1,LL)  = MZERO(l,LL) 

RANGEM(2,LL)  = MZERO(2,LL) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,»)  'RANGEM( 1,LL) 

' MZERO(l,LL) 

WRITE (8,*)  'RANGEM(2,LL) 

' MZERO(2,LL) 

ENDIF  ' 


=',  RANGEM(1,LL) , 
= MZER0(1,LL) 
=’,  RANGEM(2,LL) , 
= MZER0(2,LL) 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT(1,LL)  = RANGEM(1,LL) 

" (RANGEM(1,LL)  + RANGEM ( 2 , LL ) ) / 2.0 

£NDXr 

ELSE^  *EQ.  10)  WRITE(8,^)  'MCHAT  , MCHAT(1,LL) 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ' 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


******  ■k’k'k’k’k -kit -k  ****************ir****iric*it***it‘k***** 


************  ieir* 


c 

c 

c 

c 


ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVITY  CONSTRAINTS 
PROGRAMMER:  L.  NEWLIN 

DATE:  2FEB88  FORMAT/ COMMENTS : 15SEP89 
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VERSION:  MATCHR  V6*l,  V6.2,  V7,  V7.1,  V8,  V8 . 1 , V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4,4,  V4.5 

SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 

INPUTS : NUMREG , RANGEM 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  NUMREG 

REAL  RANGEM(2,  MAXREG),  TESTM 


LIST  OF  VARIABLES 


lOUT 

L 

MAXREG 
NUMREG 
RANGEM( ) 


TESTM 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  ~ RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-1  - USED  DURING 
CONCAVITY  ADJUSTMENT 


ADJUST  RANGE  TO  INSURE  CONCAVITY 

DO  100  L = NUMREG,  2,  -1 

IF  (RANGEM(2,L-1)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT  IN  REGION  L«1 

IF  (RANGEM(1,L-1)  .GT.  AMAXl  (RANGEM(  1 ,L)  , RANGEM(2  ,L)  ) ) THEN 
WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  L, 

& ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGI«I  ' ,L-1 

CALL  TRMNAT 
END  IF 
ELSE 

RANGE  IS  AN  INTERVAL  IN  REGION  L-1 
TESTM  = AMAXl (RANGEM( l.L) , RANGEM(2,L)) 

IF  (TESTM  .LT.  RANGEM( 1 ,L-1 ) ) THEN 

WRITE (8,*)  'ERROR;  POSTERIOR  INTERVAL  IN  REGION  L, 

& ' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN  ' 

& 'REGION  L-1 

CALL  TRMNAT 
ELSE 

RANGEM(2,L-1)  = AMINl ( RANGEM( 2 ,L-1 ) , TESTM) 

ENDIF 

ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(1,L-1)  =',  RANGEM( 1 , L-1 ) , 

& ' RANGEM(2,L-1)  =' , RANGEM(2,L-1) 

WRITE(8,*)  'RANGEM(1,L)  RANGEM(l.L), 

& ' RANGEM(2,L)  , RANGEM(2,L) 

WRITE(8,*)  'TESTM  =',  TESTM,  ' L = ' L 
ENDIF 


100  CONTINUE 


RETURN 

END 
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SOTROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  Co 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  1DEC87 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  VI,  VI. 1,  V8,  V8.1,  V8.2,  V8.3, 

Vo  . 4 f V8 . 5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

INPUTS:  NUMREG,  RANGEM 

lOUTPUT:  MEDM 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMC84  lOUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  LOWERM,  MEDM(MAXREG) , RANGEM(2,  MAXREG) 


I OUT 
L 

LOWERM 

MAXREG 
MEDM( ) 
NUMREG 
RANGEM( ) 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CCXISIDERATION ) 

TO  BE  USED  IN  MEDIAN  CALCULATION  ' 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- p  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  array  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 


C 

C 


INITIALIZE  ARRAY  MEDM 

DO  50  L = 1,  MAXREG 
MEDM(L)  =0.0 
50  CONTINUE 

BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  = RANGEM(1,L) 

ELSEIF  (L  .EQ.  1)  THEN 

WE  ARE  IN  REGION  ONE  - NOT  AFFECTED  BY  OTHER  REGIONS 
— MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  = (RANGEM(1,L)  + RANGEM(2,L))  / 2.0 

ELSE 

MUST  TAKE  MEDIAN  OF  REGION  L-1  INTO  ACCOUNT 
I^WE^  ^ =_AM^  IJ^R^GEM  ( 1 , L ) , ^ MEDM  ( L- 1 ) ^ 


MEDM(L)  = (LOWERM  + RANGEM( 2 ,L) ) / 2, 
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ENDIF 


NUMREG  = ' , NUMREG 
= RANGEM(1,L), 

= RANGEM(2,L) 

LOWERM,  ' MEDM(L)  = ^ MEDM(L) 


100  CONTINUE 

RETURN 

END 


IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,^)  'L  = ' , L,  ' 
WRITE (8,*)  'RANGEM(1,L) 
& ' RANGEM(2,L) 

WRITE(8,*)  'LOWERM  = 
ENDIF 


C SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
C CURVE  PARAMETERS 
C PROGRAMMER:  L,  NEWLIN 

C DATE:  CODE:  13FEB89  FORMAT /COMMENTS : 15SEP89 

C VERSION:  MATCHR  V8.3,  V8,4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology, 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged . 


SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG, 

& ZROREG,  NBND,  BIGKl,  BZHAT) 

C INPUTS:  NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

C OUTPUTS:  BIGKl  BZHAT 

C SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NCOMPS,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 

REAL  BIGK( 0: MAXREG) , BIGKl,  BZHAT,  FACTR,  KHAT,  MEANZ, 

& MEDM(MAXREG)  , MM ( 0 : MAXREG i , NBND ( 0 : MAXREG ) , 

& NFIMAXDAT,  MAXREG),  SBND( 0 :MAXREG) , STR(MAXDAT,  MAXREG), 

& SZ2,  SZERO,  TRBIGK( 0: MAXREG) , ZZ (MAXDAT) 


C 

C 

C BIGK ( ) 
C 

C BIGKl 
C BZHAT 
C FACTR 
C lOUT 
KHAT 
L 

MAXDAT 
MAXREG 
MEANZ 
MEDM( ) 
MM(  ) 
NBND( ) 

C NCOMPS 
C 

C NF(  ) 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E(BETAo) 

A SCALE  FACTOR  = PHI  ♦ KRATIO  * Z 

OUTPUT  DUMP  CONTROLLER 

E(k) 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

Number  of  COMPonents  - 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  - 2 FOR  DECOMPOSED  STRAIN  DATA 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
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NP 

NPTS( ) 

NUMREG 
SBND( ) 

STR( ) 

SZ2 
SZERO 
TRBIGK( ) 

ZROREG 

ZZ() 


SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 


1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND() 

2- D  array  containing  RATSTRO  FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT,  So  \ > i i i 

1-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 
TRBIGK(i)  = BIGK(i) 

ZeRO  REGlon  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

DO  50  L = 0,  MAXREG 
MM(L)  = 0.0 
50  CONTINUE 

C CREATE  MM()  ARRAY  FROM  MEDM()  ARRAY 

DO  100  L = 1,  NUMREG 
MM(L)  = MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  BETAo  AND  k 

CALL  KBETA  (MEANZ,  SZ2,  KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGKl  = BIGK(l) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 

DO  150  L - ZROREG,  NUMREG 
TRBIGK(L)  = BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 
FACTR  = 1.0 

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 

S FACTR,  NUMREG) 

ENDIF 

C WRITE  RESULTS  TO  FILE 

IF  (NCOMPS  .EQ.  1)  THEN 

WRITE (7, 900)  NUMREG,  BZHAT,  KHAT 

IF  (lOUT  .EQ.  10)  WRITE(8,900)  NUMREG,  BZHAT,  KHAT 

DO  200  L = ZROREG,  NUMREG 

WRITE(7,910)  L,  MM(L) , TRBIGK(L),  NBND(L),  SBND(L) 
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IF  (lOUT  .EQ.  10)  WRITE(8,910)  L,  MM(L),  TRBIGK(L), 
6 NBND(L),  SBND(L) 

200  CONTINUE 

WRITE(7, 920) 

ELSE 

WRITE(7,930)  MM(1),  BIGK(l),  KHAT 
ENDZF 


C FORMAT  STATEMENTS 


900  FORMAT{///,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' ,//, 2X, 

& 'NUMBER  OF  REGIONS: ',14, 5X, 'E(BETAO)  = ' , F8 .4 , 5X, 'E (k)  =', 

& F8. 4, //,2X, 'REGION' ,7X, 'm' ,15X, 'K' ,9X, 'LIFE  BOUND', 7X, 

& ' STRESS  BOUND ' , / ) 

910  FORMAT(5X,Il,5X,F9.5, 5X,E12.5,5X,E9.3,9X,E11.5) 

920  FORMAT(///) 


930  FORMAT(//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' 
& //, llX, 'm' , 14X, 'K' , 13X, 'E(k) ' , 

& //,7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


SUBROUTINE  MUSIC  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS 
MEAN,  MU,  AND  STANDARD  DEVIATION,  SIC;  FOR  EACH  REGION 
PROGRAMMER : L . NEWL IN 

DATE : CODE : 2 1JUN88  COMMENTS : 13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4*l,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  MUSIC  (NUMREG,  SX2 , DD,  SWHAT2 , SUHAT2,  NPPR,  DELTA, 

& MO,  SIGMA2,  MCHAT,  MU,  SIG) 

C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 

C OUTPUTS:  MCHAT,  MU,  SIG 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG,  NPPR(MAXREG) 

REAL  ARG,  DD(MAXREG),  DELTA ( MAXREG ) , MCHAT(2,  MAXREG), 

& MO(MAXREG),  MU(MAXREG),  SIG ( MAXREG ) , SIGMA2 (MAXREG) , 

& SUHAT2 (MAXREG) , SUMX2,  SWHAT2 ( MAXREG ) , SX2 (MAXREG) 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


ARG 

DELTA  ( ) 

lOUT 

L 

MAXREG 
MCHAT ( ) 


LIST  OF  VARIABLES 
INTERMEDIATE  CALCULATION  VARIABLE 

1-D  ARRAY  CONTAINING  SXY(L) /SX2  (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGION  ALLOWED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 
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MO() 

MU() 

NPPR( ) 

NUMREG 

SIG() 

SIGMA2 ( ) 

SUHAT2 ( ) 

SUMX2 
SWHAT2 ( ) 

SX2() 


ElACH  FIEGION,  BASED  ON  MATERIALS  DATA  ONLY  — MCHAT(l.L)  = 

- DD(L),  THE  ESTIMATE  FOR  M AND  MCHAT(2,L)  = SUHAT, 

THE  ESTIMATE  FOR  C v / / / 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Poin'ts  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FRCW  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

EQUAL  TO  NPPR()  * SX2 ( ) FOR  A PARTICULAR  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGICW 
(X  = Ln  S) 


C INITALIZE  ARRAYS 

DO  50  L = 1,  MAXREG 
MCHAT(1,L)  =0.0 
MCHAT(2,L)  =0.0 
MU(L)  = 0.0 
SIG(L)  = 0.0 
50  CONTINUE 


BEGIN  CALCULATION  FOR  EACH  REGION 


C 

C 


DO  100  L = 1 


NUMREG 


MCHAT(1,L)  = - DD(L) 
MCHAT(2,L)  = SQRT  (SUHAT2(L)) 
SUMX2  = NPPR(L)  * SX2(L) 

ARG  = SUMX2  + DELTA(L) 


IF  ( DELTA (L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  WAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU(L)  = MCHAT(l.L) 

ELSE 

UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 

= (MCHAT(1,L)  * SUMX2  + MO(L)  • DELTA(L)  ) 


/ ARG 


IF  (SIGMA2(L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 
USE  SWHAT2  AS  AN  ESTIMATE  OF  SIGMA-HAT-2 
SIG(L)  = SQRT  (SWHAT2(L)  / ARG) 

ELSE 

SIG(L)  = SQRT  (SIGMA2(L)  / ARG) 

ENDIF  ' 


& 

& 

& 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , » ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , » ) 

ENDIF 


10)  THEN 
^ L = ' L 
MCHAT(1,L) 

'SUHAT2  = ' 

MCHAT(2,L) 

'NPPR  = ' , NPPR(L) , 

SUMX2  = ' , SUMX2 
'DELTA  = DELTA(L),  ' ARG  = ' 

'MO  = ',  MO(L),  ' MU  = MU(L) 
'SWHAT2  = ',  SWHAT2(L),  ' SIGMA2  = 
SIG  = ' , SIG(L) 


DD  = ',  DD(L),  ' MCHATl  = 
SUHAT2(L),  ' MCHAT2  = 

SX2  = SX2(L), 

ARG 


SIGMA2(L) , 


100  CONTINUE 


RETURN 
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END 


C************ ************************************ ************************ 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  CO  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER;  L.  NEWLIN 

DATE;  CODE;  10FEB88  FORMAT /COMMENTS ; 12AUG91 

VERSION;  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

INPUTS;  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 
OUTPUTS ; RANGEM 
SUBPROGRAMS ; TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT ( MAXREG ) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG),  MCHAT(2,  MAXREG),  MZERO(2,  MAXREG), 
& RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


lOUT 

L 

LOWER 

MAXREG 

MC() 


MCHAT ( ) 

MCPNT ( ) 
MPNT( ) 
MZERO(  ) 

NUMREG 
RANGEM( ) 

UPPER 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
- MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  - MCHAT(1,L)  = - DD(L),  THE  ESTIMATE 
FOR  M AND  MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC ( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM (1,L)  IS  THE  LOWER  BOimD  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  = 0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 

C PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L = 1,  NUMREG 

IF  (lOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  = ',  L,  ' NUMREG  = ',  NUMREG 

WRITE (8,*)  'MPNT  = ',  MPNT(L) , ' MCPNT  = ',  MCPNT(L) 
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ENDIF 


IF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 

RANGEM(1,L)  = MZERO(l,L) 

RANGEM(2,L)  =0.0 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'MZERO(l,LJ  = MZERO(l,L) 

WRITE(8,*)  'RANGEM(i,L)  = RANGEM(1,L), 

& ' RANGEM(2,L)  = RANGEM(2,L) 

ENDIF 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  Co  CONSTRAINT  USE  MO 

RANGEM(1,L)  = MZERO(l,L) 

RANGEM(2,L)  = MZERO(2,L) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,»)  'MZERO(l,L)  = MZERO(l,L), 

4 ' MZERO(2,L)  = MZERO(2,L) 

WRITE(8,*)  'RANGEM(1,L)  = RANGEM<1,L), 

& ' RANGEM(2,L)  = RANGEM(2,L) 

ENDIF  ' » # 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  CO 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  Mo  BY  Me 


LOWER  = AMAXl(MZERO(l,L) , MC(1,L)) 
UPPER  = MZERO(2,L) 


IF  (UPPER  .LT. 
WRITE (8,*) 
CALL  TRMNAT 
ELSE 

RANGEM( 1,L) 
RANGEM(2,L) 
ENDIF 


LOWER) 

ERROR: 


THEN 

NO  INTERSECTION 


BETWEEN  Mo  AND  Me' 


= LOWER 
= UPPER 


& 


& 


IF  (lOUT  .EQ.  10)  THEN 
WRITE(8,*)  'MZERO(l,L) 

' MZERO(2,L) 

WRITE(8,*)  'MC(1,L)  = ' 
WRITE (8,*)  'LOWER  = 
WRITE (8,*)  'RANEGM(1,L) 
' RANGEM(2,L) 

ENDIF 


= ',  MZERO(l,L), 
= MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = 


= ',  RANGEM(1,L) 
= ',  RANGEM(2,L) 


UPPER 


ELSEIF  <(MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  CO  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  = AMAXl(MZERO( 1,L) , MC(1,L)) 

UPPER  = AMINl(MZERO(2,L) , MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  MO  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


IF  (lOUT  .EQ.  10)  THEN 
WRITE (8,*)  'MZERO(l,L) 

' MZERO(2,L) 

WRITE(8,*)  'MC(1,L)  = ' 
WRITE(8,*)  'LOWER  = ', 
WRITE(8,*)  'RANGEM(1,L) 


= ',  MZERO(l,L), 

= ',  MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = ', 
= ',  RANGEM(1,L), 


UPPER 
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& ' RANGEM(2,Ii)  = RANGEM(2,L) 

ENDIF 

ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 

ENDIF 

C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  = AMAXl ( RANGEM( 1 ,L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = RANGEM(1,L) 

100  CONTINUE 

C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((MCHAT(1,L)  -LT.  RANGEM(1,L)) 

& .OR.  (MCHAT(1,L)  .GT.  RANGEM(2,L) ) ) 

& WRITE (8,*)  'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE 

& ' ON  m IN  REGION  ' , L 

300  CONTINUE 

RETURN 

END 


C********** **********  **************************************************** 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  H RANGES  AND  NORMAL 
DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG.  NNODAT,  NUMREG, 

& MZERO,  MPNT,  MO,  SIGMA2) 

INPUTS;  RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO,  MPNT, 
MO,  SIGMA2 

OUTPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NUMREG 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  LL,  MPNT ( MAXREG ) , NNODAT,  NUMREG 

REAL  MCHAT(2,  MAXPiEG),  MO(MAXREG),  MU(MAXREG), 

& MZERO(2,  MAXREG),  RANGEM(2,  MAXREG),  SIG(MAXREG), 

& SIGMA2{ MAXREG) 


LIST  OF  VARIABLES 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 
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LL 

MAXREG 
MCHAT ( ) 

MO() 
MPNT( ) 
MU() 
HZERO( ) 

NNODAT 
NUMREG 
RANGEM( ) 

SIG() 
SIGMA2( ) 


EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  = - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2.  IN 
MZEROO  FOR  EACH  REGION  , 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGKMJ 

2- D  array  containing  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND  ’ 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 
NUMBER  OF  REGIONS  OF  INTEREST  x 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGICW 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 


C 

C 


IF  ( lOUT  . EQ . 10)  WRITE ( 8 , * ) ' NUMREG  = ' , NUMREG 

DO  100  L = 1,  NNODAT 


& 

& 


NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'L  ='  L, 

’ LL  =',  LL,  ' MPNT(LL)  =' , MPNT(LL) 


NUMREG  =',  NUMREG, 


. MO(LL) 

SIGMA2(LL)  = ', 


IF  ((MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM(1,LL)  = MZERO(l,LL) 

RANGEM(2,LL)  = MZERO(2,LL) 

MU(LL)  = MO(LL) 

SIG(LL)  = SQRT(SIGMA2 (LL) ) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM( 1,LL)  =' , RANGEM( 1,LL) , 
a ' MZERO(l,LL)  = ',  MZERO  1 LL 
WRITE(8,*)  ’RANGEM(2,LL)  =',  RANGEM(2,LL 
' MZERO  2, LL)  = ' MZERO(2,LL 
WRITE(8,*)  'MU(LL)  ='','mU(LL),  ■ m6(£l)'= 

WRITE (8,*)  'SIG(LL)  = ',  SIG(LL),  ' - 

SIGMA2(LL) 

ENDIF 

SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  ( PUmGEM  ( 2 , LL ) . EQ . 0.0)  THEN 
MCHAT(1,LL)  = RANGEM(1,LL) 

MU ( LL ) = RANGEM ( 1 , LL ) 

SIG(LL)  = 0.0 
ELSE 

ENDIF^^  * ^ ’ = (RANGEM(  1,LL)  + RANGEM(2,LL) ) / 2.0 

IF  (lOUT  .EQ.  10)  WRITE (8,*)  'MCHAT  =',  MCHAT(1,LL), 

‘ r-Tc.,.  ' MU  = ',  MU(LL),  ' SIG  = ',  SIG(LL)  " 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ' 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 

RE'TURN 

END 


C *******  ^ * Hr  *****  ^ * It 


****************************  ******-<k-i^Hr***********^t** 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  EXPB  CALCULATES  THE  EXPECTED  VALUES  OF  THE  S/N 
CURVE  PARAMETERS  FOR  THE  BOOTSTRAP  IMPLEMENTATION 
PROGRAMMER : L . NEWL IN 

DATE:  11OCT90  COMMENTS:  15JAN92 

VERSION:  MATCHR  VB1,1,  VBl.2,  VBl,3 

MATGRM  VBl,  VBl . 1 

Copyright  (C)  1990,  California  Institute  of  Technology. 
U.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  EXPB  (MM,  BIGK,  SZERO,  NUMREG,  ZROREG,  NBND) 

C INPUTS:  MM,  BIGK,  SZERO,  NUMREG,  ZROREG,  NBND 

C SUBPROGRAMS:  FINDSB,  KOMO 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG,  ZROREG 

REAL  BIGK(0:MAXREG),  FACTR,  MM ( 0 : MAXREG ) , NBND ( 0 :MAXREG) , 
& SBND(0:MAXR£G),  SZERO,  TRBIGK( 0 :MAXI^G) 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K M FOR 
EACH  REGION 

FACTR  A SCALE  FACTOR  = PHI  * KRATIO  ♦ Z 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM()  1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

NB^O  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SBND()  1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R * -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND( ) 

SZERO  STRESS  TENSILE  TEST  POINT,  So 

TRBIGKO  1-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 
TRBIGK(i)  = BIGK(i) 

ZROREG  ZeRO  REGXOn  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 

DO  150  L = ZROREG,  NUMREG 
TRBIGK(L)  = BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 
FACTR  =1.0 

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 

& FACTR,  NUMREG) 

ENDIF 

C WRITE  RESULTS  TO  FILE 
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& 

200 


WRITE (7, 900)  NUMREG 

IF  (lOUT  .EQ.  10)  WRITE(8,900)  NUMREG 


DO  200  L = ZROREG,  NUMREG 

WRITE(7,910)  L.  MM(L),  TRBIGK(L) , 
IF  (lOUT  -EQ.  10)  WRITE(8,910)  L, 


CONTINUE 


NBND(L),  SBND(L) 
MM(L),  TRBIGK(L) 
NBND(L),  SBND(L) 


t 


WRITE(7,920) 
C FORMAT  STATEMENTS 


900  FORMAT(///.2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 

«.  //,2X, 'NUMBER  OF  REGIONS:  ' ,14, 

& //, 2X, 'REGION' , 7X, 'm' , 15X, 'K' ,9X, 'LIFE  BOUND', 7X, 

& 'STRESS  BOUND',/) 

910  FORMAT(5X,Il,5X,F9.5,5X,E12.5,5X,E9.3,9X,E11.5) 

920  FORMAT(///) 


RETURN 

END 


C***************** ******************** *********************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  PEB  CONTROLS  THE  CALCULATIONS  FOR  THE  Parzuneter  Estimation 
M<X>EL  PORTION  OF  THE  MA'TERIALS  CHARAC'TERIZATION  Bootstrap  MODEL 
PROGRAMMER:  L.  NEWLIN 

DATE:  13NOV90  FORMAT /COMMENTS : 15JAN92 

VERSION:  MATCHR  VB1.2,  VBl.3 

MATGRM  VBl,  VBl. 1 


Copyrxght  (C)  1990,  California  Institute  of  Technology, 
y.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acknowledged. 


SUBROUTINE  PEB  (NPTS,  NUMREG,  ZROREG,  RAND,  NBND,  STR,  MEDM, 
& MEDK,  RESID,  BIGK,  BZERO,  MM,  SBND) 


INPUTS : 
OUTPUTS : 
SUBPROGRAMS : 


NPTS,  NUMREG,  ZROREG,  RAND,  NBND,  STR,  MEDM,  MEDK,  RESID 

BIGK,  BZERO,  MM,  SBND  > > , , 

PICRES,  MREGR,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB 


IMPLICIT  NONE 


INTEGER  MAXDAT , MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 


INTEGER  lOUT,  L,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 

REAL  BIGK(0:MAXREG) , BZERO,  K,  MEANZ,  MEDK ( 0 : MAXREG ) , 

& MEDM( 0 :MAXREG) , MM ( 0 : MAXREG ) , NBND ( 0 :MAXREG) , 

& RESID ( MAXDAT ) , RESNF (MAXDAT,  MAXREG),  SBND ( 6 :MAXREG) , 

& STR( MAXDAT,  MAXREG),  SZ2,  ZZ (MAXDAT) 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 

BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 

EACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
lOUT  OUTPUT  DUMP  CONTROLLER 
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K VALUE  OF  k - PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

MEDK()  1-D  ARRAY  CONTAINING  THE  MEAN  K VALUES  FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

MEDM()  1-D  ARRAY  CONTAINING  THE  MEAN  VALUES  M FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS ( ) 1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RAND  RANDOM  NUMBER  SEED 

RESID( ) 1-D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  REGRESSION  FOR  EACH 

POINT  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
RESNF( ) 2-D  ARRAY  CONTAINING  NF()  (CYCLES  TO  FAILURE)  FOR  THE  SPECIFIC 

MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS  BASED  ON  THE 
RANDOMLY  SELECTED  RESIDUALS 

SBND()  1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  “LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 

STR( ) 2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SZ2  SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

ZROREG  ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
ZZ()  1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA,  Z = F(STR,NF,NBND,MM) 


OBTAIN  THE  VALUES  OF  THE  RANDOMLY  SELECTED  RESIDUALS  FOR  EACH  DATA  POINT 

CALL  PICRES  (RAND,  MEDM,  MEDK,  RESID,  NPTS,  STR,  RESNF) 

BOOTSTRAPPING  M IS  DESIRED 

CALL  MREGR  (NUMREG,  NPTS,  STR,  RESNF,  MM) 

TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  RESNF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ , MEANZ,  SZ2) 

CALCULATE  THE  VALUES  FOR  k AND  BETAO  FROM  THE  SAMPLE  MEAN 
AND  VARIANCE 

CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A = K **  M 

CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

CALCULATE  STRESS  TIE -POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

WRITE  RESULTS  TO  FILE 

WRITE (7, 900)  NUMREG,  BZERO 

DO  200  L = ZROREG,  NUMREG 

WRITE(7,910)  L,  MM(L),  BIGK(L),  NBND(L),  SBND(L) 

200  CONTINUE 

C WRITE(7,920) 

C FORMAT  STATEMENTS 
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900  FORMAT(///,2X, 'SELECTED  VALUES  OF  S/N  CURVE  PARAMETERS', 
i //,2X, 'NUMBER  OF  REGIONS;  ' , 14 , 5X, ' BETAo  = ',F8.4, 

i //,2X, 'REGION' , 7X, 'm' , 15X, 'K' ,9X, 'LIFE  BOUND', 5X, 

& ' STRESS  BOUND ' , / ) 

910  FORMAT(5X,Il,5X,F9.5,5X,E12.5,5X,E9.3,6X,Ell.5) 

920  FORMAT(///) 


RETURN 

END 


C**'****************W^****:(lr**************1^****«*1^1^**i^*i«^******  ★*★**•*****« 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 


les,  R.  F. , The  RANDOM  Computer  Program;  A Linear  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 


Miles, 

Rand 
5101-277, 


PROGRAMMER 

DATE 

VERSION 


Feb.  15,  1986. 

L.  GRONDALSKI,  L.  NEWLIN 
1DEC87 

MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 
V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V2,  V3,  V3,l,  V3.2,  V3.3,  V4 , V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


C************* ************************ ********************************* 

SUBROUTINE  RANDOM  (FRAC,  RAND) 

C IMPLICIT  NONE 

COMMCW  lOUT 
INTEGER  lOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANG,  RAND,  RANDIV,  RANM,  RANSUB, 

& RANT,  RANX 


C 

C 

C FRAC 
C lOUT 
C RANA 
C RANC 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CON'TROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  = 671093.0 
RANC  = 7090885.0 
RANM  = 33554432.0 


10  RANX  = RANA  * RAND  + RANC 
RANDIV  = RANX  / RANM 
RANT  = DINT (RANDIV) 

RANSUB  = RANT  * RANM 
RAND  = RANX  - RANSUB 
FRAC  = SNGL(RAND  / RANM) 


IF  ((FRAC  ,EQ.  0.0)  .OR.  (FRAC  .EQ.  1.0))  GOTO  10 

IF  (lOUT  .EQ.  2)  WRITE ( 8 ,*)' RANX  =',  RANX,  ' RANDIV  =' , RANDIV, 
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& ' RANT  =',  RANT,  ' RANSUB  =' , RANSUB,  ' RAND  =',  RAND, 

& ' FRAC  = ' , FRAC 

RETURN 

END 

C NOTES:  IOUT=2  DUMPS  TO  SCREEN 


C************************************************************************ 


C**************  ********  ****************1rk1c***1t*1t**1r*1t1t****1r1r****ir*1tii1t1t* 
C SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
C WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE  s 3FEB88 

C VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

c 

C The  random  vciriates  are  generated  using  the  "Direct  Method" 

C Abramowitz,  M.,  and  Stegun,  I.  A.,  editors.  Handbook  of 
C Mathematical  Functions,  National  Bureau  of  Standards,  implied 
C Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
C 1970  with  corrections,  pg.  953. 

c************ ****************************************** **************** 

SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  = 3.1415926536) 

INTEGER  lOUT 


C 

C 

C FRAC 
C lOUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0,1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 


IF  ((lOUT  .EQ.  10)  .OR.  (lOUT 
& WRITE(8,*)  'RAND  =',  RAND, 

CALL  RANDOM  (FRAC,  RAND) 

Ul  = FRAC 

CALL  RANDOM  (FRAC,  RAND) 

U2  = FRAC 

IF  ((lOUT  .EQ.  10)  .OR.  ( lOUT 
& WRITE(8,*)  'Ul  =',  Ul, ' U2 

Zl  = SQRT  (-  2.  * ALOG(Ul))  * 
Z2  = SQRT  (-2.  * ALOG(Ul))  * 

X = SIGMA  * Zl  + MU 


.EQ.  15)) 

' MU  =',  MU,  ' SIGMA  =',  SIGMA 


.EQ.  15)) 

= ' , U2 

COS(2.  * PI  * U2) 
SIN(2.  * PI  * U2) 
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IF  ((lOUT  .EQ.  10)  .OR.  ( lOUT  .EQ.  15)) 

& WRITE(8,*)  '21  =',  21,  ' 22  22,  ’ X =',  X 

RETURN 

END 


SUBROUTINE  PICRES  PERFORMS  THE  RESIDUAL  SELECTION  AND  THEN  CALCULATES 
THE  NEW  S/N  PAIRS 
PROGRAMMER:  L.  NEWLIN 

DATF • ^ OOCTQ  0 

VERSION:  MATCHR  VBl.l,  VBl.2,  VB1.3 

MATGRM  VBl,  VBl.l 

SUBROUTINE  PICRES  (RAND,  MEDM,  MEDK,  RESID,  NPTS,  STR,  RESNF) 

INPUTS:  RAND,  MEDM,  MEDK,  RESID,  NPTS,  STR 

OUTPUTS : RESNF 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I,  INDEX,  I OUT,  K,  L,  NPTS (MAXREG) 

REAL  LNK,  MEDK ( 0 : MAXREG ) , MEDM ( 0 : MAXREG ) , RESID ( MAXDAT ) , 

& RESNF(MAXDAT,  MAXREG),  STR(MAXDAT,  MAXREG),  X 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


I 

INDEX 
I OUT 
K 
L 

LNK 
MAXDAT 
MAXREG 
MEDK( ) 
MEDM(  ) 
NPTS( ) 

RAND 
C RESID 0 
C 

C RESNF () 
C 

C STR(  ) 

C 

C X 


CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 

THE  RANDOMLY  SELECTED  INDEX  FOR  THE  RESIDUAL  SELECTION 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  EACH  REGIW 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
EQUAL  TO  ln(K) 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED' 

1-D  ARRAY  CONTAINING  THE  MEDIAN  K FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
RANDOM  NUMBER  SEED 

1- D  ARRAY  CONTAINING  THE  RESIDUALS  OF  THE  REGRESSION  FOR  EACH 
POINT  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

2- D  ARRAY  CONTAINING  THE  CALCULATED  CYCLES  TO  FAILURE  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  AND  SELECTED  RESIDUALS 

2-D  ARRAY  CONTAINING  RATSTR(  ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  ^GIONS  (PSI) 

UNIFORM(0,1)  RANDOM  VARIATE 


DO  50  L = 1,  MAXREG 
DO  75  K = 1,  MAXDAT 
RESNF(K,L)  - 0.0 
75  CONTINUE 
50  CONTINUE 

LNK  = ALOG  (MEDK(l)) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) ' MEDK  = ' , MEDK ( 1 ) , ' LNK  = ' , LNK 
WRITE(8,*)  'NPTS  = ',  NPTS(l),  ' MEDM  = ',  MEDM(l) 
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END  IF 


& 


& 


DO  100  1=1,  NPTS(l) 

CALL  RANDOM  (X,  RAND) 

INDEX  = INT  (X  * FLOAT  {NPTS(l)))  + 1 

RESNF(I,1)  = EXP  (MEDM(l)  ★ (LNK  - ALOG  (STR(I,1))) 

+ RESID( INDEX) ) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,i^)  'STR  = STR<I,1),  ' RESNF  = RESNF(I, 

WRITE (8,*)  'X  = X,  ' INDEX  = INDEX, 

'RESID  = RESID(INDEX) 


ENDIF 
100  CONTINUE 


1) 


RETURN 

END 


SUBROUTINE  MREGR  CALCULATES,  M,  THE  MATERIALS  SHAPE  PARAMETER 
FOR  EACH  REGION  WHERE  Y = LN(NF)  AND  X = LN(STR) 

PROGRAMMER:  L.  NEWLIN 

DATE:  13NOV90 

VERSION;  MATCHR  VBl.2,  VBl.3 
MATGRM  VBl,  VBl . 1 

SUBROUTINE  MREGR  (NUMREG,  NPTS,  STR,  NF,  MM) 

INPUTS:  NUMREG,  NPTS,  STR,  NF 

OUTPUTS:  MM 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  K,  L,  NPTS ( MAXREG ) , NUMREG 

REAL  DIFFX ( MAXDAT ) , D I FFY ( MAXDAT ) , MM ( 0 : MAXREG ) , 

& NFjMAXDAT,  MAXREG),  STR(MAXDAT,  MAXREG),  MEANX,  MEANY, 

6 SX2 (MAXREG),  SXY(MAXREG) 


LIST  OF  VARIABLES 


DIFFX ( ) 

DIFFY( ) 

lOUT 

K 

L 

MAXDAT 
MAXREG 
MEANX 
MEANY 
MM(  ) 


C 

c 

c 

c 

c 

c 


NF() 
NPTS( ) 
NUMREG 
STR(  ) 
SX2() 


SXY(  ) 


1-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LN(STR(K,L)) 

AND  MEANX  FOR  EACH  POINT  IN  REGION  L 
1-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LN(NF(K,L)) 

AND  MEANY  FOR  EACH  POINT  IN  REGION  L 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  X MEAN  FOR  POINTS  FROM  REGION  L (X  = Ln  S) 

SAMPLE  Y MEAN  FOR  POINTS  FROM  REGION  L (Y  = Ln  N) 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEAN  M FOR  EACH  REGION 
(BOOTSTRAP  OPTION) 

2- D  ARRAY  CONTAINING  LN(RESNF()),  ALSO  INDEXED  FOR  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  LN(STR()),  ALSO  INDEXED  FOR  REGION 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGICX^ 

(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 
EACH  REGION  (X  = Ln  S,  Y = Ln  N) 
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C INITIALIZE  ARRAYS 


DO  50  L = 1,  MAXREG 
SX2(L)  =0.0 
SXY(L)  =0.0 
MM(L)  = 0.0 
50  CONTINUE 

DO  70  K = 1,  MAXDAT 
DIFFY(K)  =0.0 
DIFFX(K)  =0.0 
70  CONTINUE 

C NOW  PERFORM  CALCULATION  OF  SX2  AND  SXY,  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

C FIRST  CALCULATE  SAMPLE  X AND  Y MEANS  IN  REGION  L 

MEANY  =0.0 
MEANX  =0.0 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =' , L,  ' NPTS  =',  NPTS(L) 

DO  250  K = 1,  NPTS(L) 

MEANY  = MEANY  + ALOG  (NF(K,L)) 

MEANX  = MEANX  + ALOG  (STR(K,L)) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NF=',  NF(K,L), 

5 ' STR  =' , STR(K.L) 

250  CONTINUE 

MEANY  = MEANY/FLOAT(NPTS(L) ) 

MEANX  = MEANX/FLOAT(NPTS(L) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'MEANY  =',  MEANY, 

6 ' MEANX  = ' , MEANX 

NOW  CALCULATE  SAMPLE  VARIANCES,  SX2  AND  SXY, 

OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  POINT  IN  REGION  L 


& 

300 


DO  300  K = 1,  NPTS(L) 

DIFFY(K)  = ALOG  (NF(K,L) ) - MEANY 
DIFFX(K)  = ALOG  (STR(K,L))  - MEANX 
SX2(L)  = SX2(L)  + DIFFX(K)  **  2 
SXY(L)  = SXY(L)  + DIFFX(K)  * DIFFY(K) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'K=',  K,  ' DIFFY(K)  =',  DIFFY(K) 
' DIFFX(K)  =',  DIFFX(K) 

WRITE(8,*)  'SX2(L)  =' , SX2(L),  ' SXY(L)  =', 


SXY(L) 


CONTINUE 


IF  (SXY(L)  .GE.  0.0)  THEN 

LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE(8,*)  'ERROR:  SXY  >=  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 

C NOW  CALCULATE  THE  M FOR  REGION  L 

MM(L)  = - SXY(L)  / SX2(L) 

IF  (lOUT  .EQ.  10)  WR1TE(8,*)  'SX2(L)  =' , SX2(L),  ' SXY(L)  =', 

& SXY(L),  ' MM(L)  =',  MM(L) 

100  CONTINUE 

RETURN 

END 


C ****  *^  ***  ******  Ikr  *************  ttntr  ★ * 


#****«^**i(^*«^*1^**  *********************** 
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SUBROUTINE  TRNSFM  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  TRANSFORM 
THE  S/N  DATA  INTO  THE  VARIABLE  2 = Ln(X) 

PROGRAMMER : L • NEWL IN 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8 , V8.1,  V8.2,  V8.3,  V8 . 4 , V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  2Z) 

INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

OUTPUTS:  NP,  ZZ 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  I,  lOUT,  K,  L,  LL,  NP,  NPTS ( MAXREG ) , NUMREG 

REAL  MM(0;MAXREG)  , MML,  NBND  ( 0 : MAXREG ) , NF(MAXDAT,  MAXREG), 

& STR(MAXDAT,  MAXREG),  ZZ(MAXDAT) 


LIST  OF  VARIABLES 


I 

lOUT 

K 

L 

LL 

MAXDAT 

MAXREG 


MM(  ) 


MML 
NBND( ) 


NF() 

C 

C NP 
C NPTS  ( ) 
C 

C NUMREG 
C STR<  ) 

C 

C ZZ(  ) 

c 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  EACH  REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 
EQUAL  TO  MM(L)  FOR  A SET  OF  CALCULATIONS 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S-N  DATA  SET  BROKEN  INTO  REGIONS  (PS I OR  %) 

1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 
NP  = 0 

DO  50  I = 1,  MAXDAT 
ZZ(I)  = 0.0 
50  CONTINUE 


C BEGIN  CALCULATIONS 

DO  100  L = 1,  NUMREG 
MML  = MM(L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  L,  ' MM  MM(L),  ' MML 
& MML,  ' NPTS  =',  NPTS(L) 

DO  200  K = 1,  NPTS(L) 

NP  = NP  + 1 

ZZ(NP)  = ALOG(STR(K,L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'K  =' , K,  ' NP  =' , NP,  ' NF 
& NF(K,L),  ' STR  =',  STR(K,L),  ' ZZ  =' , ZZ (NP) 

DO  300  LL  = 2,  L 
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ZZ(NP)  = ZZ(NP) 


ZZ(NP)  + ALOG(NBND(LL-l) ) 

* ((1.0  / MM(LL-l))  - (1.0  / MM(LL))) 

.EQ.  10)  WRITE(8,*) 'LL  LL,  ' NSn6(LL-1) 


300 

200  CONTINUE 
100  CONTINUE 


IF  (lOUT 

NBND(LL-l),  ' MM(LL-l')  , MM(LL-l)  , 
MM(LL) , ' Z2  =' , ZZ(NP) 

CONTINUE 


MM(LL) 


RETURN 

END 


SUBROUTINE  SMNVAR  CALCULATES  THE  Sample  MeaN  and  VARiance  OF 
Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2,  Ml,  Ml .1,  MS,  MS.l,  V8.2, 

V8.3,  V8.4,  V8,5 

MATGRM  V3.3,  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4 . 5 

SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2 ) 

INPUTS:  NP,  ZZ 

OUTPUTS : MEANZ , SZ  2 

IMPLICIT  NONE 

INTEGER  MAXDAT 

PARAMETER  (MAXDAT  = 50) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NP 

REAL  MEANZ,  SZ2,  ZZ (MAXDAT) 


LIST  OF  VARIABLES. 


I 

lOUT 

MAXDAT 

MEANZ 

NP 

SZ2 

2Z() 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

MEANZ  =0.0 
SZ2  = 0.0 


C CALCULATE  THE  MEAN  OF  ZZ(),  MEANZ 


DO  100  I = 1,  NP 

MEANZ  = MEANZ  + ZZ(I) 

IF  (lOUT  .EQ.  10)  WRITE(8, 
& ' ZZ  , ZZ(I) , ' MEANZ 

100  CONTINUE 


*)'NP  =',  NP, 
=' , MEANZ 


I 


MEANZ  = MEANZ  / FLOAT(NP) 

IF  (lOUT  .EQ.  10)  WRITE(6,*)'  MEANZ  =' , MEANZ 


1/ 
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C CALCULATE  THE  VARIANCE  OF  ZZ  ( ) , SZ2 

DO  200  I = 1,  NP 

SZ2  = SZ2  + (ZZ(I)  - MEANZ)  **  2 

IF  (lOUT  .EQ.  lO)  WRITE(8,*)'I  ='  I,  ' SZ2  ='  SZ2 
200  CONTINUE 

SZ2  = SZ2  / FLOAT (NP  - ll 

IF  (lOUT  .EQ.  10)  WRITE(6,*)'  SZ2  =',  SZ2 

RETURN 

END 


C**************  ****************  *********,i,***********^^j^****^*j^*^*^^*^^^^*^j^ 


SUBROUTINE  KBETA  CALCULATES  k AND  BETAo  FROH  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3 

V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

INPUTS:  MEANZ,  SZ2 

OUTPUTS;  K,  BZERO 


IMPLICIT  NONE 


REAL  PI 


PARAMETER  (PI  = 3.1415926536) 
COMMON  lOUT 
INTEGER  lOUT 

REAL  BZERO,  K,  MEANZ,  SZ , SZ2 


LIST  OF  VARIABLES 


BZERO 

lOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  **  0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z = F(STR,  NF,  NBND,  MM) 


C PERFORM  CALCULATIONS 


SZ  = SZ2  **  0.5 

BZERO  = PI  / (SZ  * (6.0  **  0.5)) 
K = MEANZ 


C DATA  DUMP  STATEMENTS 

IF  (lOJT  .EQ.  10)  THEN 

WRITE(8,*)  'SZ2  =',  SZ2,  ' SZ  =' , SZ 
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WRITE (8,^)  'MEANZ  MEANZ , ' K 

ENDIF 


K,  ' BZERO  BZERO 


RETURN 

END 


************* 


C 

c 

c 

c 

c 

c 


SUBROUTINE  FINDK  CALCUIATES  THE  VALUE  OF  K,  WHERE  A = K ♦♦  M FOR 
EACH  REGION 

PROGRAMMER:  L.  NEWLIN 

DATE:  7JUN88 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8 . 5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4 . 5 


C 

C 


SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 


INPUTS : 
OUTPUTS : 


BZERO,  K,  MM,  NBND,  NUMREG 
BIGK 


C IMPLICIT  NONE 


INTEGER  MAXREG 


REAL  GAMMA 


PARAMETER  (GAMMA  = 0.57721566490,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG 


REAL 


BIGK(0:MAXREG)  , BZERO,  K,  MM ( 0 : MAXREG ) , NBND  ( 0 : MAXREG ) 


LIST  OF  VARIABLES 


BIGK( ) 

BZERO 

GAMMA 

lOUT 

K 

L 

MAXREG 
MM(  ) 
NBND ( ) 

NUMREG 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
EULER'S  CONSTANT 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k - PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 
DATA  BASE 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST  ^ 

NUMBER  OF  REGIONS  OF  INTEREST 


C INITIALIZE  VARIABLES 

DO  50  L = 0,  MAXREG 
BIGK(L)  = 0.0 
50  CONTINUE 


C CALCULATE  K FOR  REGION  ONE 


C 


c 


BIGK(l)  = (ALOG(2.0) 
WRITE (7,*)  'REGION:  1 

IF  (lOUT  .EQ.  10)  WRITE 
& ' GAMMA  =',  GAMMA,  ' 


(1.0  / BZERO)) 

, K =' , BIGK(l) 

(8,^) 'BZERO  BZERO, 
BIGK(l)  =',  BIGK(l) 


* EXP(K  + GAMMA  / BZERO) 
k =',  K, 


CALCULATE  K FOR  REMAINING  REGIONS 


DO  100  L = 2,  NUMREG 

BIGK(L)  = BIGK(L-l)  * NBND(L-l) 

**  ((1.0  / MM(L))  - (1.0  / MM(L-l))) 
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C WRITE (7,*)  'REGION  L,  ' K =' , BIGK(L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*) 'L  =' , L,  ' NBND(L-l)  =' 

& NBND(L-l),  ' MM(L)  =' , MM(L) , ' MM(L-l)  =',  MM(L-l), 

& ' BIGK(L)  =',  BIGK(L) 

100  CONTINUE 

RETURN 

END 
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SUBROUTINE  FINDSB  CALCULATES  THE  REGION  'TIE-POINTS'  — THE  STRESS 
VALUES  WHICH  CORRESPOND  'TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  Ms,  AND  THE  Ks  CALCULATED  FROM  THE  BETA  AND  k 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER;  L.  NEWLIN 
DATE:  22DEC88 

VERSION;  MATCHR  V8.2,  V8.3,  V8,4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

OUTPUTS : SBND 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  NUMREG,  ZROREG 

REAL  BIGK( 0: MAXREG) , MM ( 0 : MAXREG ) , NBND( 0 :MAXREG) , 

& SBND(0: MAXREG) 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M TOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  IN'TEREST 

SBND()  1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

ZROREG  ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITA'TE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


C INITIALIZE  SBND() 

DO  50  L = 0,  MAXREG 
SBND(L)  =0.0 
50  CONTINUE 

C CALCULATE  SBND(O)  IF  ZROREG  = 0 

IF  (ZROREG  .EQ.  0)  THEN 

SBND(O)  = BIGK(l)  * NBND(O)  **  (-1.0  / MM(1)) 
ENDIF 

C CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 
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DO  100  L = 1,  NUMREG 

IF  (NBND(L)  .GE.  l.OE+36)  THEN 
SBND(L)  =0.0 
ELSE 

SBND{L)  = BIGK(L)  * NBND(L)  **  (-1.0  / MM(L) ) 
ENDIF  ' ' ' 

100  CONTINUE 

RETURN 

END 


c**^******** ★★★★★★*★★★★*★**★★★★***★*★***★★★* ***★★★★★*★*♦♦***★★*★★★★*★***♦ 


C SUBROUTINE  KOMO  CALCULATES  Ko  AND  Mo  FOR  THE  ZERO  REGION  (NO  DATA 
C REGION  TO  THE  LEFT) . IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE  POINT 
C AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 

C PROGRAMMER  ; L.  NEWLIN 

C DATE : 1AUG9 1 

C VERSION:  MATCHR  V8.5  MATGRM  V4.5 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C y.S.  Governinent  Sponsorship  under  NASA  Contract  NAS7-918 
C IS  acknowledged. 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 
& FACTR,  NUMREG) 


C INPUTS : 

C OUTPUTS ; 


SZERO,  BIGK,  MM,  NBND,  TRSBND,  FACTR 
TRBIGK,  MM,  TRSBND 


C IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  = 3) 
COMMON  I OUT 


INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK(  0:MAXREG) , FACTR,  MM ( 0 : MAXREG ) , NBND ( 0 : MAXREG ) , 
1 SCLK,  SZERO,  TRBIGK ( 0 rMAXREG) , TRSBND ( 0 : MAXREG ) 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K M FOR 
EACH  REGION 

FACTR  SCALE  FACTOR  = PHI  * KRATIO  * Z 
lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS 

SCLK  ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 

SZERO  STRESS  TENSILE  TEST  POINT,  So 

TRBIGKO  1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < SO  FOR  EACH  TRIAL 

TRSBND ()  1-D  ARRAY  CONTAINING  STRESS  VALUES  CORRESPONDING  TO  THE 

LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND() 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK(O)  = SZERO 

IF  (TRSBND(O)  .GT.  SZERO)  THEN 
SCLK  = SZERO/TRSBND(0) 

DO  100  L = 0,  NUMREG 
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TRBIGK(L)  = BIGK(L)  ^ SCLK 
TRSBND(L)  = TRSBND(L)  ★ SCLK 
100  CONTINUE 

ELSE 

TRBIGK(O)  = SZERO/FACTR 

MM(0)  = MM(1)  * ((ALOG  (BIGK(l))  - ALOG  (TRSBND(O)) 

& + ALOG  (FACTR))  / (ALOG  (SZERO)  - ALOG  (TRSBND( 0 ) ) ) ) 

ENDIF 

IF  (lOUT  .EQ,  10)  THEN 

WRITE(8,*)  'SZERO  = SZERO,  ' BIGKo  = TRBIGK(0} 

WRITE (8,^)  'FACTOR  = FACTR,  ' BIGKl  = TRBIGK(l) 
WRITE(8,*)  'MMl  = MM(1),  ' MMo  = MM(0) 

ENDIF 


RETURN 

END 


★★★★t^***** ********** ************ 


SUBROUTINE  WORSTN  FINDS  THE  WORST  OF  N FOR  BOTH  THE  WEIBULL  AND 
LOGNORMAL  DISTRIBUTIONS 
PROGRAMMER : L . NEWLIN 

DATE;  14NOV90 

VERSION;  MATCHR  VB1.2,  VBl*3 
MATGRM  VBl,  VBl • 1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  WORSTN  (RAND,  NSYM,  BZERO,  MM,  EPSW,  EPSL) 

C INPUT:  RAND,  NSYM,  BZERO,  MM 

C OUTPUT:  EPSW,  EPSL 

C ROUTINE : RANDOM 

C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  lOUT,  MAXREG,  NSYM 
PARAMETER  (MAXREG  = 3) 

REAL  BZERO,  CO,  Cl,  C2 , Dl,  D2,  D3,  EPSW,  EPSL,  F, 

& MM(0;MAXREG) , P,  PO,  SIGMA,  T,  T2,  T3,  X 

DOUBLE  PRECISION  RAND 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LIST  OF  VARIBLES 

BZERO  WEIBULL  SHAPE  PARAMETER,  BETA 
CO,  Cl,  C2,  Dl,  D2,  D3 

COEFFICIENTS  OF  FUNCTION  FOR  LOGNORMAL  DISTRIBUTION  CALCULATIONS 
EPSL  LOGNORMAL(0,SIGMA**2)  WORST  OF  NSYM  RANDOM  VARIATE 
EPSW  WIEBULL( BZERO)  WORST  OF  NSYM  RANDOM  VARIATE 

F UNIFORM (0,1)  RANDOM  VARIATE,  VALUE  OF  CDF 

lOUT  OUTPUT  DUMP  CONTROLLER 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MM()  1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
NSYM  SYMMETRY  NUMBER 

PO  VALUE  OF  P USED  TO  CHECK/INSURE  P>.5 

P INTERMEDIATE  CALCULATION  VARIABLE  FOR  LOGNORMAL  DISTRIBUTICMJ 

CALCULATIONS 

SIGMA  STANDARD  DEVIATION  OF  THE  LOGNORMAL  DISTRIBUTION 
T INTERMEDIATE  CALCULATION  VARIABLE  FOR  LOGNORMAL  DISTRIBUTION 

CALCULATIONS 
T2  EQUAL  TO  T**2 
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C T3 
C X 


EQUAL  TO  T»*3 

NORMAL ( 0, SIGMA* *2 ) WORST  OF  NSYM  RANDOM  VARIATE 


CO  = 2.515517 
Cl  = 0.802853 
C2  = 0.010328 
D1  = 1.432788 
D2  = 0.189269 
D3  = 0.001308 


SIGMA  = 1.282550  * MM(1)  / BZERO 
CALL  RANDOM  (F,  RAND) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE (8,*)  'BZERO  = BZERO,  ' SIGMA  = SIGMA 
WRITE(8,»)  'F  = ',  F,  ' MM  = ',  MM(1) 


EPSW  = EXP  ((LOG  (-  LOG(1.0  - F)  / NSYM) 

& - LOG  (LOG  (2.0)))  * MM(1)  / BZERO) 

IF  ( lOUT  . EQ . 10)  WRITE ( 8 , * ) ' EPSW  = ' , EPSW 

PO  = (1.0  - F)  **  (1.0  / FLOAT  (NSYM)) 

IF  (PO  .LE.  0.5)  THEN 
P = PO 

T = SQRT  (LOG  (1.0  / P **  2)) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'P  = ' , P,  ' T = ' T 
T2  = T * T 
T3  = T * T2 

X = T - ( (CO  + Cl  * T + C2  * T2) 

& /(1.0+D1*T+D2*T2+D3*  T3) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'X  = X 
ELSE  ' 

P = 1.0  - PO 

T = SQRT  (LOG  (1.0  / P **  2)) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'P  = '.  P,  ' T = '.  T 
T2  = T * T 
T3  = T * T2 

X = - (T  - ((ICO  + Cl  * T + C2  * T2) 

& / (1.0  + D1  * T + D2  * T2  + D3  * T3))) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'X  = ',  X 
ENDIF 

EPSL  = EXP  (SIGMA  * X) 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'BZERO  = ',  BZERO, 
'F  = ' , F,  ' EPSW 
'P  = ' , P,  ' T = ' 
'T2  = ',  T2,  ' T3 
'X  = ' , X,  ' EPSL 


SIGMA  = 
' , EPSW 
T 

',  T3 
' , EPSL 


SIGMA 


RETURN 

END 


c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  G'TLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR  STRESS 
BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acknowledged. 
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REAL  FUNCTION  GTLIFE  (S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ , SEND, 

& ZROREG,  NUMREG,  SZERO) 

C INPUTS:  S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SEND,  ZROREG,  NUMREG,  SZERO 

C OUTPUTS : GTLIFE 

C IMPLICIT  NONE 

INTEGER  lOUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

REAL  GETLIF,  KRATIO,  LNA ( 0 : MAXREG ) , LNZ,  LPHIM(  0 sMAXREG)  , 

& MM(0:MAXREG),  S,  SEND ( 0 : MAXREG ) , SZERO,  TEMP 


LIST  OF  VARIABLES 


GETLIF 


lOUT 

KRATIO 

L 

LNA( ) 
LNZ 

LPHIM( ) 


MAXREG 
MM(  ) 
NUMteG 
S 


SEND  ( ) 


SZERO 

TEMP 

ZROREG 


VALUE  TO  BE  ASSIGNED  TO  GTLIFE  - CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 

OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K^/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  Ln(A)  = M Ln  K FOR  EACH  REGION 

NORMAL (0,P VAR)  GENERATED  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WEIBULL(BETAo,  ETAo)  GENERATED  RANDOM  VARIATE 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NUMBER  OF  REGIONS  OF  INTEREST 

VALUE  OF  STRESS  (PSI)  FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 
FAILURE)  IS  REQUIRED 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND( ) 

STRESS  TENSILE  POINT,  SO 

TEMPORARY  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 
FLOWS 

ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


GETLIF  = 0.0 

C CALCULATE  CYCLES  TO  FAILURE 

IF  ((S  .GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  = 1.0 
ELSE 

DO  100  L = ZROREG,  NUMREG 
IF  (S  ,GT.  SBND(L))  THEN 

TEMP  = LNA(L)  + LPHIM(L)  + MM(L)  * ( - ALOG(S) 
& + ALOG  (KRATIO)  + LNZ) 

IF  (TEMP  .GT.  86.0)  THEN 
TEMP  =86.0 
ENDIF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 

RETURN 

END 


C**  Hr  ★★  It  Hr  ★****★★★  Hr  * 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

C 


SUBROUTINE  'SORTM'  SORTS  THE  ARRAY,  ALLM( ) , FROM  LOWEST  TO  HIGHEST 
M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB88 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8,2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4 . 5 

Copyright  (C)  1990,  California  Institute  of  Technology, 
y.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
Ls  acknowledged. 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS : ALLM 

C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  I,  INC,  lOUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 

PARAMETER  (MAXMM  = 20001,  MAXREG  = 3) 

LOGICAL  INORDR 

REAL 

C 
C 

C ALLM(  ) 


INORDR 

lOUT 

L 

MAXMM 

MAXREG 

NUM 

NUMREG 

TEMP 


ALLM(MAXMM,  MAXREG),  TEMP 
LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 
SORT  INCREMENT  VARIABLE 

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLM( ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L = 1,  NUMREG 

5 INC  = NUM 
10  IF  (INC  .GT.  1)  THEN 
INC  = INC  / 2 
20  INORDR  = .TRUE. 

DO  300  1=1,  (NUM  - INC) 

IF  (ALLM(I,L)  .GT.  ALLM(I  + INC,  L) ) THEN 
TEMP  = ALLM(I,L) 

ALLM(I,L)  = ALLM(I  + INC,  L) 

ALLM (I  + INC,  L)  = TEMP 
INORDR  = , FALSE . 

ENDIF 

300  CONTINUE 

IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 

400  CONTINUE 


RETURN 

END 
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FUNCTION  RAINF3  CALCULATES  THE  TIME  (in  missions)  TO  FAILURE  FOR 
THE  GIVEN  STRAIN-TIME  HISTORY 

PROGRAMMER:  L.  SHIRAISHI,  L.  NEWLIN 

DATE:  27MAR90 

VERSION:  !•!  (BLDLCF  V3.1,  V3.2,  V3.3,  V3.4  MATCHR  V8.4,  V8.5) 


Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 

***^tit*ifc-*  **★★★★*★★★**  ★★★Ke  *★*★★*  ★**★★*★★***★★★♦*★*♦* 

FUNCTION  RAINF3  (SEFF,  M,  TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM, 

& KRATIO,  LNZ,  SEND,  ZROREG,  NUMREG,  SZERO) 

INPUTS:  SEFF,  M,  TRUNC,  PERIOD,  WEXP,  MM,  LNA,  LPHIM,  KRATIO, 

LNZ,  SEND,  ZROREG,  NUMREG,  SZERO 
OUTPUTS:  RAINF3 

IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  MAXREG,  MAXM 

PARAMETER  (MAXREG  = 3,  MAXM  = 50) 

INTEGER  I,  INDEX(MAXM),  lOUT,  J,  UMAX,  K,  M,  N,  NEWTOT,  NUMREG, 

& ZROREG 

REAL  CHKFT,  E(MAXM),  GTLIFE,  INVLIF(MAXM) , KRATIO, 

& LIFE(MAXM),  LNA(0:MAXREG) , LNZ,  LPHIM( 0 :MAXREG) , 

& MM(0:MAXREG) , PERIOD,  RAINF3,  S(MAXM),  SEND ( 0 :MAXREG) , 

& SEFF(MAXM),  SEFFM(2,  MAXM),  SEFMAX,  SP(MAXM), 

& SRANGE(MAXM) , SUMDAM,  SZERO,  TESTl(MAXM),  TEST2(MAXM), 

& TRUNC , WEXP 


LIST  OF  VARIABLES 

RAINF3  TIME  TO  FAILURE  FOR  THE  GIVEN  TIME  HISTORY 

input  variables: 


SEFF(M) 

M 

TRUNC 

PERIOD 

WEXP 


EFFECTIVE  STRAINS  BEFORE  FILTERING/RAINFLOW 
TOTAL  NUMBER  OF  STRAIN  DATA  POINTS  PER  PERIOD 
VALUE  USED  TO  FILTER  OUT  NOISE 
TIME  IN  SECONDS  FOR  ONE  PERIOD 
WALKER  EXPONENT 


intermediate  variables: 


MAXM 

SEFMAX 
JMAX 
I,J,K 
SP(M+1) 
INDEX (MAXM) 

S ( NEWTOT ) 
NEWTOT 

E() 

N 

SEFFM(2,N) 


SRANGE(N) 


MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRAIN-TIME  HISTORY 
ARRAYS 

LARGEST  EFFECTIVE  STRAIN 

INDEX  (LOCATION)  OF  SEFMAX  IN  SEFF() 

COUNTERS  FOR  VARIOUS  DO  LOOPS 

RESEQUENCED  EFFECTIVE  STRAINS;  # OF  PTS  = M+1 
TESTl(MAXM),  TEST2(MAXM) 

INTERMEDIATE  CALCULATION  ARRAYS  USED  DURING  FILTERING 
FILTERED  EFFECTIVE  STRAINS 

TOTAL  NUMBER  OF  EFFECTIVE  STRAIN  VALUES  AFTER  FILTERING 
HOLDING  AFIRAY  USED  TO  FIND  CYCLES  DURING  RAINFLOW  ANALYSIS 
NUMBER  OF  CYCLES  FOUND  DURING  RAINFLOW  ANALYSIS 
EFFECTIVE  STRAINS  AFTER  RESEQUENCING/FILTERING/RAINFIiOW 
SEFFM(1,I)  = sigma  max,e££,i 
SEFFM(2,I)  = sigma  min,e££,i 
SRANGE(I)  = EQUIVALENT  STRAIN  RANGE  FOR  CYCLE  I 
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C GTLIFE 
C LIFE(N) 

C INVLIF(N) 
C SUMDAM 
C CHKFT 
C 

C I OUT 
C KRATIO 
C LNA( ) 

C LNZ 
C LPHIMO 
C 

C MAXREG 
C MM(  ) 

C NUMREG 
C SEND  ( ) 

C 

C 

C 

C SZERO 
C ZROREG 
C 

c 


REAL  FUNCTION  THAT  CALCULATES  FATIGUE  LIFE  FOR  A GIVEN  STRAIN 
LIFE(I)  = CALCULATED  LIFE  FOR  STRAIN  LEVEL  SRANGE(I) 

INVLIF(I)  = 1/LIFE(I);  DAMAGE  FRACTION 

SUM  OF  ALL  THE  DAMAGE  FRACTIONS 

DUMMY  VARIABLE  USED  TO  PRINT  OUT  RAINF3  RESULT 

OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

1-D  ARRAY  CONTAINING  VALUES  OF  Ln(A)  = M Ln  K FOR  EACH  REGION 

NORMAL ( 0,PVAR)  GENERATED  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WEIBULL(BETAO,  ETAO)  GENERATED  RANDOM  VARIATE 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES  {%,  R = - 1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND()  CORRECTED  BY  PHI,  KRATIO, 

AND  LNZ 

STRAIN  TENSILE  POINT,  So  (%) 

Zero  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C dump  input  data 

if  (iout.eq.20)  then 

write(8,*)'  rainf3  inputs' 

write(8, *) 'm  ; ' ,m,  ' period: period 

write( 8, *) 'wexp  wexp 

write( 8, *) 'numreg  : ' ,numreg, 'zroreg  :',zroreg 
write(8, *) 'szero  : ' ,szero, 'kratio  : ' ,kratio, ^Inz  : ' ,lnz 
write (8 
write ( 8 
writer  8 
endif 

C INITIALIZE  ARRAYS 

DO  50  I = 1,  MAXM 
SP(I)  = 0.0 
S(I)  = 0.0 
E(I)  = 0.0 
SEFFM(1,I)  =0.0 
SEFFM(2,I)  =0.0 
SRANGE(I)  =0.0 
LIFE(I)  =0.0 
INVLIF(I)  =0.0 
INDEX(I)  = 0 
TESTl(I)  =0.0 
TEST2(I)  =0.0 
50  CONTINUE 


) Ina  ( i ) , mm  ( i ) , j. 

) (Ina(i),  inm(i),  Iphim(i), 


Iphim(i),  sbnd(i)' 

sbnd ( i ) , i=zroreg , numreg ) 


C***.**************,*  BEGIN  RESEQUENCE  *************.********* 
C RESEQUENCE  effective  strains  (needed  for  rainflow  analysis); 

C largest  effective  strain  is  placed  at  beginning  auid  end  of  SP(M+1) 

C find  SEFMAX,  the  largest  sigma, eff,  and  JMAX,  its  location  within  SEFF(M) 

SEFMAX  = -l.OE+20  ' 

DO  200  1=1, M 

IF  ( SEFF(I)  .GT.  SEFMAX  ) THEN 
SEFMAX  = SEFF(I) 

JMAX  = I 
ENDIF 
200  CONTINUE 

C assign  all  points  from  JMAX  out,  to  the  beginning  of  SP( ) 

DO  210  1=1,  M-JMAX+1 
J = JMAX-1  + I 
SP(I)  = SEFF(J) 

210  CONTINUE 

C assign  points  before  JMAX  to  the  end  of  SP() 

J = 0 
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DO  220  I = M-JMAX+2,  M 
J = J + 1 
SP<I)  = SEFF(J) 

220  CONTINUE 

SP<M+1)  = SEFF(JMAX) 
if  (iout.eq.20)  then 

write ( 8 , * ) ' sefmax : ' , sefmax, ' jmax : ' , jmax 
write(  8,  *)  'sp(m+l)  : ' , (sp(i) , i=l,nt+l) 
endif 


END  RESQUENCE  ★★★★i*r*********************** 
BEGIN  FILTER  ***★*★**★★★★★♦★★♦★★★★★★**★★** 
C FILTER  the  resequenced  effective  strains,  leaving  only  peaks  and  valleys 
C (excursions  larger  than  TRUNC  are  deleted  during  rainflow  counting)  in 
C S(NEWTOT),  where  NEWTOT  is  the  new  number  of  points 
C 


DO  300  I = 2,  M 

TESTl(I)  = SP(I-l)  - SP(I) 

TEST2(I)  = TESTl(I)  * (SP(I)  - SP(I-l-l)) 

300  CONTINUE 

C if  (iout  .eq.  20)  then 

C do  305  i = 2,  m 

C write(8,*)  'testl  = testl(i),  ' test2  = test2(i) 

C 305  continue 
C endif 

K = 1 

INDEX(l)  = 1 
DO  310  I = 2.  M 

IF  ((TESTl(I)  .NE.  0)  .AND.  (TEST2(I)  .LT.  0))  THEN 
K = K + 1 
INDEX(K)  = I 
ENDIF 
310  CONTINUE 

NEWTOT  = K + 1 
INDEX (NEWTOT)  = M + 1 

DO  320  1=1,  NEWTOT 
K = INDEX(I) 

S(I)  = SP(K) 

320  CONTINUE 

if  (iout.eq.20)  then 

write ( 8 , * ) ' newtot : ' , newtot 
write(8, *) 's (newtot) : ' , (s(i) ,i=l, newtot) 
endif 


(;;★**★★*★★★★★*★*★**★★★★****  END  FILTER 

C**'trir1ritirk*iricicic*ir*itiriricir  BEGIN  RAINFLOW  **★★★★*★**★★★♦★★**★★★*♦*★★ 

C RAINFLOW  ANALYSIS  to  identify  cycles  within  effective  strain  data,  S(NEWTOT); 
C places  each  cycle's  max  and  min  values  into  SEFFM(2,N) 

C counters:  I counts  # of  cycles  found,  J counts  how  many  S()'s  counted, 

C K accumulates  unmatched  points 

1 = 0 
J = 0 
K = 0 

400  CONTINUE 
J = J+1 
K = K+1 

C check  J to  avoid  reading  beyond  end  of  filtered  strain  data 
IF  ( J .GT.  NEWTOT  ) GOTO  499 

C read  strain  point  into  a holding  array  to  be  checked  for  cycles 
E(K)  = S(J) 

410  IF  ( K .LT.  3 ) GOTO  400 

IF  ( ABS(  E(K)  - E(K-l)  ) .LT.  ABS(  E(K-l)  - E(K-2)  J ) GOTO  400 
C if  not,  then  a cycle  has  been  found,  but  we  need  to  cneck  for  truncation 
IF  (ABS  (E(K-l)  - E(K-2))  .GT.  TRUNC)  THEN 
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c 


c 


c 


cycle  is  large  enough  to  save 
1 = 1+1 

SEFFM(1,I)  = AMAX1(  E(K-l),  E(K-2)  ) 

SEFFM{2,I)  = AMIN1(  E(K-l),  E(K-2)  ) 

^ ENDIF 

discard  points  K-1  and  K-2,  and  decrement  the  counter  of  unmatched  points 
E(K-2)  = E(K)  ^ 

K = K-2 

return  for  more  counting 
GOTO  410 


499  CONTINUE 

C N equals  the  final  number  of  cycles  found 
N = I 

if  (iout.eq.20)  then 
write ( 8 , ★ ) ' N : ' , n 
write(8,*) 'seffm(2,n) : ' 
do  12  i=l#n 

write(8,*)  seffm(l,i),  seffm(2,i) 

12  continue 

endif 

IF  (N  .EQ.  0)  THEN 

C truncation  filter  value  too  Icurge  — no  cycles  left 

SUMDAM  = l.OE-36 
GOTO  710 
ENDIF 


C**^**^*******^*******  END  RAINFLOW 


C calculate  equivalent  strain  range 


500 


DO  500  1=1, N 

SRANGE(I)  = (SEFFM(1,I)  - SEFFM(2,I)) 

& * ( {SEFFM(l,IJi  - SEFFM(2,I))  / (2.0  * SEFFM(1,I))) 

& **  (WEXP  -1.6)  \ 

CONTINUE 
if  (iout.eq.20) 
if  (iout.eq.25) 

& exp(lphim(l) 


write(8,*) 'srange(n)  : (srange(i) ,i=l,n) 
write(8,^)  (srange(x),i=l,n),  ' 

/mm ( 1 ) ) 


c 

c 


calculate  lives  and  damage  fractions:  LIFE(N)  and  INVLIF(N) 


600 

650 

14 


DO  600  1=1, N 

LIFE(I)  = GTLIFE  (SRANGE(I),  MM,  LNA,  LPHIM,  KRATIO,  LN2, 

& SEND,  ZROREG,  NUMREG,  SZERO) 

CONTINUE  ' 

DO  650  1=1, N 

INVLIF(I)  = 1.0  / LIFE(I) 

CONTINUE 

if  f iout.eq.20)  then 
do  14  i=l,n 

write(8, *)  'life(n) : ' ,life(i) , ' invlif (n) : ' ,invlif (i) 

continue  ' 

endif 


C 

C 


Miner's  Rule  — sum  the  damage  fractions 

SUMDAM  =0.0 
DO  700  1=1, N 

SUMDAM  = SUMDAM  + INVLIF(I) 

700  CONTINUE 
710  CONTINUE 

if  (iout.eq.20)  write( 8 , * ) ' sumdam: ' , sumdam 


C calculate  fatigue  life  (time  to  failure) 
RAINF3  = PERIOD  / SUMDAM 


if  (iout.eq.l5)  then 
chkf t=per iod/ sumdam 


7-253 


write(8,*)'  rainf3  life^chkft 
write ( 8, *) 
endif 


RETURN 

END 
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Section  7.3 

High  Cycle  Fatigue  Failure  Program  BLDHCF 

The  program  tree  structures,  list  of  subprograms,  descriptions  of  the  key  vari- 
ables, and  the  FORTRAN  source  listing  for  the  high  cycle  fatigue  analysis  code 
BLDHCF  are  given  here.  The  pertinent  HCF  methodology  is  given  in  Section  4. 
The  overall  description  of  the  program  and  the  flowcharts  are  given  in  Section  5.3. 

7.3.1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  BLDHCF,  using  Uniform  variation  on  the  materials 
shape  parameter  m,  is  given  in  Figure  7.3-1,  while  the  tree  structure  for  the  trun- 
cated Normal  case  is  given  in  Figure  7.3-2.  In  both  trees,  those  subprograms  not 
“shadow-boxed”  are  part  of  the  materials  characterization  model.  The  program, 
subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters. 

7.3.2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7.3-1.  The  section 
numbers  where  the  subprograms  are  described  by  means  of  flowcharts  are  given 
next  to  the  names. 
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CONCAV 


MEDIAN 


Figure  7.3-1  T ree  Structure  for  Program  BLDHCF  for  the 

Uniform  Variation  in  Materials  Shape  Parameter  m 
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Figure  7.3-2  T ree  Structure  for  Program  BLDHCF  for  the 

Truncated  Normal  Variation  in  Materials  Shape 
Parameter  m 
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Table  7.3-1  List  of  Subprograms  For  Program  BLDHCF 
(Footnotes  are  at  the  end  of  the  table) 


NAME 

SECTION 

PURPOSE 

addreg’ 

4.1. 3.9* 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case. 

addrgn’ 

4.1.3.15* 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Normal  distribution  case. 

BLDHCF 

5.3.2.1 

The  main  routine  that  controls  the  logical  flow  of  the  high  cycle 
fatigue  turbine  blade  program. 

BLDHLF 

5.3.24 

Performs  the  calculations  of  the  driver  transformation  and  the 
fatigue  life. 

CONCAV^ 

4.1.3.10* 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be  consis- 
tent with  concavity  constraints. 

CONVRT® 

4.1. 3.3* 

Transforms  stress  data  to  equivalent  zero-mean  stresses  with  stress 
ratio  of  -1 .0. 

DRVRIN 

5.3.2.2 

Reads  the  driver  distributions  and  other  structural  and  geometric 
parameters  from  BLDHCD  and  echoes  the  data  to  BLDHCO. 

EXPCTD^ 

4.1.3.12* 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  ceilculations. 

FINDK 

4. 1.5.6* 

Calculates  the  value  of  the  location  parameter  K (where  A = K'”) 
for  each  life  region  by  using  Equations  2-37  and  2-41  of  [1], 

FINDM® 

4.1.5.1* 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
(to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

FINDMC 

4.1. 3.5* 

Calculates  the  m range  implied  by  the  constraint  on  the  coefficient 
of  variation  of  fatigue  strength,  C,  for  each  life  region,  by  using 
Equations  2-28  through  2-32  of  [1]. 

FINDMN® 

4.1. 5.2* 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the  ap- 
propriate truncated  Normal  distribution  on  m. 

FINDSB 

4. 1.5.7* 

Calculates  the  life  region  “tie-points”  or  stress  values  which  cor- 
respond to  the  “life  boundaries,"  conditional  on  the  randomly 
selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set,  which  is  a function  and  k. 

FNDRNG® 

4.1. 3.8* 

Combines  the  95%  confidence  interval;  J^,  with  the  implicit  and  ex- 
plicit constraints  on  m.  to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 

GTLIFE 

4.1.8* 

Calculates  the  cycles  to  failure  for  a particular  stress,  based  upon 
the  materials  characterization  model  S/N  curve  of  Equation  2-48  of 
[1]. 
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Table  7.3-1  List  of  Subprograms  For  Program  BLDHCF  (Cont’d) 


NAME 

SECTION 

PURPOSE 

GTPVAR 

4.1.3.7* 

Calculates  a the  extent  of  departures  from  the  multiple  heat 
median  S/N  curve  warranted  by  the  information  available,  by  using 
Equation  2-49  of  [1]. 

INFAGG^ 

4.1.3* 

Controls  the  logical  flow  for  the  information  aggregation  portion  of 
the  materials  characterization  model. 

INIT 

4.1.3.1* 

Initializes  the  entries  of  the  arrays  used  in  the  information  aggrega- 
tion subroutine,  INFAGG,  to  zero. 

INSORT 

5.B 

Performs  an  insertion  sort  for  the  lowest  fifty  percent  of  the  lives  cal- 
culated. 

INTRVL 

4. 1.3.6* 

Calculates  the  95%  confidence  intervals  /„  for  C,  and  for  m,  for 
each  region  by  using  Equations  2-24  through  2-26  of  [1]. 

KBETA 

4. 1.5.5* 

Calculates  k and/S^  from  the  sample  mean  and  variance  of  Z,  where 
Z is  a function  of  stress,  life,  the  life  region  boundaries,  and  the  m’s 
by  using  Equation  2-42  of  [1]. 

KOMO® 

4.1.6* 

Calculates  and  for  the  zero  region,  the  no  data  region  to  the 

left  of  the  first  data  region.  Extends  the  S/N  curve  consistent  with 
the  tensile  point  at  S^. 

MEDIAN 

4.1.3.11* 

Calculates  the  median  values  of  m,  based  on  the  posterior 
credibility  ranges  of  m,  by  using  Equation  2-34  of  [1]. 

MUSIG® 

4.1.3.13* 

Calculates  the  posterior  Normal  distribution  parameters,  mean  m, 
and  standard  deviation  for  each  life  region  of  the  S/N  curve. 

normgn’o 

4.4.3* 

Generates  Normal(a,  a^)  random  variates. 

NORRNG® 

4.1.3.14* 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

rarest” 

4.1.5* 

Controls  the  logical  flow  for  the  parameter  estimation  model  portion 
of  the  materials  characterization  model. 

PRYRV’2 

7.6.6* 

Generates  the  Uniform(a,  b)  and  Uniform(c,  d)  pair  of  independent 
random  variates. 

RANDOM’2 

4.4.2* 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 

RCE 

4. 1.3.2* 

Reads  the  data  from  BLDHCD  and  RELATD;  calls  CONVRT  to  trans- 
form the  stress  data  to  a stress  ratio  of  -1 .0;  and  echoes  the  data  to 
BLDHCO  and  RELATO.  RCE  also  breaks  S/N  data  sets  into  regions 
as  specified  by  the  user. 

SELECT 

5.3.23 

Performs  the  driver  selection. 

SMNVAR 

4.1. 5.4* 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a func- 
tion of  stress,  life,  the  life  region  boundaries,  and  the  m's,  by  using 
Equation  2-42  of  [1]. 
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Table  7.3-1  List  of  Subprograms  For  Program  BLDHCF  (Cont’d) 


NAME  SECTION  PURPOSE 


SORTM’3  4.1.10* 
SW2SU2  4.1.3* 


TRMNAT  4.1.11* 
TRNSFM’^  4. 1.5.3* 

WEIBGN  4.4.6* 


Sorts  the  m values  in  increasing  order  for  each  life  region  for  the 
truncated  Normal  distribution  case. 

Calculates  the  residual  variances  from  the  / on  X and  X on  regres- 
sions for  each  life  region  where  Y = ln(E/7cyurance  cycles)  and 
X = ln(Stress)  by  using  Equations  2-20  and  2-21  of  [1];  to  be  used 
in  the  credibility  range  calculations. 

Performs  premature  program  termination  when  required. 

Performs  the  calculations  necessary  to  transform  the  specific 
material  S/N  data  into  the  variable  Z.  where  Z is  a function  of  stress, 
life,  the  life  region  boundaries,  and  the  m's. 

Generates  WeibullOS,  7j(fi))  random  variates. 


* See  [1). 

^ No  data  regions  to  the  right  are  discussed  in  [1],  Page  2-17. 

^ Concavity  constraints  are  discussed  in  [1],  Pages  2-13  through  2-14. 

^ The  stress  transformation  is  discussed  in  [1],  Page  2-7. 

^ The  median  S/N  curve  parameter  estimation  calculations  are  described  in  [1],  Pages  2-15 
through  2-18. 

® Selection  of  the  {nij}  parameters  is  discussed  in  [1],  Page  2-15. 

^ Combining  information  to  obtain  the  posterior  credibility  ranges  on  m is  discussed  in  [1], 
Page  2-13. 

^ The  information  aggregation  calculations  are  discussed  in  [1],  Pages  2-6  through  2-14. 

® Extension  of  the  S/N  curve  to  the  left  is  discussed  in  [1],  Page  2-17. 

^ Calculation  of  the  truncated  Normal  distribution  parameters  is  discussed  in  [1],  Page  2-14. 

The  Normal  distribution  is  discussed  in  [1],  Page  2-23, 

^ ^ The  parameter  estimation  calculations  are  discussed  in  [1],  Pages  2-15  through  2-18. 

The  Uniform  distribution  is  discussed  in  [1],  Page  2-23. 

The  need  for  saving /7rs  is  discussed  in  [IJ,  Page  2-15. 

The  S/N  data  transformation  is  discussed  in  [1],  Page  2-16. 
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7.3.3  Description  of  Variables 

^ ATD-HPOTP  first  and  third  stage  turbine  blade  HCF 

MD  9'ven  in  Table  7.3-2.  The  variable  names  are  indicated  by  BOLD 

UPPERCASE  letters:  the  variable  “type”  can  be  interpreted  as  follows:  INT  is  a 
standard  integer  variable;  RE  is  a standard  real  variable;  and  DRE  is  a double 
precision  variable.  The  various  array  dimensions  are  defined  by  using  the  follow- 
ing parameters:  MAXBLF.  MAXDAT,  MAXLIF,  MAXMM.  and  MAXREG. 


Table  7.3-2  List  of  Variables  For  Program  BLDHCF 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

type  DESCRIPTION 

AO.  A1 

RE 

The  coefficients  for  the  flow  rate  m response  sur- 
face function  (performance  balance  charac- 
terization). 

ALLM(MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 
parameters  (m’s)  for  each  life  region  which  are  to 
be  used  in  the  truncated  Normal  median  S/N  curve 
calculation.' 

BO.  B1 

RE 

The  coefficients  for  the  enthalpy  change  Ah 
response  surface  function  (performance  balance 
characterization). 

BIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K.  where  A = K"*,  given  in 
Equation  2-12  of  [1]. 

BIGK1 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BLDHLF 

RE 

Real  function  that  performs  the  calculations  of  the 
driver  transformation  and  fatigue  life,  arxJ  returns 
the  fatigue  life  (sec). 

BLFPER(MAXBLF) 

RE 

1-D  array  containing  user  specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-life  is  the  value  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.1  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS(MAXBLF) 

INT 

1 -D  array  containing  the  indices  for  the  array  vari- 
able UFE( ) corresponding  to  the  user-requested 
simulated  failure  distribution  B-lives  contained  in 

variable  BLFPER( ). 
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Table  7.3-2 


List  of  Variables  For  Program  BLDHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
that  characterizes  the  intrinsic  variation  of  the 
S/N  data  set,  by  using  Equation  2-1 1 of  [1  ]. 

C 

RE 

C (in.)  in  Equation  4-1 , the  randomly  selected  dis- 
tance from  the  turbine  blade  neutral  axis. 

CO.  CIO,  C11,  C20,  C21 

RE 

The  coefficients  for  the  damper  effectiveness 
response  surface. 

CM 

RE 

Mean,  fi,  of  Normally  distributed  C,  the  distance 
from  the  turbine  blade  neutral  axis  (in.),  given  in 
Equation  4-1. 

CS 

RE 

Standard  deviation,  a,  of  Normally  distributed  C, 
the  distance  from  the  turbine  blade  neutral  axis 
(in.),  given  in  Equation  4-1. 

DELTAH 

RE 

A/7  (Btu/lbm)  in  Equation  4-1 , the  enthalpy  change 
across  the  turbine  stage. 

DUM 

RE 

Dummy  variable. 

FACTR 

RE 

Equal  to  FACTOR  = PHI  * KRATIO  * Z.  Used  by 
the  materials  model. 

FIFTY 

RE 

Variable  used  to  access  the  fifty-percent  point  in 
the  LIFE( ) array. 

FTU 

RE 

Material  ultimate  strength  (psi). 

FTY 

RE 

Material  yield  strength  (psi). 

GTLIFE 

RE 

Function  given  by  Equation  2-48  of  [1]  that  calcu- 
lates the  fatigue  cycles  to  failure  at  a given  stress. 

1 

INT 

Controls  inner  DO  loop. 

IMIN 

RE 

Imin  (in.^)  in  Equation  4-1 , the  minimum  moment  of 
inertia  of  the  turbine  blade  cross  section. 

lOUT 

INT 

Output  dump  controller. 

J 

INT 

Controls  DO  loop  for  each  B-life.^ 

K 

INT 

Controls  outer  DO  loop. 

KRATIO 

RE 

Ratio  of  MED  K*/MED  K in  Equation  2-48  of  [1  ]. 
KRATIO  is  constant  over  life  regions  for  the 
materials  model. 

L 

INT 

Controls  DO  loop  for  each  life  region  of  the  S/N 
curve. 
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Table  7.3-2 


List  of  Variables  For  Program  BLDHCF  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

LAMB 

RE 

Xq,  the  randomly  selected  turbopump  performance 
balance  model  accuracy  factor. 

LAMBA 

RE 

Uniform  distribution  lower  bourKi  of  Ag. 

LAMBB 

RE 

Uniform  distribution  upper  bound  of  Ag. 

LAMD 

RE 

Ag,  the  randomly  selected  damper  coefficient  of 
friction  model  accuracy  factor. 

LAMDA 

RE 

Uniform  distribution  lower  bound  of  Ag. 

LAMDB 

RE 

Uniform  distribution  upper  bound  of  Ag. 

LIFE 

RE 

L,  the  fatigue  life  in  seconds. 

LIFE(MAXLIF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  BLDHCF.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

LNA(0:MAXREG) 

RE 

1 -D  array  containing  values  of  ln(A)  = In(BIGK)  * 
MM  for  each  life  region  of  the  S/N  curve. 

LNZ 

RE 

ln(Z)  in  Equation  2-48  of  [1],  the  Normal(0,  PVAR) 
random  variate  for  the  materials  process  variation 
aspect  of  the  materials  model. 

LPHIM(0:MAXREG) 

RE 

1 -D  array  containing  values  of  ln(PHI)  * MM  for 
each  life  region  of  the  S/N  curve. 

M 

INT 

Controis  symmetry  DO  loop. 

MAXBLF 

INT 

Maximum  number  of  B-lives  to  be  obtained  from 
the  simulated  failure  distribution.  The  maximum 
number  of  B-iives  allowed  is  10.^ 

MAXDAT 

INT 

Maximum  number  of  points  per  data  set  per  region 
allowed  for  the  S/N  curve.  The  maximum  number 
of  data  points  per  set  allowed  is  50. 

MAXLIF 

INT 

Maximum  number  of  fatigue  lives  allowed  for  the 
simulated  failure  distribution.  The  maximum  num- 
ber of  fatigue  lives  to  be  saved  is  10,000. 

MAXMM 

INT 

Maximum  number  of  m's  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.  ^ The 
maximum  number  of  m's  is  20,000. 

MAXREG 

INT 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

MCOUNT 

INT 

Counts  number  of  m's  to  be  used  to  calculate  the 

median  S/N  curve  for  the  truncated  Normal  distribu- 
tion case.^ 


7-263 


Table  7.3-2 


List  of  Variables  For  Program  BLDHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

MD 

RE 

m^,  the  damper  mass  (Ibm). 

MOOT 

RE 

m (Ibm/sec)  in  Equation  4-1,  the  fluid  mass  flow 
rate. 

MEDM(MAXMM) 

RE 

1-D  array  containing  the  empirical  median  m for 
each  life  region  of  the  S/N  curve.^ 

MID 

INT 

Pointer  to  the  median  m values  in  array  SORTM( ) 
for  the  truncated  Normal  median  S/N  curve.  Value 
of  half  of  MCOUNT. 

MINPHI 

RE 

Value  of  min(PHI),  the  minimum  of  NSYM  draws  of 
the  materials  scatter  parameter 

MM(0:MAXREG) 

RE 

iVj  in  Equation  2-12  of  [1],  the  1-D  array  containing 
randomly  selected  values  of  the  materials  model 
shape  parameter  m for  each  life  region  of  the  S/N 
curve. 

MPROC 

INT 

Materials  PROCess  variation.  Controls  materials 
process  variation.  A value  of  0 indicates  no 
materials  process  variation,  while  a value  of  1 indi- 
cates that  materials  process  variation  should  be  in- 
cluded.'* 

MRW2 

RE 

rrtfj  ffj  oP-.  the  damper  normal  load  Obf). 

MU(MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal  distribu- 
tion mean^  of  the  materials  shape  parameter  m for 
each  life  region  of  the  truncated  Normal  S/N  curve. 

MW 

RE 

in  Equation  4-7,  the  randomly  selected  charac- 
teristic exponent  for  the  Walker  relation. 

MWA 

RE 

Uniform  distribution  lower  bound  of  m^. 

MWB 

RE 

Uniform  distribution  upper  bound  of  m^. 

NB 

INT 

in  Equation  4-1 , the  number  of  rotor  blades. 

NBLIFE 

INT 

Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution.^ 

NBND(0:MAXREG) 

RE 

N*j  in  Equation  2-35  of  [1],  the  1-D  array  con- 

taining upper  bounds  for  the  NUMREG  life  regions 
of  interest  for  the  specific  material  S/N  data  set. 

NEWUF 

RE 

Fatigue  life  value  (missions)  returned  from  call  to 
function  BLDHLF. 

NF 

RE 

Nf,  the  fatigue  life  in  cycles. 

7-264 


Table  7.3-2 


List  of  Variables  For  Program  BLDHCF  (Cont'd) 


VARIABLE  NAME  TYPE  DESCRIPTION 


NF(MAXDAT,  MAXREG) 

RE 

2-0  array  containing  values  from  the  array 
RAWNF( ) for  the  specific  material  S/N  data  set  par- 
titioned into  life  regions. 

NHYPER 

INT 

The  outer  loop  size. 

NLIFE 

INT 

The  inner  loop  size. 

NUFET 

INT 

Total  number  of  lives  calculated  by  program 
BLDHCF.  Value  of  NHYPER  * NUFE. 

NMED 

INT 

Controls  S/N  curve  median  calculation  for  the  trun- 
cated Normal  distribution  case.  A value  of  0 indi- 
cates that  the  user  does  not  desire  a median 
calculation  or  that  the  Uniform  distribution  case  is 
being  used;  while  a value  of  1 indicates  that  the 
user  desires  the  median  calculation  to  be  per- 
formed. 

NPTS(MAXREG) 

INT 

1-D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

NS 

INT 

Ng,  the  number  of  stator  blades. 

NSYM 

INT 

Symmetry  number,  usually  equal  to  the  multiplicity 
of  the  modeling  unit  in  the  component. 

NUMREG 

INT 

R in  Equation  2-1 1 of  [1],  the  number  of  life  regions 
of  interest  in  the  S/N  curve. 

PHI 

RE 

<P  in  Equation  2-1 1 of  [1],  the  material’s  intrinsic 
variation,  or  scatter,  given  by  a WelbullOSo,  Vo(fio)) 
random  variate. 

PSIG 

RE 

a in  Equation  2-48  of  [1],  the  value  of  SORT (PVAR). 

PVAR 

RE 

in  Equation  2-48  of  [1],  characterizes  the  extent 
of  departure  from  the  multiple  heat  median  S/N 
curve  warranted  by  the  available  information. 

R 

RE 

R in  Equation  4-6,  the  stress  ratio. 

RAND 

DRE 

Random  number  seed. 

RANGEM(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(1,L)  is  the  lower  bouixl  and 
RANGEM(2,L)  is  the  upper  bound  in  region 

RAVG 

RE 

''avg  (''’•)  Equation  4-1 , the  randomly  selected 
average  turbine  blade  radius  relative  to  the  shaft 
center. 
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Table  7.3-2 


List  of  Variables  For  Program  BLDHCF  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

RAVGM 

RE 

Mean,  n,  of  Normally  distributed  the  average 

turbine  blade  radius  relative  to  the  shaft  center  (in.). 

RAVGS 

RE 

Standard  deviation,  a,  of  Normally  distributed  Tg^, 
the  average  turbine  blade  radius  relative  to  the 
shaft  center  (in.). 

RD 

RE 

r^,  the  randomly  selected  damper  radius  (in.). 

RDM 

RE 

Mean,  fi,  of  Normally  distributed  r^,  the  damper 
radius  (in.). 

RDS 

RE 

Standard  deviation,  o,  of  Normally  distributed  r^, 
the  damper  radius  (in.). 

RPM 

RE 

<u  (rpm)  in  Equation  4-1 , the  randomiy  selected 
steady  state  rotor  speed. 

RPMM 

RE 

Mean,  n,  of  Normally  distributed  tu.  the  steady 
state  rotor  speed  (rpm). 

RPMS 

RE 

Standard  deviation,  a,  of  Normally  distributed  eo, 
the  steady  state  rotor  speed  (rpm). 

RROOT 

RE 

/>oof  Equation  4-1,  the  randomly  selected 

turbine  blade  root  radius  relative  to  the  shaft  center. 

RROOTM 

RE 

Mean,  //,  of  Normally  distributed  the  turbine 

blade  root  radius  reiative  to  the  shaft  center  (in.). 

RROOTS 

RE 

Standard  deviation,  a,  of  Normally  distributed 
the  turbine  blade  root  radius  relative  to  the  shaft 
center  (in.). 

SALT 

RE 

^ALT  in  Equation  4-3,  the  alternating  stress. 

SBND(0:MAXREG) 

RE 

1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  corresponding  to  the  “life 
boundary”  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SBRM 

RE 

agp  (psi)  in  Equation  4-1 , the  biade  root  mean 
stress. 

SDSUD 

RE 

o£)  / ojQ  (psi)  in  Equation  4-3,  the  ratio  of  the 
damped  blade  vibratory  stress  to  the  undamped 
blade  vibratory  stress. 

SEO 

RE 

(psi)  in  Equation  4-7,  the  equivaient  zero- 
mean  stress  amplitude. 
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Table  7.3-2  List  of  Variables  For  Program  BLDHCF  (Cont’d) 


VARIABLE  NAME 
SIG(MAXREG) 

SMAX 

SMEAN 

SMIN 

STR(MAXDAT,  MAXREG) 

SUD 

SZERO 

TRBIGK(0:MAXREG) 

TRSBND(0:MAXREG) 

VARY 

Z 

ZROREG 


TYPE  DESCRIPTION 

RE  1 -D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation^  of  the  materials  model 
shape  parameter  m for  each  life  region  of  the  trun- 
cated Normeil  S/N  curve. 

RE  omax  (P®')  Equation  4-4,  the  maximum  or  peak 
stress. 

RE  (psi)  in  Equation  4-2,  the  mean  stress. 

RE  (psi)  in  Equation  4-5,  the  minimum  or  trough 

stress. 

RE  2-D  array  containing  stress  points  with  stress  ratio 
= -1 .0,  for  the  specific  material  S/N  data  set  parti- 
tioned into  life  regions. 

RE  OfjQ  (psi)  in  Equation  4-3,  the  urxJamped  blade 
vibratory  stress. 

RE  Stress  tensile  test  point,  Sq  (psi).® 

RE  1 -D  array  containing  values  of  the  materials  model 

location  parameter  K consistent  with  the  tensile 
point  Sq.® 

RE  1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1 .0,  corresponding  to  the  “life 
boundary”  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw  con- 
sistent with  the  tensile  point  Sq.® 

INT  Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required;  a 
value  of  1 means  that  intrinsic  materials  variation 
only  is  desired;  a value  of  2 indicates  that  the  user 
desires  a Uniform  distribution  on  m;  while  a value 
of  3 indicates  that  a truncated  Normal  distribution 
is  desired. 

RE  Z in  Equation  2-48  of  [1  ] , the  randomly  selected 

process  variation  shift  factor  given  by  a Lognor- 
mal (0.  PVAR)  random  variate. 

INT  ZeRO  REGion,  the  variable  permits  the  inclusion  of 
the  tensile  point  Sq.  The  value  of  0 implies  a DO 
loop  from  zero  to  NUMREG,  while  a value  of  1 
causes  the  DO  loop  to  be  executed  from  one  to 
NUMREG.® 


7-267 
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The  need  for  saving m’s  is  discussed  in  [1],  Page  2-15. 

^ See  variable  BLFPER( ) for  a description  of  B-life. 

^ The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  in  [1],  Page  2-15. 

^ See  [1],  Section  2. 1.2.3,  for  a discussion  on  process  variation  in  materials. 

^ of  the  posterior  density  of  m is  discussed  in  [1],  Page  2-14. 

® The  posterior  credibility  ranges  ;r(m)  are  discussed  in  [1],  Page  2-13. 

^ of  the  posterior  density  of  m is  discussed  in  [1],  Page  2-14. 

® Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  in  [1],  Page  2-17. 
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7.3.4  Program  BLDHCF  Listing 


Routine 

Program  BLDHCF  Listing  Temporal  Order,  Uniform  Distribution 

Program  BLDHCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 


Page 

7-270 

7-271 


BLDHCF. 
DRVRIN  . 
SELECT 
BLDHLF 
INSORT . 
PRYRV  .. 
INFAGG 
TRMNAT 

INIT  

RCE 

CONVRT 
SW2SU2 
INTRVL ... 
FINDMC  . 
GTPVAR  . 
FNDRNG 
ADDREG 
CONCAV 
MEDIAN  . 
EXPCTD  . 
MUSIG  ... 
NORRNG 
ADDRGN 
RAREST  . 

FINDM 

RANDOM 
FINDMN  . 
NORMGN 
TRNSFM  . 
SMNVAR  . 

KBETA  

FINDK  

FINDSB  ... 
WEIBGN  . 

KOMO 

GTLIFE  .... 
SORTM  ... 


..  7-272 
.7-276 
,.7-280 
..  7-281 
. 7-283 
.7-284 
.7-285 
.7-290 
.7-290 
.7-292 
.7-298 
.7-300 
.7-302 
.7-305 
.7-307 
.7-308 
.7-312 
.7-313 
.7-314 
.7-316 
7-318 
7-319 
7-322 
7-323 
7-325 
7-327 
7-328 
7-329 
7-330 
7-331 
7-332 
7-333 
7-334 
7-336 
7-336 
7-337 
7-339 


BLDHCF  Version  1.1 
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Program  BLDHCF  Listing  Temporal  Order,  Uniform  Distribution 


Routine Page 


BLDHCF 7-272 

DRVRIN  7-278 

INFAGG 7-285 

INIT 7-290 

RCE  7-292 

CONVRT 7-298 

SW2SU2 7-300 

FINDMC  7-305 

INTRVL 7-301 

GTPVAR  7-307 

FNDRNG 7-308 

ADDREG  7-312 

CONCAV 7-313 

MEDIAN  7-314 

EXPCTD  7-316 

TRNSFM 7-330 

SMNVAR  7-331 

KBETA 7-332 

FINDK 7-333 

FINDSB  7-334 

KOMO  7-336 

PARES! 7-323 

FINDM 7-325 

RANDOM  7-327 

TRNSFM 7-330 

SMNVAR  7-331 

KBETA 7-332 

FINDK 7-333 

FINDSB  7-334 

NORMGN 7-329 

RANDOM  7-327 

SELECT 7-280 

NORMGN 7-329 

RANDOM 7-327 

PRYRV 7-284 

RANDOM  7-327 

WEIBGN 7-336 

RANDOM  7-327 

KOMO  7-336 

BLDHLF 7-281 

GTLIFE  7-337 

INSORT 7-283 
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Program  BLDHCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 


Routine  Page 

BLDHCF 7.272 

DRVRIN 7_278 

INFAGG  7.285 

'NIT 

7-291 

CONVRT 

SW2SU2  7-300 

FINDMC 

^^USIG  7-318 

GTPVAR 

NORRNG  7-3*19 

ADDRGN 7-322 

CONCAV 

RAREST  7-323 

FINDMN '.”'"*'*1”***^ 

NORMGN  7-329 

RANDOM 7-327 

TRNSFM  7-330 

SMNVAR 

7-332 

FINDK  7 000 

FINDSB 1.." 7.334 

NORMGN  7.329 

RANDOM ZZZZZZZZZZZZZZZZZI7-327 

SELECT  7-280 

NORMGN  7^329 

RANDOM .ZZZZZZZZZZZZZZZ.7-327 

PRYRV  7-284 

RANDOM 7 327 

WEIBGN  I"Z"I"i:ZIZZIZ.'7-336 

RANDOM 

I^OI^O 7-336 

BLDHLF 7.281 

GTLIFE 7.337 

INSORT ZZ~ZZZZZZZZZZZZ7-2B3 

SORTM  7-339 

expctd 

TRNSFM  7.330 

SMNVAR .ZZZZZZZZZZZZZZZZZ"".7-33^ 

KB  ETA 7-332 

^'NDK  7.333 

FINDSB 
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C*i^i^*iAr*i«r**##*iAr****«Mfr**********ifr*****ilr*****4r*ilr*«i«r*****ifr*4r*******#4r4rAr  «**♦*■★ 

C PROGRAM  BLDHCF  CONTROLS  THE  FLOW  OF  LOGIC  OF  THE  HIGH  CYCLE 
C FATIGUE  ANALYSIS  OF  THE  TURBINE  BLADE  FOIL  PROBLEM 
C PROGRAMMER:  L.  NEWLIN 

C DATE : 2 0APR92 

C VERSION:  1,1  (MATCHR  V8.5,  INSORT  V2 . 1 ) 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  contract  NAS7-918 
c is  acknowledged. 

C**  **********  *^***iAr*******i«n«r4r*******«*****1lf  **********  ******  ************* 


c 

c 

c 

c 

c 


PROGRAM  BLDHCF 

SUBPROGRAMS:  DRVRIN,  INFAGG,  RAREST,  NORMGN,  SELECT,  WEIBGN, 

TRMNAT,  BLDHLF.  INSORT,  SORTM,  EXPTCD 
FILES:  l:BLDHCD-OLD;  3 :BLDHCO-NEW;  5:REIATD-OLD;  6 :RElJVTO-NEW; 

7: DUMP-NEW;  8 ; lOUTPR-NEW;  9;LOWLIF-NEW; 

NOTE:  5 & 6 ARE  OPENED  IN  'INFAGG' 

C IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXDAT,  MAXLIF,  MAXMM,  MAXREG 

PARAMETER  (MAXBLF  = 10.  MAXDAT  = 50,  MAXLIF  = 10000- 
& MAXMM  = 20001,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  BLFPOS(MAXBLFJ  , I,  lOUT,  J,  K,  L,  M,  MCOUNT,  MID, 

& MPROC,  NB,  NBLIFE,  NHYPER,  NLIFE,  NLIFET,  NMED, 

i NPTS ( MAXREG ) , NS,  NSYM,  NUMRBG,  VARY,  ZROREG 

DOUBLE  PRECISION  RAND 

REAL  AO,  Al,  ALLM(MAXMM,  MAXREG),  BO,  Bl,  BIGK(0:MAXREG) , 

& BIGKl,  BLDHLF,  BLFPER/MAXBli’ ) , BZERO,  C,  CO,  CIO,  cil, 

t C20,  C21,  CM,  CS,  FACTR,  FIFTY,  FTU,  FTY,  IMIN,  KRATIO, 

& LAMB,  LAMBA,  LAMBB,  LAND,  LAMDA,  LAHDB,  LIFE (MAXLIF) , 

t LNA( U: MAXREG ) , LNZ,  LPHIM(0:MA3cteG) , MD,  MEDM(MAXRi») , 

& MINPHI,  MM(0:MAXREG) , )«J(MAXREG),  MW,  MWA,  MHB, 

& NBND(0:MAXREG),  NEWLIF,  OT(HAXDAT,  MAXREG),  PHI,  PSIG, 

& PVAR,  RANGEM(2,  MAXREG),  RAVG,  RAVOI,  RAVGS,  RD,  RDM, 

f>  RDS,  RPM,  RPMM,  RPMS,  RROOT,  RROOTM,  RROOTS, 

& SBND(0:MAXREG) , SIG(MAXREG),  STR(MAXDAT,  MAXREG),  SZERO, 

& 'rRBIGK(0:MAXraG) , TRSBND(0;MAXREG) , Z 

C **  SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN  (1, 
OPEN  (3, 
OPEN  (7, 
OPEN  (8, 
OPEN  (9, 


WRITERS,*) 
READ(1.*) 

WRITER 8,^ ) 
READ(1.*)  NLIFE 
WRITERS,*)  ' 
READ(1.*)  NHYPER 
WRITEre,*)  ' 
READTl.*)  NSYM 
WRITEffe,*)  ' 
READ(1.^)  VARY 
WRITE(8,^) 


FILE 

= 

'BLDHCD' , 

STATUS 

= 

FILE 

= 

'BLDHCO' , 

STATUS 

s 

FILE 

= 

'DUMP' , 

STATUS 

= 

FILE 

= 

'lOUTPR' , 

STATUS 

= 

FILE 

— 

'LOWLIF' , 

STATUS 

RAND 

t 

lOUT 

'OLD'  ) 
'NEW'  ) 
'NEW'  ) 
'NEW'  ) 
'NEW'  ) 


RANDOM  NUMBER  SEED  =',  RAND 
TOUT  (MATCHR  = 10,  BLDHCF  = 15)  =',  lOUT 
INNER  LOOP  SIZE  NLIFE 
OUTER  LOOP  SIZE  =', NHYPER 
SYMMETRY  NUMBER  =',  NSYM 


, , , TYPE  OF  S/N  VARIATION  DESIRED  ' 

WRITERS,*)  ' (O-NONE;  1-INTRINSIC;  2-UNIFORM;  3-NORMAL)  ='  VARY 
READ{1,^)  NMED 

NORMAL  MEDIAN  CURVE  (0  - NO,  1 - YES)  =',NMED 


\ ^ f f 1 

WRITE<8,*) 
READ(i,*)  MPROC 
WRITE ( 8 , * ) ' 

WRITE ( 8 , * ) ' 


MATERIALS  PROCESS  VARIATION  DESIRED' 

(0  - NO,  1 - YES)  =',  MPROC 


7-272 


IF  ((VARY  .LT. 
WRITE (8,*) 
CALL  TRMNAT 
ENDIF 

IF  ( (NMED  .NE . 
WRITE(8,*) 

I 

CALL  TRMNAT 
ENDIF 


0)  .OR.  (VARY  .GT.  3))  THEN 
'ERROR:  INVALID  TYPE  OF  S/N  VARIATION  DESIRED' 


0)  .AND.  (NMED  .NE.  1))  THEN 
'ERROR:  INVALID  RESPONSE  TO  NORMAL  MEDIAN 

' CURVE  QUESTION ' 


IF  ((MPROC  .LT.  0)  .OR.  (MPROC  .GT.  1))  THEN 

WRITE (8,*)  'ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS 

'VARIATION  DESIRED' 

CALL  TRMNAT 
ENDIF 


READ(1,»)  NBLIFE 

IF  (NBLIFE  .GT.  0)  READ(1,*)  (BLFPER(J),  J = 1,  NBLIFE) 

C **  CALL  DRVRIN  TO  READ  DATA  FROM  BLDHCD  AND  ECHO  DATA  TO  BLDHCO 


& 

& 

& 


CALL  DRVRIN  (RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS, 
RDM,  RDS,  LAMBA,  LAMBB,  LAMDA,  LAMDB,  MWA, 
IMIN,  NB,  NS,  AO,  Al,  BO,  BI,  CO,  CIO, 


CM,  CS, 
MWB, 
Cll, 


c ** 
c 


PERFORM  THE  INFORMATION  AGGREGATION  MODEL  ASPECT 
OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATICmS 


CALL  INFAGG  (RANGEM,  MU,  SIG,  NF,  NPTS,  SZERO. 
* NBND,  STR,  FTU,  FTY,  VARY,  MPROC, 


ZROREG,  NUMREG, 
KRATIO,  PVAR) 


IF  (MPROC  .EQ.  1)  PSIG  = SQRT  (PVAR) 


MCOUNT  = 0 


C **  INITIALIZE  VARIABLES 


DO  35  K = 1, 
LIFE(K)  = 
35  CONTINUE 


MAXLIF 

l.OE+36 


NLIFET  = NHYPER  * NLIFE 


C **  OUTER  LOOP  — THIS  LOOP  SAMPLES  HYPER-PARAME'TER  SETS 
DO  150  K = 1,  NHYPER 


c ** 
c 


CALL  PAREST  TO  PERFORM  THE  PARAMETER  ESTIMATION  ASPECT  OF 
MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 


THE 


& 


CALL  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG, 
RAND,  NBND,  STR,  BIGK,  BZERO,  MM,  SEND) 


ZROREG, 


C ♦♦  OBTAIN  MATERIALS  PROCESS  VARIATION  IF  DESIRED 


CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ ) 

IF  (MPROC  .EQ.  1)  THEN 
Z = EXP  (LNZ) 

ELSE 

KRATIO  =1.0 
Z = 1.0 
LNZ  =0.0 
ENDIF 


175 


MCOUNT  = MCOUNT  + 1 
DO  175  L = 1,  NUMREG 

ALLM(MCOUNT,  L)  = MM(L) 
CONTINUE 


C INNER  LOOP  — THIS  LOOP  GENERATES  BLADE  FAILURE  TIMES 
DO  200  1=1,  NLIFE 
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C ♦*  INITILIZE  S/N  CURVE  PARAMETERS 

DO  225  L = 0.  MAXREG 
LNA(L)  = 0.0 
LPHIM(L)  = 0.0 
TRSBND(L)  = 0.0 
225  CONTINUE 


C CALL  SELECT  TO  "SELECT"  DRIVERS  FOR  CALCULATING  LIFE 


CALL  SELECT  (RAND,  RPM,  RPMM,  RPMS,  RROOT,  RROOTM, 

& RROOTS,  RAVG,  RAVGM,  RAVGS,  C,  CM,  CS,  RD, 

& RDM,  RDS,  LAMB,  LAMBA,  LAMBB,  LAMD,  LAMDA, 

& LAMDB,  MW,  MWA,  MWB) 

MINPHI  = l.OE+36 
DO  230  M = 1,  NSYM 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 

MINPHI  = MIN  (PHI,  MINPHI) 

230  CONTINUE 

PHI  = MINPHI 

IF  (VARY  .EQ,  0)  PHI  =1.0 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'PHI  = ',  PHI 
C CALCULA'TE  REGION  DEPENDENT  S/N  CURVE  PARAMETERS 


FACTR  = PHI  * KRATIO  ♦ Z 


DO  235  L = ZROREG,  NUMREG 
TRSBND(L)  = FACTR  * SBND(L) 
TRBIGK(L)  = BIGK(L) 

235  CONTINUE 

TRSBND(O)  = SBND(O) 


& 


IF  (ZROREG  .EQ.  0)  CALL  KOHO  (SZERO,  BIGK,  MM,  NBND, 
TRSBND,  TRBIGK,  FACTR,  NUMREG) 


250 


DO  250  L = ZROREG,  NUMREG 


LNA(L) 

LPHIM' 


MM(L)  * ALOG( TRBIGK (L)) 
[(L)  = MM(L)  * ALOG(PHI) 


IF  (lout  .EQ.  15)  THEN 
WRI'TE(8,*)  “ 

WRITE (8,*) 

WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE(8,*) 

ENDIF 
CONTINUE 


L =',L,  ' MM  =',MM(L), 
LNA  =',  LNA(L),  ' PHI 
LPHIM  =',  LPHIM(L),  ' 
KRATIO  = ',  KRATIO,  ' 
TRSBND  =',  TRSBND(L), 


' BIGK  =',TRBIGK(L) 
= ' PHI 

SBND  =',  SBND(L) 

Z = ',  Z 

' FACTR  « FACTR 


C CALL  BLDHLF  TO  OBTAIN  BLADE  HCF  LIFE 


& 

& 

& 


NEWLIF  = BLDHLF 


(RPM,  RROOT,  RAVG,  C.  RD.  LAMB,  LAMD,  MW, 
IMIN,  MD,  NB,  NS,  AO,  a1,  BO,  Bl,  CO,  CIO 
Cll,  C20,  C21,  MM,  LNA,  LPHIM,  KRATIO, 
LNZ,  SBND,  ZROREG,  NUMREG,  SZERO) 


IF  (lOUT  .EQ.  15)  WRITE(8,*)  'NEWLIF  = ',  NEWLIF 
IF  (NLIFET  .GE.  100)  CALL  INSORT  (NEWLIF,  LIFE,  NLIFET) 


200  CONTINUE 


150  CONTINUE 

IF  (NLIFET  .GE.  100)  THEN 

C **  PRINT  SORTED  LIVES  TO  FILE  LOWLIF 

DO  300  J = 1,  (NLIFET  / 100) 

WRITE(9,^)  J,  FLOAT(J)/FLOAT(NLIFET) , LIFE(J) 
300  CONTINUE 


C INITIALIZE  VARIABLE  BLFPOS() 
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DO  325  J = 1,  MAXBLF 
HLFPOS(J)  = 0 
325  CCMJTINUE 

FIFTY  = 0.50E0 

C **  PRINT  EMPIRICAL  BLIVES 

WRITE(3,925) 

DO  350  J = 1,  NBLIFE 

BLFPOS(J)  = NINT  fBLFPER(J)  * FLOAT  (NLIFET) ) 
WRITE(3,926)  BLFPER(J),  LIFE(BLFP0S( J) ) 

350  CONTINUE 

WRITE(3,926)  FIFTY,  LIFE(NLIFET/2 ) 

ENDIF 

C **  CALCXJLATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  = MCOUNT  / 2 
DO  400  L = 1,  NUMREG 

MEDM(L)  = ALLM(MID,L) 

400  CONTINUE 

CALL  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKl,  BZERO) 


ENDIF 


925  FORMAT (///, 2X, 'B  LIVES:  EMPIRICAL',/) 

926  FORMAT(2X,F7.5,5X,E13.6) 

STOP 

END 


C SAMPLE  'BLDHCD'  INPUT  FILE 

C*************** ************ ******************************************,,* 


C 675 

C 0 

C 1 

C 20000 

C 54 

C 2 

C 0 

C 0 

C 3 

C 0.0001 

C 0.001 

C 0.01 

C 26161.  600. 

C 

C 4.700  0.0035 

C 5.117  0.0035 

C 0.1303  0.0035 
C 4.445  0.010. 

C 0.0  0.0. 

C 0.50  1.50 

C 0.40  0.60 

C 0.0004769.... 

C 0.0010733 

C 54 


RANDOM  NUMBER  SEED 
OUTPUT  DUMP  CONTROLLER 
INNER  LOOP  SIZE 
OUTER  LOOP  SIZE 
SYMMETRY  NUMBER 
UNIFORM  S/N  VARIATION 
NORMAL  MEDIAN  NOT  REQUIRED 
MAT.  PROC.  VAR.  NOT  REQUIRED 
NUMBER  OF  BLIVES  REQUESTED 
B.Ol  LIFE 
B.l  LIFE 
B 1 LXFE 

ROTOR  SPEED  VARIATION  PARAMETERS: 

MEAN,  STD. DEV.  (NORMAL  DIST. ) 

BLADE  ROOT  RADIUS  MEAN  & STD  DEV 
BLADE  AVERAGE  RADIUS  MEAN  & STD  DEV 
DISTANCE  FROM  NEUTRAL  AXIS  MEAN  & STD  DEV 
DAMPER  RADIUS  MEAN  & STD  DEV 
UNCERTAINTY  IN  PERFORMACE  BALANCE 
UNCERT.  IN  DAMPER  COEFFICENT  OF  FRICTION 
WALKER  EXPONENT  m 
MINIMUM  MOMENT  OF  INERTIA 
DAMPER  MASS 

NUMBER  OF  ROTOR  BLADES 
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NUMBER  OF  STATOR  VANES 


78 

COEFFICIENTS  OF  RESPONSE  SURFACE  FUNCTIONS 

FLOW  RATE: 

Flndot(w)  = A 


+ B 


w 


B 


-24.41242623  0 . 3307822E-02 


ENTHALPY  CHANGE: 
Fdeltah(w)  = 

-29,65037673 


A + B * 


0.6433368E-02 


BLADE  DAMPER  EFFECTIVENESS: 

IF  mrw**2  < A 

Feff(m,  r,  w)  = B + C * mrw**2 
IF  mrw**2  > A 

Feff(m,  r,  w)  = 

A B C 

26  1.0  -0.03750 


D + E * mrw**2 
D 

5.683003E-3 


7.429614E-4 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c LIST  OF  VARIABLES 

C 


'RT.  PWA  1480-  001  DIRECTION' MATERIAL  DESCRIPTION 

137000.  142 OOO.  1 8 YIELD  & ULTIMATE  STRENGTHS,  NDIV,  NPTS 

1 # PTS  IN  DIV,  STRESS  RATIO,  REGION 

6800 S(l)  N(l)  RAW 

15000 S 2 N 2 

27000 S 3 N 3 

43200 S 4 N 4) 

139300 S 5 N 5 

545200 S(6 

147000 S(7 

4344800 S(8 

0.00 VALUE  of' , , 

} NUMBER  of  regions :W/DATA  W/O  DATA 

l-OE+36 life  boundary  FOR  REGION  1 

0*00.... CONSTRAINT  ON  COEFF.  OF  VARIATION 

0 ^ 0,00 0 PTS  IN  RANGE,  LOWER  BOUND,  UPPER  BOUND 

0.0  0.0  0,0 NORMAL  DIST,  PRIORS:  DELTA,  MO,  SIGMA2 


8 -1.0 
80000. 
80000. 
60000. 
60000. 
50000. 
50000, 
50000. 
35000. 


N(6 
N 7 
N 8 


STRESS-LIFE 
(S/m 
DATA 
POINTS 
FOR  THE 
SPECIFIC 
MATERIAL 
SO  SUPPLIED  (PSI) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AO,  Al  COEFFICIENTS  OF  THE  FLOW  RATE,  m-dot,  RESPONSE  SURFACE 
(PERFORMANCE  BALANCE  MODEL) 

ALLM(  ) 2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  FOR  EACH  REGION 

BO,  Bl  COEFFICIENTS  OF  THE  ENTHALPY  CHANGE,  delta-h,  RESPONSE  SURFACE 
(PERFORMANCE  BALANCE  MODEL) 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K M FOR  EACH 
REGION 

BIGKl  EQUAL  TO  BIGK(l)  - DUMMY  PARAMETER  FOR  CALLS  TO  SUBROUTINE 
EXPCTD 

BLDHLF  REAL  FUNCTION  PERFORMING  THE  DRIVER  TRANSFORMATION  AND  HCF  LIFE 
CALCULATION 

BLFPER( ) 1-D  ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PROVIDED 

BLFPOS()  1-D  ARRAY  CONTAINING  POSITION  IN  LIFE()  OF  EMPIRICAL  BLIVES 
BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHAWVCTERIZING  S/N  DATA  SET 
C SELECTED  DISTANCE  FROM  NEUTRAL  AXIS  (in) 

CO,  CIO,  Cll,  C20,  C21 

COEFFICIENTS  OF  THE  BLADE  DAMPER  EFFECTIVENESS  RESPONSE  StJRFACE 
CM  MEAN  OF  DISTANCE  FROM  NEUTRAL  AXIS  (in) 

CS  STANDARD  DEVIATION  OF  DISTANCE  FROM  NEUTRAL  AXIS  (in) 

FACTR  SCALE  FACTOR  EQUAL  TO  PHI  * KRATIO  * Z 

FIFTY  EQUAL  TO  . 5 — USED  TO  ACCESS  50%  POINT  IN  LIFE() 

FTU  MATERIAL  ULTIMATE  STRENGTH  (psi) 

FTY  MATERIAL  YIELD  STRENGTH  (psiT 

I CONTROLS  INNER  DO  LOOP 

IMIN  MINIMUM  MOMENT  OF  INERTIA  (in^*4) 

lOUT  CONTROLS  DUMP  TO  FILE  lOUTPR 

J CONTROLS  DO  LOOP  FOR  EACH  BLIFE 

K CONTROLS  OUTER  DO  LOOP 

KRATIO  RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPCMJENTS 
L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMB  SELECTED  UNCERTAINTY  IN  PERFORMACE  BALANCE  MODEL,  LAMbdaB 

LAMBA  UNCERTAINTY  IN  PERFORMANCE  BALANCE  MODEL,  LAMbdaB,  UNIFORM 
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c 

C LAMBB 
C 

C LAMD 
C LAMDA 
C 

C LAMDB 
C 

C LIFE() 

C 

C LNA<  ) 

C LNZ 
C LPHIM( ) 
C M 

C MAXBLF 
C MAXDAT 
C MAXLIF 
C 

C MAXMM 
C MAXREG 
C MCOUNT 
C 

C MD 
C MEDMO 
C MID 
C MINPHI 
C MM() 

C MPROC 
C 

C MU(  ) 

C 

C MW 
C MWA 
C MWB 
C NB 

C NBLIFE 
C NBND() 

C 

C NEWLIF 
C NF() 

C 

C NHYPER 
C NLIFE 
C NLIFET 
C NMED 
C 
C 

C NPTS() 

C 

C NS 
C NSYM 
C NUMREG 
C PHI 
C PSIG 
C PVAR 
C RAND 
C RANGEM(  ) 
C 
C 

C RAVG 
C RAVGM 
C RAVGS 
C RD 
C RDM 
C RDS 
C RPM 
C RPMM 
C RPMS 
C RROOT 
C RROOTM 
C RROOTS 
C SBND() 

C 

c 

C SIG( ) 


DISTRIBUTION  LOWER  BOUND 

UNCERTAINTY  IN  PERFORMANCE  BALANCE  MODEL,  LAMbdaB,  UNIFORM 
DISTRIBUTION  UPPER  BOUND 

SELECTED  UNCERTAINTY  IN  DAMPER  COEFFICENT  OF  FRICTION,  LAMbdaD 
UNCERTAINTY  IN  DAMPER  COEFFICIENT  OF  FRICTION,  LAMbdaD,  UNIFORM 

DISTRIBUTION  LOWER  BOUND  ' 

UNCERTAINTY  IN  DAMPER  COEFFICIENT  OF  FRICTION,  LAMbdaD,  UNIFORM 

DISTRIBUTION  UPPER  BOUND  ' 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED  BY  THE  PFM 
~ SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 
1-D  ARRAY  CONTAINING  Ln(A)  * Ln(BIGK)*MM  FOR  EACH  REGION 
NORMAL (0, PVAR)  GENERATED  RANDOM  VARIABLE 
1-D  ARRAY  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 
CONTROLS  SYMMETRY  DO  LOOP 
MAXIMUM  NUMBER  OF  BLIVES  TO  BE  PROVIDED 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  PER  REGION  ALLOWED 
MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA* 

ALPHA  CALCULATION  ' 

MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED  FOR  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  THE  TRUNCATED  NORMAL 
MEDIAN  S/N  CURVE 
DAMPER  MASS  (Ibm) 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
POINTER  TO  THE  MEDIAN  M VALUES  — EQUi^  TO  HALF  OF  MCOUNT 
EQUAL  TO  MIN  (PHI)  — THE  MINIMUM  OF  NSYM  DRAWS  OF  PHI 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  I^GION 
SELECTED  WALKER  M 

WALKER  M UNIFORM  DISTRIBUTION  LOWER  BOUND 
WALKER  M UNIFORM  DISTRIBUTION  UPPER  BOUND 
NUMBER  OF  ROTOR  BLADES 
NUMBER  OF  BLIVES  TO  BE  PROVIDED 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  FOR  THE  NUHREG  LIFE  REGIONS  OF 
INTEREST  FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  HATA  SET 

LIFE  VALUE  RETURNED  FROM  CALL  TO  nTjnm.v 

2- D  ARRAY  CONTAINING  RAWNF()  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA 
SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 

CONTROLS  MEDIAN  CALCULATION  FOR  THE  TRUNCATED  NORMAL 

DISTRIBUTION  CASE  — 0 - NO  MEDIAN  CALCULATION;  1 - MEDIAN 
CALCULATION  DESIRED 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REGION  FOR 
THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 

NUMBER  OF  STATOR  BLADES 

SYMMETRY  NUMBER 

NUMBER  OF  REGIONS  OF  INTEREST 

WEIBULL(BETAo,  ETAO)  GENERATED  RANDOM  VARIATE 

EQUAL  TO  SQRT(PVAR)  — MATERIALS  PROCESS  STANDARD  DEVIATIC»I 

MATERIALS  PROCESS  VARIATION 

RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M FOR 
EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND  RANGEM(2.L) 

IS  THE  UPPER  BOUND  aj, 

SELECTED  BLADE  AVERAGE  RADIUS  (in) 

MEAN  OF  AVERAGE  BLADE  RADIUS  (in) 

STANDARD  DEVIATION  OF  AVERAGE  BLADE  RADIUS  (ini 
SELECTED  DAMPER  RADIUS  (in) 

MEAN  OF  DAMPER  RADIUS  (in) 

STANDARD  DEVIATION  OF  DAMPER  RADIUS  (in) 

SELECTED  ROTOR  SPEED  (rpm) 

MEAN  OF  ROTOR  SPEED  (rpm) 

STANDARD  DEVIATION  OF  ROTOR  SPEED  (rpm) 

SELECTED  BLADE  ROOT  RADIUS  (in)  ' ' 

MEAN  OF  BLADE  ROOT  RADIUS  (in) 

STANDARD  DEVIATION  OF  BLADE  ROOT  RADIUS  (in) 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (psi'  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
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oooonononnnnooonnonnooooo  o ono  oooonnoo  n onononnoononoo 


STR(  ) 

SZERO 
TRBIGK( ) 

TRSBND( ) 

VARY 

Z 

ZROREG 


DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
2-D  ARRAY  CONTAINING  STRESS  POINTS  (STRESS  RATIO  = -1.0)  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 
STRESS  TENSILE  TEST  POINT,  So 

1-D  ARRAY  CONTAINING  VALUES  OF  BIGK()  CORRECTED  FOR  SZERO, 

PHI,  KRATIO,  AND  Z 

1-D  ARRAY  CONTAINING  VALUES  OF  PHI  ♦ KRATIO  ♦ Z * SBND  FOR  EACH 
REGION  CALCULATED  FOR  EACH  TRIAL 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  ^ 0 - NO  VARIATIC»I; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATIC»I;  3 - 
TRUNCATED  NORMAL  VARIATION 
LOGNORMAL (0,PVAR)  GENERATED  RANDOM  VARIATE 
ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


SUBROUTINE  DRVRIN  READS  AND  ECHOES  THE  INPUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  31OCT90  COMMENTS:  20APR92 

VERSION:  BLDHCF  Vl,  VI . 1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 

SUBROUTINE  DRVRIN  (RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS, 

& CM,  CS,  RDM,  RDS,  LAMBA,  X4AMBB,  LAMDA, 

& LAMDB,  MWA,  MWB,  IMIN,  MD,  NB,  NS,  AO,  Al, 

& BO,  Bl,  CO,  CIO,  Cll,  C20,  C21) 

OUTPUT:  RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS,  CM,  CS,  RDM,  RDS, 

LAMBA,  LAMBB,  LAMDA,  LAMDB,  MWA,  MWB,  IMIN,  MD,  NB,  NS, 

AO,  Al,  BO,  Bl,  CO,  CIO,  cil,  C20,  C5l 

IMPLICIT  NONE 


COMMON  lOUT 


INTEGER  lOUT,  NB,  NS 


REAL  AO,  Al,  BO,  Bl,  CO,  CIO,  Cll,  C20,  C21,  CM,  CS,  IMIN, 

& LAMBA,  LAMBB,  LAMDA,  LAMDB,  MD,  MWA,  MWB,  RAVGM,  RAVGS, 

& RDM,  RDS,  RPMM,  RPMS,  RROOTM,  RROOTS 


LIST  OF  VARIABLES 

AO,  Al  Coefficients  of  the  flow  rate,  m-dot,  response  surface 
(performance  balance  model) 

BO,  Bl  Coefficients  of  the  enthalpy  change,  delta-h,  response  surface 
(performance  bal£uice  model) 

CO,  CIO,  C11,.C20,  C21 

Coefficients  of  the  blade  damper  effectiveness  response  surface 
CM  Mean  of  distance  from  neutral  axis  (in) 

CS  Standard  deviation  of  distance  from  neutral  axis  (in) 

IMIN  Minimum  moment  of  inertia  (in**4) 

lOUT  Output  dump  controller 

LAMBA  Uncertainty  in  performance  balance  model,  LAMbdaB,  Uniform 
distribution  lower  bound 

LAMBB  Uncertainty  in  performeince  balance  model,  UM>daB,  Uniform 
distribution  upper  bound 

LAMDA  Uncertainty  in  damper  coefficient  of  friction,  LAMbdaD,  Uniform 
distribution  lower  bound 

LAMDB  Uncertainty  in  damper  coefficient  of  friction,  LAMbdaD,  Uniform 
distribution  upper  bound 
MD  Danger  mass  (Ibm) 

MWA  Walker  m Uniform  distribution  lower  bound 

MWB  Walker  m Uniform  distribution  upper  bound 

NB  Number  of  rotor  blades 

NS  Number  of  stator  vanes 
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C RAVGM 
C RAVGS 
C RDM 
C RDS 
C RPMM 
C RPMS 
C RROOTM 
C RROOTS 


Mean  of  average  blade  radius  (in) 

Standard  deviation  of  average  blade  radius  (in) 
Mean  of  damper  radius  (in) 

Standard  deviation  of  damper  radius  (in) 

Mean  of  rotor  speed  (rpm) 

Standard  deviation  of  rouor  speed  (rpm) 

Mean  of  blade  rpot  radius  (in) 

Standard  deviation  of  blade  root  radius  (in) 


READ(1,^)  RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS, 

& CM,  CS,  RDM,  RDS, 

& LAMBA,  LAMBB,  LAMDA,  LAMDB,  MWA,  MWB, 

& IMIN,  MD,  NB,  NS,  / r , 

& AO,  Al,  BO,  Bl,  CO,  CIO,  Cll,  C20,  C21 


WRITE ( 3 900) 

WRITE(3,901)  RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS, 
* ^ CM,  CS,  RDM,  RDS 

WRITE(3,902)  LAMBA,  LAMBB,  LAMDA,  LAMDB,  MWA  MWB 

WRITE(3,903|  IMIN,  MD,  NB;  NS  «wa,  MWB 

WRITE(3,904)  AO,  Al,  BO,  Bl,  CO,  CIO,  Cll,  CO,  C20,  C21 

900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of 
& 'Technology.  u.S.  Government ',/, 2X, ' 


& 

& 

& 


^ .w . Sponsorship  under 

:^A  Contract  NAS7-918  is  acknowledged.'  ////, 

'DRIVERS'  ,3lx,  ' otsTRIBUTIONS ' , 
//,49X, 'N(  MEAN,  STD.  DEV.)') 

901  FORMAT(//,2X, 'ROTOR  SPEED  VARIATION  (rpm)',20X. 

4 //,2X, 'BLADE  ROOT  RADIUS  (in)',25X, 

4 'N(',F6.3,',',E10.3,')', 

4 //,2X, 'BLADE  AVERATE  RADIUS  (in)',22X, 

4 'N(',F6.3,',',E10.3,')', 

4 ^NrfF7?4f^t?^9T2?“)^”^*^  (in)',16X, 

4 //,2X, 'DAMPra' RADIUS  (in) ' , 29X, 'N( ' ,F6 . 3, ' , ' ,E10. 3, ' ) ' ) 

902  FORMAT(//,2X, 'UNCERTAINTY  IN  PERFORMANCE  BALANCE'. 14X 

4 //,2X, 'DAMPER  COEFFICIENT  OF  FRICTION' . 18X. 

4 ',U(:/F7-4,',',F8.4  ')', 

4 //,2X, 'WALKER  m' , 40x, 'U ( ' ,F7 . 4, ' , ' , F8 .4, ' ) ' ) 

903  FORMAT (////, 23X, 'OTHER  GEOMETRIC  INPUT', 

r ///,2X, 'MINIMUM  MOMENT  OF  INERTIA  ( in**4) ' , 19X.E10.4, 

4 //,5X, 'DAMPER  MASS  ( lb)  ' , 36X,  Ell . 5,  ' 

c //,2X, 'NUMBER  OF  ROTOR  BLADES ', 29X, 12 , 

4 //,2X, 'NUMBER  OF  STATOR  VANES ', 29X, 12 ) 

904^FORMAT(////^13^^OE^ICIENTS  OF  RESPONSE  SURFACE  FUNCTIONS', 

4 /,^X, 'Fjndot(w)  =*'>12.8,'  + ',E14.7,'  * w' , 

4 //,2X, 'ENTHALPY  CHANGE:', 

? /,5X, 'Fdelteih(w)  = ',F12.8,'  + ',E14.7,'  * w' . 

4 //,2X, 'BLADE  DAMPER  EFFECTIVENESS;', 

4 /,5x, 'IF  nunrf**2  < ',F4.1, 

4 /,10X, 'Feff (m,  r,  w)  = ',E14.7,'  + ',E14.7,'  *mrw**2') 


RETURN 

END 


^******* ******************************************************** ********* 


C SUBROUTINE  SELECT  PERFORMS  THE  DRIVER  SELECTICXI 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  31OCT90  COMMENTS;  20APR92 
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VERSION:  BLDHCF  Vl,  Vl . 1 

Copyright  (C)  1990,  California  Institute  of  Technology* 
U.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged* 


SUBROUTINE  SELECT  (RAND,  RPM,  RPMM,  RPMS,  RROOT,  RROOTM, 

& RROOTS,  RAVG,  RAVGM,  RAVGS,  C,  CM,  CS,  RD, 

& RDM,  RDS,  LAMB,  LAMBA,  LAMBB,  LAMD,  LAMDA, 

& LAMDB,  MW,  MWA,  MWB) 


INPUT:  RAND,  RPMM,  RPMS,  RROOTM,  RROOTS,  RAVGM,  RAVGS,  CM, 

CS,  RDM,  RDS,  LAMBA,  LAMBB,  LAMDA,  LAMDB,  MWA,  MWB 
OUTPUT;  RPM,  RROOT,  RAVG,  C,  RD,  LAMB,  LAMD,  MW 
SUBPROGRAMS:  NORMGN,  PRYRV 


C IMPLICIT  NONE 


COMMON  lOUT 
INTEGER  lOUT 


REAL  C,  CM,  CS,  DUM,  LAMB,  LAMBA,  LAMBB,  LAMD,  LAMDA,  LAMDB, 

& MW,  MWA,  MWB,  RAVG,  RAVGM,  RAVGS,  RD,  RDM,  RDS,  RPM, 

& RPMM,  RPMS,  RROOT,  RROOTM,  RROOTS 


DOUBLE  PRECISION  RAND 


C 

C 

c c 

C CM 
C CS 
C DUM 
C lOUT 
C LAMB 
C LAMBA 
C 

C LAMBB 
C 

C LAMD 
C LAMDA 
C 

C LAMDB 
C 

C MW 
C MWA 
C MWB 
C RAND 
C RAVG 
C RAVGM 
C RAVGS 
C RD 
C RDM 
C RDS 
C RPM 
C RPMM 
C RPMS 
C RROOT 
C RROOTM 
C RROOTS 


LIST  OF  VARIABLES 

Selected  distance  from  neutral  axis  (in) 

Mean  of  distance  from  neutral  axis  (in) 

Standard  deviation  of  distance  from  neutral  axis  (in) 

Dumny  variable 
Output  dump  controller 

Selected  uncertainty  in  performace  balance  model,  LAMbdaB 
Uncertainty  in  performaince  balance  model,  LAMbdaB,  Uniform 
distribution  lower  bound 

Uncertainty  in  performance  balance  model,  LAMbdaiB,  Uniform 
distribution  upper  bound 

Selected  uncertainty  in  danger  coefficent  of  friction,  LAMbdaD 
Uncertainty  in  damper  coefficient  of  friction,  LAMbdaD,  Uniform 
distribution  lower  bound 

Uncertainty  in  damper  coefficient  of  friction,  LAMbdaD,  Uniform 
distribution  upper  bound 
Selected  Walker  m 

Walker  m Uniform  distribution  lower  bound 
Walker  m Uniform  distribution  upper  bound 
Random  number  seed 
Selected  blade  average  radius  (in) 

Mean  of  average  blade  radius  (in) 

Stemdard  deviation  of  average  blade  radius  (in) 

Selected  damper  radius  (in) 

Mean  of  dairper  radius  (in) 

Standard  deviation  of  danger  radius  (in) 

Selected  rotor  speed  (rpm) 

Mean  of  rotor  speed  (rpn) 

Standard  deviation  or  rotor  speed  (rpm) 

Selected  blade  root  radius  (in) 

Mean  of  blade  root  radius  (in) 

Standard  deviation  of  blade  root  radius  (in) 


CALL  NORMGN  (RAND,  RPMM,  RPMS,  RPM) 

CALL  NORMGN  (RAND,  RROOTM,  RROOTS,  RROOT) 
CALL  NORMGN  (RAND,  RAVGM,  RAVGS,  RAVG) 

CALL  NORMGN  (RAND,  CM,  CS,  C) 

CALL  NORMGN  (RAND,  RDM,  RDS,  RD) 


CALL  PRYRV  (RAND, 
CALL  PRYRV  (RAND, 


LAMBA,  LAMBB,  LAMDA,  LAMDB,  LAMB,  LAMD) 
MWA,  MWB,  MWA,  MWB,  MW,  DUM) 
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IF  (lOUT  .EQ. 


WRITE (B,*) 
WRITE(8  *) 
WRITE(8,*) 
ENDIF 


15)  THEN 

'RPM  = RPM,  ' RROOT  = ' RROOT 
'RAVG  = RAVG,  ' C = ' C 
'RD  = ',  RD,  ' MW  = MW 
'LAMB  = LAMB,  ' LAMD  = LAMD 


RETURN 

END 


c 

c 

c 

c 

c 

c 

c 

c 

c 


transformation  and  life 


PROGRAMMER 

DATE 

VERSION 


L.  NEWLIN 
20APR92 
BLDHCF  VI. 1 (MATCHR  V8.5) 


(C)  1990,  California  Insfitufe  of  Technoloov* 
y.s.  Ck>vernment  Sponsorship  under  NASA  Contract  NAS7-918 
xs  acknowledged . 


FUNCTION  BLDHLF  (RPM,  RROOT,  RAVG,  C,  RD,  LAMB,  LAMD,  MW,  IMIN. 

MD,  NB,  NS,  AO,  Al,  BO,  Bl,  CO,  CIO,  Cli,  C20! 


INPUT: 


OUTPUT: 


^OOT,  C,  LAMB,  LAMD,  MW,  IMIN,  MD,  NB,  NS, 

^21,  MM,  LNA,  LPHIM, 

KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 
BLDHLF 


SUBPROGRAMS : GTLIFE 

IMPLICIT  NONE 
COMMON  lOUT 

INTEGER  lOUT,  MAXREG,  NB,  NS,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  = 3) 


REAL 


& 

& 

& 

& 

& 


AO,  Al,  BO,  Bl,  BLDHLF,  C,  CO,  CIO,  Cll,  C20.  C21 
p^TM,  GTLIFE,  IMIN,  ^ATIO, 'lAMB  L^,  Lira?  ' 

' ^2,  LPHIM (0:MAXREG),  MD,  MDOT, 

MW,  NF,  R,  RAVG,  RD,  RPM,  RROOT, 
Imn'  sro^  szra^^^'  SBRM,  SDSUD,  SEQ,  SMAX,  SMEAN, 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AO,  Al 
BO,  Bl 
BLDHLF 
C 

CO,  CIO 

DELTAH 

GTLIFE 

IMIN 

lOUT 

KRATIO 

LAMB 

LAMD 

LIFE 


LIST  OF  VARIABLES 

Coefficients  of  the  flow  rate,  m-dot,  response  surface 
(perrpnnance  balance  model) 

‘"'^Prfo^ncfblllncfSi!)''*'®"^®'  delta-h,  response  surface 

^^calculation  the  driver  transformation  and  HCF  life 

Selected  distance  from  neutral  axis  (in> 

Cll  C20  C2 1 ' ' 

iSth!ipJ®chlngi^dilta-h®  effectiveness  response  surface 

SiSi^iS"mSJent  Sf^inertil  ^in**??^®®  f^lnre  at  a given  stress 
Output  dump  controller 

^txo  of  K*/K,  cpnstant  over  regions  amd  con^nents 

uncertainty  in  performace  balance  model,  LAMbdaB 

vf damper  coefficent  of  friction,  LAMbdaD 
Fatigue  life  in  seconds  ' 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LNA(  ) 
LNZ 

LPHIM(  ) 

MAXREG 

MD 

MOOT 

MM(  > 

MRW^ 

MW 

KB 

NF 

KUMREG 

NS 

R 

RAVG 

RD 

RPM 

RROOT 

SALT 

SBND() 


SBRM 

SDSUD 

SEQ 

SMAX 

SMEAN 

SMIN 

SUD 

SZERO 

ZROREG 


1-D  array  containing  In (A)  = In(BIGK)  ★ MM  for  each  region 

Normal ( 0 , PVAR)  generated  random  variate 

1-D  array  containing  ln(PHIj  ^ MM  for  each  region 

Maximum  number  of  regions  allowed 

Danper  mass  (ll:mi) 

Flow  rate,  m-dot 

1-D  array  containing  selected  values  of  m for  each  region 
Dcuiper  normal  load  (Ibf) 

Selected  Walker  m 
Number  of  rotor  blades 
Fatigue  life  in  cycles 
Number  of  regions  of  interest 
Number  of  stator  vanes 
Stress  ratio 

Selected  blade  average  radius  (in) 

Selected  damper  radius  (in) 

Selected  rotor  speed  (rpm) 

Selected  blade  root  radius  (in) 

Alternating  stress  ( psi ) 

1-D  array  containing  the  stress  values  (psi,  R = -1.0) 

corresponding  to  the  "life  boundary"  values  for  each  region 
contained  in  NBND() 

Blade  root  mean  stress  (psi) 

Ratio  of  damped  to  undamped  vibratory  stress 
Equivalent  zero  mean  stress  (psi) 

Maximum  or  peak  stress  (psi) 

Mean  stress  (psi) 

Minimum  stress  (psi) 

Blade  undamped  vxbratory  stress  (psi) 
stess  tensile  test  point,  so 

ZeRO  REGion  — values  chosen  to  facilitate  region  DO  loop 

beginning  value  — 0 - zero  region  exists,  I - no  zero  region 


IF  (lOUT  .EQ. 
WRITE(8,^) 
WRITE(8,*) 
WRITE(8,*) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE(8,*) 
ENDIF 


15)  THEN 

'RPM  * RPM,  ' RROOT  = RROOT 
'RAVG  = RAVG,  ' C = ',  C 
'RD  = ' , RD,  ' MW  = ' , MW 
'LAMB  = ',  LAMB,  ' LAMD  = ',  LAMD 
'IMIN  = IMIN,  ' MD  = ',  MD 
'NB  = ' , NB,  ' NS  = ' , NS 


C CALCULATE  FLOW  CONDITIONS 

MDOT  = LAMB  * (AO  + Al  * RPM) 

DELTAH  = LAMB  * (BO  + Bl  * RPM) 

C CALCULATE  BLADE  ROOT  MEAN  STRESS 

SBRM  = (MDOT  * DELTAH  / RPM)  * {C  / (IMIN  * FLOAT  (NB)  ) ) 

& ♦ (1.0  - (RROOT  / RAVG))  ♦ 9356 

C OBTAIN  BLADE  UNDAMPED  VIBRATORY  STRESS 

SUD  = (8.55300181  + 34.06551173  * (SBRM  / 9336))  * 1000.0 

C CALCULATE  DAMPER  NORMAL  LOAD 

MRW2  = (MD  * RD  * (RPM  **  2 ) ) * 2.83805E-5 

C OBTAIN  BLADE  DAMPER  EFFECTIVENESS  - THE  RATIO  OF  THE  DAMPED  TO 

C UNDAMPED  VIBRATORY  STRESS 

IF  (MRW2  .LT.  CO)  THEN 

SDSUD  = LAMD  ★ (CIO  + Cll  * MRW2 ) 

ELSE 

SDSUD  = LAMD  * (C20  + C21  * MRW2 ) 

ENDIF 

C CALCULATE  ALTERNATING  & MEAN  STRESSES,  MAX  & MIN  STRESSES, 

C AND  THE  STRESS  RATIO 


SALT  = SUD  * (SDSUD) 
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SMEAN  = SBRM 
SMAX  = SMEAN  + SALT 
SMIN  = SMEAN  - SALT 
R = SMIN  / SMAX 

C CALCULATE  EQUIVALENT  ZERO  MEAN  STRESS  USING  WALKER  RELATION 

SEQ  = SMAX  * ((1.0  - R)  / 2.0)  **  MW 

C OBTAIN  FATIGUE  LIFE  (IN  CYCLES)  FROM  MATERIALS  MC»EL 

NF  = GTLIFE  (SEQ,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND,  ZROREG, 
i NUMREG,  SZERO)  > • , , 

C TRANSFORM  LIFE  FROM  CYCLES  TO  SECONDS 

LIFE  = (60.0  / RPM)  * NF  / FLOAT  (NS) 

BLDHLF  = LIFE 


IF 


ENDIF 


(lOUT  .EQ. 
WRITE (8,*) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 


15)  THEN 
'MOOT  = 
'SBRM  = 
'MRW2  = 
'SALT  = 
'SMAX  = 
'R  = 

'NF  = 


R, 

NF 


MDOT,  ' DELTAH  = ' , DELTAH 
SBRM,  ' SUD  = ' , SUD 
MRW2 , ' SDSUD  = ' , SDSUD 

SALT,  ' SMEAN  = ' , SMEAN 
SMAX,  ' SMIN  = SHIN 
' SEQ  = ',  SEQ 
, ' LIFE  = ',  LIFE 


RETURN 

END 


C***************** ******** ********************************************* 


C 

c 

c 

c 

c 

c 

c 

c 


P^^AM^R'^*^L^*^EWLIN°'^^  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 

DATE:  20JUL90 

VERSION:  2.1 

Copyright  (C)  1990,  California  Institute  of  Technology, 
y.s.  Goveranent  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acKnowleaged • 


c 

c 


SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

INPUTS:  NEWLIF,  LIFE,  NLIFET 

OUTPUTS : LIFE 


C IMPLICIT  NONE 

INTEGER  MAXLIF 
PARAME'TER  (MAXLIF  = 10000) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NLIFET,  NUM,  PLACE 
real  LIFE(MAXLIF) , NEWLIF,  TEMP(MAXLIF) 


I 

lOUT 
LIFE( ) 

MAXLIF 

NEWLIF 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  INSERTION 
OUTPUT  DUMP  CONTROLLER 

VALUES  OF  THE  LIVES  GENERATED  BY  THE 

PFM  TO  BE  SORTED 

*”^C^ULMION^  fatigue  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 
LIFE  VALUE  TO  BE  INSER'TED  INTO  LIFE{  ) 
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C NLIFET 
C NUM 
C PLACE 
C TEMPO 


TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
NUMBER  OF  LIFE  VALUES  IN  L1FE() 

POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFE() 

1-D  ARRAY  CONTAINING  VALUES  OF  LIFE()  TO  BE  SHIFTED  UPON 
INSERTION  OF  NEWLIF 


NUM  = NLIFET  / 2 

C FIND  POSITION  IN  LIFE()  FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE (NUM) ) GOTO  400 

DO  100  1=1,  NUM 

IF  f NEWLIF  .LT.  LIFE (I))  THEN 
PLACE  = I 
GOTO  110 
ENDIF 
100  C<»JTINUE 
110  CCMJTINUE 


C STORE  VALUES  OF  LIFE( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMP( ) 

DO  200  I = (PLACE  +1),  NUM 
TEMP(I)  = LIFE(I-l) 

200  CONTINUE 


C INSERT  NEWLIF 


LIFE (PLACE)  = NEWLIF 

C SHIFT  VALUES  OF  LIFE ( ) FOLLOWING  NEWLIF 

DO  300  I = (PLACE  +1),  NUM 
LIF^I)  = TEMP(I) 

300  CONTINUE 

C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE()  THEN  RETURN 

400  CONTINUE 


RETURN 

END 


C**** **************************** ************************************** 
C SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U(THE1,THE2) 

C INDEPENDENT  RANDOM  VARIATES 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE;  9MAR87 

C SUBPROGRAM:  RANDOM 

C 

C copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C xs  acknowledged. 

*★*★★★★★*♦★★★★★★★**★**★*★*★★*★★* ****★**★*♦♦****♦★♦****★★#★♦★★*★****★ 
SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl,  THE2,  X,  Y) 

COMMON  lOUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 

INTEGER  I OUT 

CALL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE (8,*)  'FRAC  =' , FRAC 

X = FRAC  * (RH02  - RHOl)  + MOl 

CALL  RANDOM  (FRAC,  RAND) 

C IF  (lOUT  .EQ.  15)  WRITE(8,*)  'FRAC  =',  FRAC 
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Y = FRAC  * (THE2  - THEl)  + THEl 

IF  (lOUT  .EQ.  15)  WRITE(8,*)  'RHOl  =',  RHOl,  ' RH02  =' , RH02, 
& ' THEl  =',  THEl,  ' THE2  =',  THE2,  ' X =',  X,  ' Y =' , Y 


RETURN 

END 


C*  ********  **★«*★★****♦  1^*  ★*«***  ***ilr**WW««****  **************  ********* 


C SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
C AGGREGATICW  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATI<»I  MC»EL 
C FOR  THE  STRESS  FORMULATION 
C PROGRAMMER;  L.  NEWLIN 

C DATE:  13JUL89  FORMAT /COMMENTS;  12AUG91 

C VERSION:  MATCHR  V8.4,  V8 . 5 MATGRM  V4.4,  V4.5 

C 

c Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  INFAGG  (RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG, 

4 NUMREG,  NBND,  STR,  FTUZ,  FTYZ,  VARY,  MPROC, 

4 KRATIO,  PVAR) 

INPUTS;  READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 
OUTPUTS;  RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND,  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR 
SUBPROGRAMS:  INIT,  RCE,  SW2SU2,  FINDMC,  INTRVL,  FNDRNG,  ADDREG, 

CONCAV,  MEDIAN,  EXPCTD,  MUSIG,  NORRNG,  ADDRGN,  GTPVAR 
FILES : 5 : RELATD-OLD ; 6 ; RELATO-NEW 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT(MAXREG) , MPROC,  NNODAT, 

4 NP<0:MAXSET,  MAXREG),  NPPR(MAXREG) , NPTS ( 0 :MAXSET) , 

4 NSETS,  NUMREG,  REFNP (MAXREG) , VARY,  ZROREG 

REAL  BIGKHT,  BZERO,  CZERO,  DD ( MAXREG ) , DELTA ( MAXREG ) , 

4 FTUZ,  FTYZ,  IZERO(2,  MAXREG),  JZERO(2,  MAXREG), 

4 KRATIO,  LAMN,  LNNF(MAXDAT,  0;MAXSET,  MAXREG), 

4 LNSTR(MAXDAT,  0;MAXSET,  MAXREG),  MC(2,  MAXREG), 

4 MCHAT(2,  MAXREG),  MEDM(MAXREG) , MO ( MAXREG ) , MU(MAXREG), 

4 MZERO(2,  MAXREG),  NBND ( 0 ;MAXREG) , NF (MAXDAT,  MAXREG), 

4 PVAR,  RANGEM(2.  MAXREG),  RATSTR( MAXDAT,  0;MAXSET), 

4 RAWNF(MAXDAT,  0;MAXSET),  RAWSTR( MAXDAT,  0;MAXSET), 

4 SIG(MAXR£GJ,  SIGMA2 (MAXREG) , STR(MAXDAT,  MAXREG), 

4 SUHAT2  (MAXREG)  , SWHAT2  (MAXMG)  , SX2(MAXREG), 

4 SXY(MAXREG),  SY2 (MAXREG),  SZERO 


LIST  OF  VARIABLES 

BIGKHT  EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  THE  S/N 

DATA  SET 

CZERO  EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO 

DD()  1-D  ARRAY  CONTAINING  SXYfL) /SX2 (L)  FOR  EACH  REGION 

delta ( ) 1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU() 

AND  SIG()  CALCULATION 

FTUZ  ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

FTYZ  YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

lOUT  OUTPUT  DUMP  CONraOLLER 

IZEROO  2-D  ARRAY  CONTAINING  lo,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
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c 

C JZERO( ) 
C 

C KRATIO 
C L 
C lAMN 
C 

C LNNF( ) 

C LNSTR( ) 
C MAXDAT 
C MAXREG 
C MAXSET 
C MC(  ) 

C 

c 

c 

C MCHATO 
C 
C 
C 

C MCPNT( ) 

C MEDM() 

C MO( ) 

C 

C MPNT( ) 

C 

C MPROC 
C 

C MU() 

c 

C M2ERO(  ) 
C 

c 

C NBND() 

C 

C NF( ) 

C 

C NNODAT 
C NP() 

C 

C NPPR() 

C 

C NPTS  < ) 

C NSETS 
C NUMREG 
C PVAR 
C RANGEMO 
C 
C 

C RATSTR( ) 
C 

C RAWNFO 
C 

C RAWSTRO 
C 

C REFNPO 
C 

C SIG( ) 

C 

C SIGMA2 ( ) 
C 

C STR() 

C 

C SUHAT2 ( ) 
C 

C SWHAT2 ( ) 
C 

C SX2 ( ) 

C 

C SXY ( ) 

C 

C SY2  ( ) 

C 

C SZERO 


FOR  EACH  REGION 

2- D  array  containing  Jo,  THE  95%  CONFIDENCE  INTERVALS  Gtl  M 
FOR  EACH  REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- d  array  containing  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 

3-d  array  containing  LN(  RATSTR(  ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALIxk^D 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  ^ 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  * SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC()  FOR  EACH  REGION  ' ' , 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTIC»I 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

M2ERO( ) FOR  EACH  REGION  / / / f 

Materials  PROCess  variation  -CCMJTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  CW  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2.L) 
IS  THE  UPPER  BOUND  ' ' 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  array  containing  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 
MATERIALS  PROCESS  VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANCT:S  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGI(»I 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTIC»J 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTRM  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  R£X:iONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGI<»I  (X=LnS,  Y=LnN) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  ^GION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 
REGION  (X  = Ln  S,  Y = Ln  N) 

1-D^ARI^Y  CONTAINING  SAMPLE  Y VARIANCE:  FOR  EACH  REGICXJ 
STRESS  TENSILE  TEST  POINT,  So 
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c 

c 

c 

c 

c 


VARY 


ZROREG 


CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  - 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


OPEN(5,  FILE  = 'RELATD',  STATUS  = 'OLD') 

OPEN(6,  FILE  = 'RELATO',  STATUS  = 'NEW') 

C RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA  SET  INFORMATION 
C RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
C INFORMATION 

C PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 
C INITIALIZE  PRIMARY  ARRAYS 

CALL  INIT  (NPTS,  RAWNF,  RAWS'TR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 

£.  NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 ) 

C READ,  CONVERT,  ECHO  INFORMATION 

CALL  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR, 

& LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT, 

& NSETS,  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO, 

& SIGMA2,  KRATIO,  LAMN) 

C CALCULA'TE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS.  NP,  LNSTR,  LNNF,  SX2 , SXY,  SY2,  DD, 

& SWHAT2,  SUHAT2,  NPPR) 

C CALCULATE  M CONTRAINT  BASED  ON  Co 

CALL  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 

& JZERO,  MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  'TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 

£.  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONS'TRAIN'TS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 
WRITE(7,900) 


& 


DO  25  L = 1,  NUMREG 

WRITE(7,905)  L,  IZER0(1,  L),  IZER0(2,  L) , 
JZEROU,  L),  JZERO(2,  L) 
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25 


CONTINUE 


WRITE(7,910) 

DO  50  L = 1.  NUMREG 

WRITE(7,915)  L,  MCHAT(2,L),  MCHAT(1,L) 

50  CONTINUE 

IF  (CZERO  .GT.  0,0)  THEN 
WRITE(7,960) 

DO  150  L = 1,  NUMREG 

IF  (MCPNT(L)  ,EQ.  1)  THEN 
?feTE(7,$65)  L,  MC(1,L) 

ELSEIF  (MCPNT(L)  ,EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  HC(2,L) 

ENDIF 

150  CONTINUE 

ENDIF 

WRITE(7,920) 

WRITE(7,930) 

DO  100  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM<1,L),  RANGEM(2,L) 

100  CONTINUE 

WRITE (7, 950) 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 

CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
t NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 


200 


IF  ((VARY  ,EQ.  0)  .OR.  (VARY  .EQ. 
DO  200  L = 1,  NUMREG 

RANGEM(1,L)  = MEDM(L) 
RANGEM(2,L)  = MEDM(L) 
CONTINUE 
ENDIF 


1))  THEN 


ELSE 

C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATI(»)  FOR  FArH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO, 
t SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF  ' 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 
fc  MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 
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WRITE(7,975) 


350 


DO  350  L = 1,  NUMREG 

WRITE(7,980)  L,  MCHAT(1,L) 
CONTINUE 


360 


IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7,960) 

DO  36d  L = 1,  NUMREG 

IF  (MCPNT?L)  .EQ.  1)  THEN 
WRITE(7,865)  L,  MC(1,L) 

ELSEIF  (MCPNT(L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 
ENDIF 
CONTINUE 
ENDIF 


WRITE{7,920) 

WRITE(7,930) 


DO  370  L = 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 
370  CC»JTINUE 


WRITE(7,950) 


380 


WRITEr7,985) 

DO  380  L = 1,  NUMREG 
WRITE(7,990)  L,  MU(L) 
CONTINUE 


SIG(L) 


ENDIF 


C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1)  THEN 
WRITE(7,995)  PVAR 
ENDIF 


C FORMAT  STATEMENTS 

900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of 

i 'Technology.  U.S.  Government' , /,2X, 'Sponsorship  under 

& 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

& 2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

6 ///,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m ', 

& 'FOR  EACH  REGION',/) 

905  FORMAT (7X, 'REGION;  ',I1,7X, 'lo  = ( ' ,F12 .9 , ' , ' ,F12 .9, ' ) ' , 

& /,24X,'Jo=  (',F12. 9, ',',F12. §,')') 

910  FORMAT (//,  2X , 'POINT  ESTIMA'TES  OF  C AND  m FOR  EACH  REGKXl', 

& //,7X, 'REGION' ,8X, 'E(C) ' , 12X, 'E(m) ' ,/) 

915  FORMAT(9X,Il,8X,F11.9,5X,F9.6) 

920  FORMAT (///, 2X, 'POS'TERI OR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 

& ' REGION ' ) 

930  FORMAT (//,2X, 'REGION' ,5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 

940  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

950  FORMAT(///) 

960  FORMAT (//,2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

& ' CONSTRAINT ' , 

& //,2X, 'REGION' ,5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 

965  FORMAT(6X,Il,8X,F8.4,8X, 'INFINITY' ) 

970  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 
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975  FORMAT (2X, 'Copyright  (C)  1990^  California  Institute  of  \ 

& ' Technology . u . s . Government ' , / , 2X, ' Sponsorship  under  ' , 

& 'NASA  Contract  NAS7-918  is  acknowledge  a.',////, 

& 2X, 'RESULTS  OF  INFORMATICS  AGGREGATION  CALCULATIONS’, 

i ///,2X, 'ESTIMATE  OF  m FOR  EACH  REGION', 

& //,7X, 'REGION', 12X,'E(m)',/) 

980  FORMAT(9X,Il, 11X,F10.6) 

985  FORMAT (2X, 'POSTERIOR  NORMAL  DIS’TRIBUTION  PARAMETERS', 

& //,2X, 'REGION' ,5X, 'MEAN', 8X, 'STD  DEV',/) 

990  F0RMAT(5X,I1,5X,F7.4,5X,E11.5) 

995  FORMAT(/,2X, 'THE  EXTENT  OF  DEPARTURE  FRCM  THE  MULTIPLE  HEAT  ', 

& 'MEDIAN  S/N  CURVE' ,/,2X, 'WARRANTED  BY  THE  AVAILABLE  ', 

t 'INFORMATION' ,//,7X, El 1.5) 


RETURN 

END 


Q********************** ****** ******************************************** 


SUBRCXJTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
ONE  OF  THE  PRCXSRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  5C5CT87 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  TRMNAT 

WRITE (8,*)  'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 


************************************************************************ 


SUBROUTINE  INIT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 
PR03RANMER:  L.  NEWLIN 

DATE;  CODE;  21JUN88  COMMENTS:  13JUL89 

VERSICS;  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INIT  (NPTS,  RAWNF,  RAWSTR,  RATS'TR,  NP,  LNNF,  LNSTR, 

& REFNP,  NF,  STR,  MPNT,  MZERO,  DELTA,  HO,  SIGMA2 ) 

C INPUTS ; — 

C OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 

C NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  I OUT 

INTEGER  I,  lOUT,  J,  K,  L,  MPNT ( MAXREG ) , NP(0:MAXSET,  MAXREG), 

& NPTS(0:MAXSET) , REFNP(MAXREG) 

REAL  DELTA ( MAXREG ) , LNNF(MAXDAT,  0:HAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  HO(HAXREG), 
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& 

& 

& 

& 


DELTA  ( ) 
I 

lOUT 

J 

K 

L 

LNNF( ) 

LNSTRO 

MAXDAT 

MAXREG 

MAXSET 

MO() 

MPNT(  ) 

MZ£RO(  ) 

NF() 

NP{) 

NPTS( ) 
RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

SIGMA2( ) 

STR(  ) 


MZERO(2,  MAXREG},  NF(MAXDAT,  MAXREG), 

RATSTR( MAXDAT,  OiMAXSET),  RAWNF ( MAXDAT , OtMAXSET), 

RAWSTR( MAXDAT,  OiMAXSET),  SIGMA2 (MAXREG) , ^ 

STR(MAXDAT,  MAXREG) 

LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MUH  AND 
SIG()  CALCULATION 

each  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3-d  array  CONTAINING  LN(RAWNF()),  ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  Ln|rATSTR(  ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  sA' thTA  SET  ( PER  MGI ON ) AU^ 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  ' 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZEROO  FOR  EACH  REGION  , 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

Is‘^TH^UPPEr“bOU^°^^'^’  MZERO(2,L) 

2-D  containing  I^WNF{)  (CYCLES  TO  FAILURE)  FC«  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
2-D  array  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  ( % ) FOR  ATT.  S/N  DATA  SETS 

CYCLES  TO  FAILURE  DATA  FOR  ATT.  s/N 

DATA  SETS 

STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS  ' 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

values  of  the  prior  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGI(M« 

CONTAINING  RATSTRM  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REXSIONS  (PSI  OR  %) 


DO  100  J = 0,  MAXSET 
NPTS(J)  =0.0 
100  CONTINUE 

DO  200  L = 1,  MAXREG 
DO  250  J = 0,  MAXSET 
NP(J,  L)  = 0.0 
250  CONTINUE 
200  CONTINUE 

DO  300  J = 0,  MAXSET 
DO  350  1=1,  MAXDAT 
RAWNF(I,J)  =0.0 
RAWSTR(I,J)  = 0.0 
RATSTR(I,J)  =0.0 
CONTINUE 


350 


300  CONTINUE 

DO  400  L = 1,  MAXREG 
DO  425  K = 1,  MAXDAT 
DO  450  J = 0,  MAXSET 
LNNF(K,J,L)  = 0.0 
LNSTR(K,J,L)  = 0.0 
450  CONTINUE 

425  CONTINUE 
400  CONTINUE 


DO  500  L = 1,  MAXREG 
DO  550  K = 1.  MAXDAT 
NF(K,L)  = 0.0 
STR(K,L)  = 0.0 
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550  CONTINUE 
500  CONTINUE 

DO  600  L = 1,  MAXREG 
REFNP(L)  = 0 
MPNT(L)  = 0 
MZERO(l,L)  =0.0 
MZERO(2,L)  =0.0 
DELTA(L)  =0.0 
MO(L)  =0.0 
SIGMA2(L)  =0.0 
600  CONTINUE 

RETURN 

END 


C********** ************ ************************************************** 


C SUBROUTINE  RCE  "READS"  THE  DATA  FROM  SPECFD  AND  RELATD;  "C(MJVERTS" 

C THE  STRESS  DATA  TO  A STRESS  RATIO  OF  -1.0;  AND  "ECHOES"  THE  DATA  TO 
C SPECFO  AND  RELATO.  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
C SPECIFIED  BY  USER 
C PROGRAMMER:  L.  NEWLIN 

C DATE;  21JUN88  FORMAT/COMMENTS;  12AXJG91 

C VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

4 LNSTR,  LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG, 

4 NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZERO, 

4 FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 


INPUTS:  VARY,  MPROC 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

STR,  NF,  SZERO,  ZROREG,  NUMREG, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ, 
KRATIO,  LAMN 

SUBPROGRAMS:  TRMNAT,  CONVRT 


LNSTR,  LNNF,  REFNP, 
NNODAT,  NSETS,  NBND, 
DELTA,  MO,  SIGMA2, 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 

INTEGER  COUNT,  I,  lOUT,  J,  K,  L,  M,  MPNT(MAXREG) , MPROC,  NDIV, 
4 NNODAT,  NP(0:MAXSET,  MAXREG),  NPTS(0:MAXSET) , NSETS, 

4 NUM,  NUMREG,  REFNP ( MAXREG ) , REG,  VARY,  ZRORIXS 

REAL  CZERO,  DELTA ( MAXREG ) , FTU,  FTUZ,  FTY,  FTYZ, 

4 KRATIO,  LAMN,  LNNF(MAXDAT,  0:MAXSET,  MAXREG), 

4 LNSTR(MAXDAT,  0 : MAXSET,  MAXREG),  MO ( MAXREG ) , 

4 MZERO(2,  MAXREG),  NBND ( 0 : MAXREG ) , 

4 RATIO,  RATSTR (MAXDAT,  0:MAXSET), 

4 RAWSTR  (MAXDAT,  0;  MAXSET),  SIGMU( 

4 STR (MAXDAT,  MAXREG),  SZERO 

CHARACTER*40  DESCRP( 0 ;MAXSET) 


NF(MAXDAT,  MAXREG), 
RAWNF  (MAXDAT,  0;  MAMET), 
MAXR£0 ) f 


LIST  OF  VARIABLES 


COUNT 
CZERO 
DELTA  ( ) 
DESCRP ( ) 


INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 
CONVERSION,  AND  BREAK  UP 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  CO 

l-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION  '' 

l-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 
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C FTU 
C FTUZ 

c Fry 

C FTYZ 
C I 
C lOUT 
C J 
C K 

C KRATIO 
C L 
C LAHN 
C 

C LNNF( ) 

C LNSTRO 
CM 

C MAXDAT 
C HAXREG 
C MAXSET 
C MO(  ) 

C 

C MPNT() 

C 

C MPROC 
C 

C HZEROO 
C 

C NBNDO 
C 

C NDIV 
C 

C NF(  ) 

C 

C NNODAT 
C NP( ) 

C 

C NPTS() 

C NSETS 
C NUM 
C NUMREG 
C RATIO 
C RATSTR( ) 

C RAWNF() 

RAWSTR( ) 

REFNPO 

REG 

SIGHA2( ) 

STR( ) 

SZERO 
VARY 


ZROREG 


ALSO  INDEXED  FOR  REGION 
ALSO  INDEXED  FOR  REGKXf 


ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 
IHi^MATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSIJ  FOR  SPECIFIC  MATERIAL 
CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

k*/k,  constant  over  regions  and  CCWPONENTS 
CONTROLS  EX)  LOOP  FOR  EACH  REGKXI 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  c**2), 

CONSTANT  OVER  ALL  REGIONS  AND  COHPCXIENTS 
3-d  array  CONTAINING  LN(RAWNF() 

3-d  array  containing  LN(RATSTR(,  ,, 

CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGICXI)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  ' 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

^~ME^^OR^E^^^GION^^^  NORMAL  DISTRIBUTION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2.  IN 

MZEROf  ) FOR  EACH  REGION  • r , , 

Materials  PROCess  variation  - CONTROLS  MATERIALS  PROCESS 
VARIATION  - 0 - NO  VARIATION;  1 - VARIATICW 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

IS  T{^UPpL“bOU^°^^'^^  ^ MZERO(2,L) 

Of'^OTEREST^^^^^  (CYCLES)  FOR  THE  NUMREG 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT 

2-D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGICmS 

regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  array  containing  number  of  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISIC»I 
NUMBER  OF  REGIONS  OF  INTEREST 
STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

STRESS  DATA  (PSI)  CORRECTED  FOR  STRESS 
^TIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 

DATA  SETS 

2 -D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 

^"9«S55^^L,22NTAINING  the  number  of  points  for  the  specific 

(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION 

^ DISTRIBUTION 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  _ 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATKMJ 
ZeRO  REGlon  — VALUES  CHOSEN  TO  FACILITATE  REGICX)  DO  LOOP 
MGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 


C INITIALIZE  COUNT  AND  NBND ( ) 

COUNT  = 0 

DO  10  L = 0,  MAXREG 
NBNDfL)  =0.0 
10  CONTINUE 

C INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 
READ(1,*)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(O) 
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IF  (NPTS(O)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

WRITE(3,900)  DESCRP(O),  FTY.  FTU,  NPTS(O) 

IF  (lOUT  .EQ.  10)  WMTE(8,900)  DESCRP(O),  FTY,  FTU,  NPTS(O) 

WRITE (3, 9 05) 

IF  (lOUT  .EQ.  10)  WRITE(8,905) 

C STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 

FTUZ  = FTU 
FTYZ  = FTY 

INPUT  STRESS /LIFE  INFORMATION  — INCLUDING  STRESS  RATIO  AND  REGION 
INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 

DO  100  M = 1,  NDIV 

READ  (1,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO;  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 

WRITE (8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

DO  110  I = (COUNT  + 1),  (COUNT  + NUM) 

READ(1,*)  RAWSTR(I,0),  RAWNF(I,0) 

110  CONTINUE 

CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

STRESS  RATIO  IS  CORRECT 

DO  120  I = (COUNT  + 1),  (COUNT  + NUM) 

RATSTR(I,0)  = RAWSra(I,0) 

120  CONTINUE 

ELSE 

STRESS  RATIO  TRANSFORMATICW  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 

& RATIO,  FTU,  FTY) 

ENDIF 

ECHO  STRESS /LIFE  DATA  ON  SPECIFIC  MATERIAL 

DO  130  I = (COUNT  + 1),  (COUNT  + NUM) 

WRITE(3,910)  RAWSTR(I,0),  RAWNF(I,0),  RATIO,  REG, 

& RATSTR(I,0),  RAWNF(I,0) 

IF  (lOUT  .EQ.  10)  WRITE(8,910)  RAWS'TR(I,0) , RAWNF(I,0), 

& RATIO,  REG,  RATSTR(I,0),  RAWNF(I,0) 

130  CONTINUE 

BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  RAREST 

K = NP(0,REG) 

DO  140  I = (COUNT  + 1),  (COUNT  + NUM) 


7-294 


K = K + 1 

LNSTR(K, 0,REG)  = ALOG(RATSTR(I, 0) ) 
I^NF(K, 0,REG)  = ALOG(RAWNF(I,0) ) 
STR(K,REG)  = RATSTR(I.O)  ' ' " 
NF(K,REG)  = RAWNF(I,0) 


.GT.  0)  THEN 


140  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) ' E2UIOR : OVER  NUMBER  OF  POINTS  LIMIT  IN 

& 'SPECIFIC  MATERIAL'  ^-Lru.1. 

CALL  TRMNAT 
ENDIF 

NP(0,REG)  = K 
REFHP(REG)  = K 
COUNT  = COUNT  + NUM 

100  CONTINUE 

IF  (NPTS(O)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR;  NUMBER  OF  POINTS  PER  DIVISKM  ' 

* 'INCORRECTLY  SPECIFIED'  ' 

DATA  SET' 

ENDIF 

READ(1,*)  SZERO 
IF  (NINT  (SZERO) 

ZROREG  = 0 
ELSE 

ZROREG  = 1 
ENDIF 

IF  (lOUT  .EQ.  10) 

fc  WRITE(8,*)  'SZERO  = ',  SZERO,  ' ZROREG  = ZROREG 

INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORHATICXt 

READ(1,*)  NUMREG,  NNODAT 

.(JI^DMREG  + NNODAT)  .GT.  MAXREG)  THEN 

' error  ; EXCEEDED  LIMIT  CMJ  NUMBER  OF  REGIONS 

ENDIF 

DO  150  L = ZROREG,  (NUMREG  + NNODAT) 

REAIMl,*)  NBND(L)  ' 

150  CONTINUE 

READ(1,*)  CZERO 

DO  160  L = 1,  (NUMREG  + NNODAT) 

160  MPNT(L),  MZER0(1,£),  MZER0(2,L) 

WRITE(3,913) 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  (lOUT  .EQ.  10)  THEN  ^ 

WRI'TE(8,913) 

™ (ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
ENDIF  ' 

WRITE (3, 915)  NUMREG,  NNODAT 

IF  (lOUT  .EQ.  10)  WRITE(8,915)  NUMREG,  NNODAT 

DO  170  L = ZROREG,  (NUMREG  + NNODAT) 

WRITE(3,920)  NBND(L)  ' 

170  CON^InAI^"^  WRITE(8,920)  NBND(L) 


WRITE(3,925)  CZERO 

IF  (lOUT  .EQ.  10)  WRITE(8,925)  CZERO 
DO  180  L = 1,  (NUMREG  + NNODAT) 
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WRITE(3,930)  L,  MPNT(L), 
IF  (lOUT  .EQ.  lO) 


MZERO<l,L),  MZERO(2,I.) 


«.  vtoTE(8,930)  t,  MPNT(L),  MZERO(l,L).  MZERO(2,L) 

IF  ((VARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  0))  THEN 

WRITE (8,*)  'ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR 

S,  'RANGE  ON  M' 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 

IF  (VARY  .EQ.  3)  THEN 

READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 
WRITE (3, 945) 

IF  (lOUT  .EQ.  10)  WRITE(8,945) 

DO  190  L = 1,  (NUMREG  + NN<»AT) 

READ(1.*)  DEiTA(L),  MO(L) , SIGMA2(L) 

WRITE(3,§50)  L,  DELTA(L),  M0(L),  SIGMA2(L) 

IF  (lOUT  .EQ.  lO) 

WRI'TE(8,950)  L,  DELTA(L),  M0(L),  SIGMA2(L) 

IF  ((DEL'TA(L)  .LT.  0.0)  .OR. 


((DELTA(L)  .GT.  0.0)  .AND.  (MO(^L)  .LE.  0.0)))  THEN 
WRITE (8,*)  'ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF  MO  ' , 

' INCONSISTENT  WITH  DELTA  IN  REGION  ' - L 


CALL  TRMNAT 
ENDIF 
190  CONTINUE 
ENDIF 


IF  (MPROC  .EQ.  1)  THEN 
READ(1,*)  KRATIO,  LAMN 
WRITE(3,955)  KRATIO,  LAMN 

IF  (lOUT  .EQ.  10)  WRITE(8,955)  KRATIO,  LAMN 
ENDIF 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  'TO  RELATO 

READ(5,*)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELA'TED  DATA  SETS' 

CALL  TRMNAT 
ENDIF 

WRITE (6, 935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  = 0 

IF  (lOUT.  EQ.  10)  WRITE(8,*)'J  =',  J,  ' NSETS  , NSETS 

READ(5,*)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRI'TE  ( 8 , * ) ' ERROR : OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  ' , 

& ' SET  ' , J 

CALL  'TRMNAT 
ENDIF 

WRITE(6,940)  DESCRP(  J)  , FTU,  FTY,  NPTSM) 

IF  (lOUT  .EQ.  10)  WRITE(8,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 
WRITE (6, 905) 

IF  (lOUT  .EQ.  10)  WRITE(8,905) 

DO  300  M = 1,  NDIV 

READ(5,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  OF  RATIO;  ',  RATIO 

CALL  TRMNAT 
ENDIF 


7-296 


IF  (REG  .GT.  MAXREG)  THEN 
WRITE (8,*) 

'ERROR;  OVER  REGION  LIMIT  IN  RELATED  MATERIAL  J 
CALL  TRMNAT 
ENDIF 


IF  (lOUT  .EQ. 
WRITE(8,*) 
WRITE  8,*) 
ENDIF 


10)  THEN 

'NUM  = NUM,  ' COUNT  = ' COUNT 
'RATIO  = ',  RATIO,  ' REG  = REG 


310 


DO  310  I = (COUNT  + 1),  (COUNT  + NUM) 
READ(5,*)  RAWSTR(I,J),  RAWNF(I,J) 
CONTINUE 


C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 
IF  (RATIO  .EQ.  -1.0)  THEN 
C STRESS  RATIO  IS  CORRECT 


320 


DO  320  1 = (COUNT  + 1),  (COUNT  + NUM) 
RATSTR(I,J)  = RAWS'TR(I,J) 

CONTINUE 


ELSE 


C 


& 


STRESS  RATIO  'TRANSFORMATICMI  MUST  BE  DONE 
CALL  CONVRT(J,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR, 
RATSTR,  RATIO,  FTU,  FTY) 


ENDIF 


C 


& 

& 

330 


RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 


DO  330  I = (COUNT  + 1),  (COUNT  + NUM) 


WRITE(6,910)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 
RATSTR(I,J),  RAWNF(I,J) 


)RAWSTR(I,J) , RAMNF(I,J) 
“111(1, J),  RAWNF(I,J) 


» 


CONTINUE 


K = NP(J,REG) 

IX)  340  I = (COUNT  + 1),  (COUNT  + NUM) 
K = K + 1 

LNSTR(K,  J,REG)  = ALOG(RATS'TR(  I,  J)  ) 
LNNF(K, J,REG)  = ALOG(RAWNF( I, J) ) 

340  CONTINUE 


& 


IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS 

' IN  SET  ' , J ' 

CALL  TRMNAT 
ENDIF 


NP(J,REG)  = K 
COUNT  = COUNT  + NUM 

300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR;  NUMBER  OF  POIN'TS  PER  DIVISION 
& ' INCORRECTLY  SPECIFIED  IN  SET  ' , J 

CALL  TRMNAT 
ENDIF 

200  CONTINUE 
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C FORMAT  STATEMENTS  USED  TO  WRITE  TO  SPECFO  AND  RELATO 

900  F0RMAT(////,13X, 'MATERIAL  INPUT' .///, 2X, ' DESCRIPTION; 2X,A40 ,// , 
fc  2X, 'YIELD  STRENGTH', 18X,e11. 5, //,2X, 'ULTIMATE  STRENG'TH', 

& 15X,E11.5,//,2X, 'NUMBER  OF  POINTS' , 16X, 12) 

905  FORMAT( //, 7 X, 'ORIGINAL  S/N' ,9X, 'STRESS' , 15X, 'TRANSF(»MED  S/N', 

& /,bX, 'STRESS',7X, 'LIFE', 7X, 'RATIO', 3X, 'REGION', 5X, 

t 'STRESS' ,7X, 'LIFE' /) 

910  F0RMAT(2X,E11 .5,2X,F9 .0,5X,F5.2,5X,I1,5X,E11.5,2X,F9.0) 


913  FORMAT(//) 

914  F<!»tMAT(2X,  "THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF'  , 

& 5X,E11.5) 

915  FORMAT (2X, 'THERE  IS  ',12,'  REGION (S)  WITH  DATA  ', 

& /,2X,'AND  ',12,'  REGION(S)  TO  THE  RIGHT  WI'THOUT  DATA', 

& /,2X,'THE  UPPER  BOUND(S)  OF  THE  REGION(S)  ARE  ', 

& '(CYCLES):  ',/) 

920  FORMAT (10X,E9. 3) 

925  F0RMAT(///,2X, 'EXOGENOUS  INFORMATION' , ///,2X, 

& 'CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C;',2X,F6.4, 

& //, 2 X, 'EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION:', 

& //,2X, 'REGION' ,5X, '#  OF  POINTS ', 5X, 'IX3WER  BOUND' , 

& 5X, 'UPPER  BOUND' ,/) 

930  FORMAT(6X,Il, llX, II , 12X, F7 . 4, 9X,F7 ,4 ) 

935  FORMAT(20X, 'NUMBER  OF  DATA  SETS : ' ,2X, 12 , //, 17X. 

& 'NOTE;  ALL  Kt  ASSUMED  TO  BE  1 .0' , ////,23X, 

& "TRANSFORMED  DATA') 


940  FORMAT(///,2X, ' DESCRIPTION; ', 2X.A40, 

& //,2X, 'YIELD  S'TRENGTH' ,16x,F7.0, 

& //,2X, 'ULTIMATE  STRENGTH' . 15X,F7 .0, 

& //,2X, 'NUMBER  OF  POINTS' ,16X, 12) 


945  FORMAT(/,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS:'. 

& //,2X, 'REGION' ,5X, 'DELTA', 8X, 'mo',10X, 'SIGMA2' ,/) 

950  FORMAT(5X,Il,5X,F7.2,5X,F7.4,5X,E11.5) 

955  FORMAT( //, 2 X, 'MATERIALS  PROCESS  VARIATION  INFORMATION', 

//,2X, 'MEDK*/MEDK: ' , 5X,E11.5,/,5X, 'LAMBDAN; ' ,5X,E11.5) 


RETURN 

END 


THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  CN  STR()  WHEN  THE 
STRESS  RATIO,  R,  IS  NOT  -1.0 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4-3,  V4.4,  V4.5 

SUBROUTINE  CONVRT  (J,  NUMl,  NUM2,  STR,  RSTR,  R,  FTU,  FTY) 

C INPUTS:  J,  NUMl,  NUM2,  STR,  R,  FTU,  FTY 

C OUTPUTS:  RSTR 

C IMPLICIT  NONE 
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INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXSET  = 5) 

COMMCMJ  lOUT 

INTEGER  I,  lOUT,  J,  NUMl,  NUM2 

REAL  FTU,  FTY,  R,  RSTR(MAXDAT,  0;MAXSET), 

i STR(MAXDAT,  OrMAXSET),  TEST 


LIST  OF  VARIABLES 


FTU 

FTY 

I 

lOUT 

J 

MAXDAT 

MAXSET 

NUMl 

NUH2 

R 

RSTR( ) 
STR( ) 
TEST 


ULTIMATE  STRENGTH  OF  MATERIAL  (PSI) 

YIELD  STRENGTH  OF  MATERIAL  (PSI) 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 
DATA  SET  OF  INTEREST 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

STR()  VALUES  TRANSFORMED  TO  R = -1.0  (PSI) 

ARRAY  CONTAINING  STRESS  VALUES  (PSI)  FOR  S/N  CURVE 
Kt  * Smax  * (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I = NUMl,  NUM2 

TEST  = STR(I,J)  * (1.0  - R)/2.0 

IF  (lOUT.EQ.lO)  WRITE(8,*)  'I  J =',J, ' TEST  =' ,TEST 

IF  (TEST  .GE.  FTY)  THEN 
RSTR(I,J)  = TEST 

IF  (lOUT.EQ.lO)  WRITE(8,*) '1;RSTR( ) =',RSTR(I,J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR(I,J)  = TEST/(1.0  -((FTY  - TEST)/FTU)) 

IF  (lOUT.EQ.lO)  WRITE(8,*) '2:RSTR( ) =',RSTR(I,J) 

ELSE 

RSTR(I,J)  = raST/(1.0  - ((1.0  + R)  * STR(I,J) 
i /(2.0  * FTU))) 

IF  (lOUT.EQ.lO)  WRITE(8,*) '3:RSTR( ) =',RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 

END 


c 

c 

c 

c 

c 


SUBROUTINE  SW2SU2  CALCULATES,  SWHAT2,  THE  RESIDUAL  VARIANCES  OF  Y ON  X 
AND,  SUHAT2,  THE  X ON  Y REGRESSIONS  FOR  EACH  REGIC»J  WHERE  Y = LN(NF)  AND 
X = LN(STR);  TO  BE  USED  IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE;  60CT87  COMMENTS:  13JXJL89 
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VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY, 

& SY2,  DD,  SWHAT2,  SUHAT2,  NPPR) 

INPUTS:  NUMREG,  NSETS,  NP,  LNSTR,  LNNF 

OUTPUTS:  SX2,  SXY,  SY2,  DD,  SWHAT2,  SUHAT2,  NPPR 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  » 50,  MAXREG  = 3,  MAXSET  - 5) 

COMMON  lOUT 

INTEGER  lOUT,  J,  K,  L,  NP(0:MAXSET,  MAXREG),  NPPR(MAXREG) , 

& NSETS,  NUMREG 

REAL  BB(MAXREG),  DD(MAXREG),  DIFFX(MAXDAT,  0:MAXSET), 

& DIFFY(MAWAT,  0:MAXSET),  LNNF(MAXDAT,  0:MAXSET,  MAXREG), 

& LNSTR(MAXDAT,  0:MAXSET,  MAXREG),  MEANXf 0 tMAXSET) , 

& MEANY(0:MAXSET) , SUHAT2 (MAXREG) , SWHAT2 (MAXREG) , 

& SX2 (MAXREG),  SXY(MAXREG),  SY2 (MAXREG) 


LIST  OF  VARIABLES 


SSli 

DIFFX( ) 

DIFFY( ) 

lOUT 

J 

K 

L 

LNNF( ) 
LNSTR  ( ) 
MAXDAT 
MAXREG 
MAXSET 
MEANX(  ) 

HEANY( ) 

NP() 

NPPR{) 

NSETS 
NUMREG 
SUHAT2 ( ) 

SWHAT2(  ) 

SX2() 

SXY(  ) 

SY2() 


1-D  ARRAY  CONTAINING  SXY(L) /SY2(L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  SXY(L) /SX2  (L)  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNSTR(K,J,L) 

AND  MEANX(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  TOR  REGION  L 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,L) 

AND  MEANY(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3- D  ARRAY  CONTAINING  LN(RAWNF( ) ) , ALSO  INDEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (X  = Ln  S) 

1- D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FR<»I  REGION 
L AND  DATA  SET  J (Y  « Ln  N) 

2- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (NuimDer  of  Points  Per  Region) 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGICMfl 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 
EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGICW 
(Y  = Ln  N) 


C INITIALIZE  ARRAYS 

DO  50  L = 1.  MAXREG 
SY2(L)  =0.0 
SX2(L)  =0.0 
SXY(L)  =0.0 
SWHAT2(L)  =0.0 
SUHAT2(L)  =0.0 
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BB(L)  = 0.0 
DD(L)  = 0.0 
NPPR(L)  = 0 
50  CONTINUE 


70 


60 


DO  60  J = 0,  MAXSET 
DO  70  K = 1,  MAXDAT 
DIFFY(K,J)  = 0.0 
DIFFX(K,J)  = 0.0 
CONTINUE 
MEANY(J)  = 0.0 
MEANX(J)  = 0.0 
CONTINUE 


C NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 


DO  200  J = 0,  NSETS 

FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 
FOR  DATA  SET  J IN  REGION  L 
MEANY(J)  = 0.0 
MEANX(J)  = 0.0 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =',  L,  ' J =' , J, 
6 ' NP  =',  NP(J,L) 


& 

250 


DO  250  K = 1,  NP(J,L) 

MEANY(J)  = MEANY(J)  + LNNF(K,J,L) 
MEANX(J)  = MEANX(J)  + LNSTR(K,J,L) 

IF  (lOUT  .EQ.  10)  WRlTE(8,*i  'LNNF  =' 
' LNSTR=',  LNSTR(K,J,L) 

CONTINUE 


LNNF(K,J,L) , 


MEANY(J)  = MEANY(J)/FLOAT(NP(J,L)) 

MEANX(J)  = MEANX(J)/FLOAT(NP(J,L) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'MEANY(J)  ='  MEANY(J), 
6 ' MEANX(J)  =',  MEANX(J) 

NOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 

OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 


300 


DO  300  K = 1,  NP(J,L) 

DIFFY(K,J)  = LNNF]k,J,L)  - MEANY(J) 

■ ~,t)  - MEANX(J) 


DIFFX(K,J)  = LNSTR(K,J 
SY2(L)  = SY2(L)  + DIFFY(K,J) 

SX2(L)  = SX2(L)  + DIFFX(K,J) 

SXY(L)  = SXY(L^  + DIFFX(K,J) 


IF  (lOUT  .EQ! 
WRITE(8,*) 

WRITE( 8,  *) 


ENDIF 

CONTINUE 


* DIFFY(K,J) 

0)  THEN 

K =',  K,  ' DIFFY(K,J)  =' , DIFFY(K,J), 
DIFFX(K,J)  =',  DIFFX(K.J) 

SY2(L)  =',  SY2(L),  ' S^(L)  =' , SX2(L) 
SXY(L)  =',  SXY(L) 


NPPR(L)  = NPPR(L)  + NP(J,L)  - 1 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NPPR(L)  =' , NPPR(L) 

200  CONTINUE 

IF  (SXY(L)  .GE.  0.0)  THEN 

LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE(8,*)  'ERROR:  SXY  >=  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 


NPPR(L)  = NPPR(L)  - 1 
IF  (NPPR(L)  .LE.  0)  THEN 

WRITE (8,*)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN 

& 'REGION  ',L 

CALL  TRMNAT 
ENDIF 
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SY2(L)  = SY2(L)  / FLOAT ( NPPR ( L ) ) 

SX2(L)  = SX2(L)  / FLOAT ( NPPR (L ) ) 

SXY(L)  = SXY(L)  / FLOAT ( NPPR (L ) ) 

C NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 

C REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 


& 

& 


DD(L)  = SXY(L)  / SX2(L) 
BB(L)  = SXY(L)  / SY2(L) 

IF  (lOUT  .EQ.  10)  THEN 
WRITE(8,*)  'NPPR(L)  =' 
' SX2(L)  =' 
WRITE(8,*)  'SXY(L)  =', 
' BB  L =' 


, NPPR(L), 
, SX2(L) 
SXY(L),  ' 
BB(L) 


' SY2(L)  SY2(L), 
DD(L)  DD(L), 


& 

& 

& 


500 

400 


DO  400  J = 0,  NSETS 

IF  (lOUT  .EQ.  10)  WRITE(8,*) 


'J  =',  J,  ' NP(J,L)  NP(J,L) 


DO  500  K = 1,  NP(J,L) 

SWHAT2(L)  = SWHAT2(L) 

+ (DIFBTf(K,J)  - DD(L)  * DIFFX(K, J) ) **  2 
SUHAT2(L)  = SUHAT2(L) 

+ 


- BB(L)  * DIFFY(K,J))  **  2 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'K  =' , K,  ' SWHAT2(L)  =' 
SWHAT2(L),  ' SUHAT2(L)  =' , SUHAT2(L) 

CONTINUE 

CONTINUE 


SWHAT2<L)  = SWHAT2(L)  / FLOAT ( NPPR (L ) ) 
SUHAT2(L)  = SUHAT2(L)  / FLOAT ( NPPR (L ) ) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NPPR(L)  , 
' SWHAT2(L)  =',  SWHAT2(L),  ' SUI»T2(L) 
100  CONTINUE  ' ' 


NPPR(L), 

= ',  SU^T2(L) 


RETURN 

END 


C***************1'**ii************irir**-*******-k***1i1i1HHr1t1i1t**it1t1t***1tirttirit*1,*-lrk 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CCXtFIDENCE  INTERVAL,  lo.  CW 
C;  AND  THE  95%  CC»IFIDENCE  INTERVAL,  JO,  ON  M 
L.  NEWLIN 

CODE:  50CT87  COMMENTS:  15SEP89 

MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

MATGRM  V4,‘  V4.l'  V4.2,  V4.3,  V4.4,  V4.5 


PROGRAMMER: 

DATE: 

VERSION: 


SUBROUTINE  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
«■  JZERO,  MCHAT) 


C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR 

C OUTPUTS:  IZERO,  JZERO,  MCHAT 

C SUBPROGRAMS : TRMNAT 


C IMPLICIT  NONE 


INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  = 150,  MAXREG  = 3,  TTAB  = 31) 
COMMON  I OUT 


INTEGER  I,  lOUT,  L,  NPPR ( MAXREG ) , NUM,  NUMREG 

REAL  ARG,  CHI025 (CHITAB) , CHI975 (CHITAB) , DD(MAXREG), 

IZERO(2,  MAXREG),  JZERO(2,  MAXREG),  MCHAT(2,  MAXREG), 
SUHAT,  SUHAT2 (MAXREG),  SWHAT,  SWHAT2 (MAIWEG) , SX, 

SX2 (MAXREG),  T,  T025(TTAB)  /»  » 


& 

& 

& 
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DATA 

& 

(CHI025(I»,  1=1,  75)  / 

6.000982669,  0.506356.  0.215795,  0.484419,  0. 

& 

1.237347, 

1.68987, 

2.17973, 

2.70039, 

3.24697, 

& 

3.81575, 

4.40379, 

5.00874, 

5.62872, 

6.26214, 

& 

6.90766, 

10.28293, 

7.56418, 

8.23075, 

8.90655, 

9.59083, 

& 

10.9823, 

11.6885, 

12.4011, 

13.1197, 

& 

13.8439, 

14.5733, 

15.3079, 

16.0471, 

16.7908, 

& 

17.53, 

18.28, 

19.04, 

19.80, 

20.56. 

& 

21.33, 

22.10, 

22.87, 

23.65, 

24.4331, 

& 

25.21, 

25.99, 

26.78, 

27.57, 

28.36, 

32.3574, 

& 

29.15, 

29.95, 

30.75, 

31.55, 

& 

33.16, 

33.96, 

34.77, 

35.58, 

36.39, 

& ' 

37.21, 

38.02, 

38.84, 

39.66, 

40.4817, 

& 

41.30, 

42.12, 

42.95, 

43.77, 

44.60, 

& 

45.43, 

46.26, 

47.09, 

47.92, 

48.7576, 

& 

49.59, 

50.42, 

51.26, 

52.10, 

52.94  / 

DATA 

& 

(CHI025(I),  I = 76 
53.78, 

, 150)  / 
54.62, 

55.46, 

56.30, 

57.1532, 

& 

57.80, 

58.84, 

59.69, 

60.54, 

61.39, 

& 

62.24, 

63.09, 

63.94, 

64.79, 

65.6466, 

& 

66.50, 

67.35, 

68.21, 

69.07, 

69.92, 

& 

70.78, 

71.64, 

72.50, 

73.36, 

74.2219, 

& 

75.08, 

75.94, 

76.80, 

77.67, 

78.53, 

& 

79.40, 

80.27, 

81.13, 

82.00, 

82.87, 

& 

83.73, 

84.60, 

85.47, 

86.34, 

87.21, 

& 

88.08, 

88.95, 

89.83, 

90.70, 

91.57, 

& 

92.45, 

93.32, 

94.19, 

95.07, 

95.94. 

& 

96.82, 

101.21, 

97.70, 
102. 0§, 

98.57, 

99.45, 

100.33, 

& 

102.97, 

103.85, 

104.73, 

& 

105.61, 

106.49, 

107.37, 

108.25, 

109.14, 

& 

110.02, 

110.90, 

111.79, 

112.67, 

113.56, 

& 

114.44, 

115.33, 

116.21, 

117.10, 

117.98  / 

DATA 

& 

(CHI975(I),  1=1, 
5.02389, 

75)  / 
7.37776, 

9.34840, 

11.1433, 

12.8325, 

& 

14.4494, 

16.0128, 

17.5346, 

19.0228, 

20.4831, 

& 

21.9200, 

23.3367, 

24.7356, 

26.1190, 

27.4884, 

& 

28.8454, 

30.1910, 

31.5264, 

32.8523, 

34.1696, 

& 

35.4789, 

36.7807, 

38.0757, 

39.3641, 

40.6465, 

& 

41.9232, 

43.1944, 

44.4607, 

45.7222, 

46.9792, 

& 

48.23, 

49.48, 

50.72, 

51.96, 

53.20, 

& 

54.44, 

55.67, 

56.89, 

58.12, 

59.3417, 

& 

60.56, 

61.77, 

62.99, 

64.20, 

65.41. 

& 

66.62, 

67.82, 

69.02, 

70.22, 

71.4202, 

& 

72.61, 

73.81, 

75.00, 

76.19, 

77.38, 

& 

78.57, 

79.75, 

80.93, 

82.12, 

83.2976, 

& 

84.48, 

85.65, 

86.83, 

88.00, 

89.18. 

& 

90.35, 

91.52, 

92.69, 

93.86, 

95.0231, 

& 

96.19, 

97.35, 

98.52, 

99.68, 

100.84  / 

DATA 

& 

(CHI975(I),  I = 76 
102.00, 

, 150}  / 
103.16, 

104.31, 

105.47, 

106.629, 

& 

107.78, 

108.94, 

110.09, 

111.24, 

112.39, 

& 

113.54, 

114.69, 

115.84, 

116.99, 

118.136, 

& 

119.28, 

120.43, 

121.57, 

122.72, 

123.86, 

& 

125.00, 

126.14, 

127.28, 

128.42, 

129.561, 

& 

130.70, 

131.84, 

132.98, 

134.11, 

135.25, 

& 

136.38, 

137.52, 

138.65, 

139.79, 

140.92, 

& 

142.05, 

143.18, 

144.31, 

145.44, 

146.57, 

& 

147.70, 

148.83, 

149.96, 

151.09, 

152.21, 

& 

153.34, 

154.47, 

155.59, 

156.72, 

157.84, 

£t 

158.97, 

160.09, 

161.21, 

162.33, 

163.46, 

& 

164.58, 

165.70, 

166.82, 

167.94, 

169.06, 

& 

170.18, 

171.30, 

172.41, 

173.53, 

174.65, 

& 

175.77, 

176.88, 

178.00, 

179.12, 

180.23, 

& 

181.35, 

182.46, 

183.58, 

184.69, 

185.80  / 

C VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 
C 

C 1-30,  40,  50,  60,  70,  80,  90,  100  - Theil,  pp.  718-719 

C 31-39,  41-49,  51-59,  61-69,  71-79,  81-89,  91-99,  101-150 

C - CALCULATED  USING  CUBE  RULE  APPROXIMATION 
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DATA  T025  / 12.706, 
& 2.365, 
& 2.160, 
& 2.093, 
& 2.060, 


4.303,  3.182,  2.776, 
2.306,  2.262,  2.228, 
2.145,  2.131,  2.120, 
2.086,  2.080,  2.074, 
2.056,  2.052,  2.048, 


2.571,  2.447, 

2.201,  2.179, 

2.110,  2.101, 

2.069,  2.064, 

2.045,  2.042,  1.960  / 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ARG 

CHI025< 

CHI975{ 

CHITAB 

DD() 

lOUT 
IZ£RO(  ) 

JZERO(  ) 

L 

MAXREG 
MCHAT( ) 


NPPR( ) 

NUM 
NUMREG 
SUHAT 
SUHAT2 ( ) 

SWHAT 
SWHAT2  ( ) 

SX 

SX2() 

T 

T025( ) 
TTAB 


LIST  OF  VARIABLES 
INTERMEDIATE  CALCULATION  VARIABLE 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI025  AND  CHI975 

1- D  ARRAY  CONTAINING  SXY(L) /SX2  (L)  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025()  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  lO,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  - 
MCHAT(1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATI<»IS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CCX9TAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  « Ln  S,  Y Ln  N) 

EQUAL  TO  SWHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y CM  X 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S,  Y = Ln  N) 

EQUAL  TO  (NPPR(L)*SX2(L)  )**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  SAWLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

VALUE  OF  T025M  USED  IN  CALCULATIONS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 

DO  50  L * 1,  MAXREG 
IZERO(l,L)  = 0.0 
IZERO(2,L)  = 0.0 
JZERO(l,L)  = 0.0 
JZERO(2,L)  = 0.0 
MCHAT(1,L)  ==  0.0 
MCHAT(2,L)  = 0.0 
50  CONTINUE 

C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 

DO  75  L = 1,  NUMREG 

IF  (NPPR(L)  .GT.  CHITAB)  THEN 

WRITE(8,^)  'ERROR:  EXCEEDED  LIMIT  ON  DEGREES  OF  FREEDOM 

& 'IN  CHI-SQUARE  TABLE,  IN  REGION  L 

CALL  TRMNAT 
ENDIF 
75  CONTINUE 

C ASSIGN  VALUES  TO  NUM,  T,  SWHAT,  SUHAT  AND  THEN  CALCULATE 

C CONFIDENCE  INTERVALS  FOR  EACH  REGION 

DO  100  L = 1,  NUMREG 
NUM  = NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
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T = T025(NUM) 

ELSE 

T = T025(NUM) 

END  IF 

SWHAT  = SWHAT2(L)  **  0.5 
SUHAT  = SUHAT2(L)  **  0.5 
SX  = (NUM  * SX2(L))  **  0.5 

C CALCULATE  ESTIMATED  VALUES  OF  M AND  C 

ARC  = T * SWHAT  / SX 
MCHAT(1,L)  = - DD(L) 

MCHAT(2,L)  = SUHAT 

C CALCULATE  CONFIDENCE  INTERVALS 

IZERO(l,L)  = MCHAT(2,L)  * (FLOAT(NUM)  / CHI975(NUM))  **  0.5 

IZERO(2,L)  = MCHAT  2,L)  * (FLOAT(NUM)  / CHI025(NUM) ) **  0.5 

JZERO(l,L)  = MCHAT(1,L)  - ARG 

JZERO(2,L)  = MCHAT(1,L)  + ARG 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 

WRITE(8,*) 

WRITE ( 8 , * ) 

ENDIF 
100  CONTINUE 


10)  THEN 

'L  =',  L,  ' NPPR  NPPR(L),  ' NUM  =',  NUM 

'SWHAT2  =',  SWHAT2(L),  ' SWHAT  =' , SWHAT 
'SUHAT2  =',  SUHAT2(L),  ' SUHAT  =' , SUHAT 
'SX2  =',  SX2(L),  ' SX  =',  SX 

'CHI025  =',  CHl025(NUM),  ' CHI975  =',  CHI975(NUM) 
'T  =',  T,  ' DD  =',  DD(L),  ' ARG  =',  ARG 
'IZERO(l,L)  =',  IZERO(l,L),  ' IZERO(2,L)  =' , 
IZERO(2,L) 

'JZERO(l,L)  =',  JZERO(l,L),  ' JZERO(2,L)  , 

UZERO  ^ 2 f L ) 

'MCHAT(1,L)  =',  MCHAT(1,L),  ' MCHAT(2,L)  , 

MCHAT ( 2, L) 


RETURN 

END 


C 


************************************************************************ 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPCW 
THE  Co  GIVEN  BY  THE  USER 
PROGRAMMER;  L.  NEWLIN 

DATE:  CODE;  80CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7-1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 

C INPUTS:  NUMREG,  CZERO,  SX2,  SXY,  SY2 

C OUTPUTS;  MCPNT,  MC 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARGl,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2 (MAXREG), 

& SXY(MAXREG),  SY2 (MAXREG) 
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LIST  OF  VARIABLES 


ARGl  INTERMEDIATE  CALCULATION  VARIABLE 

ARG2  INTERMEDIATE  CALCULATION  VARIABLE 

CZERO  EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  <»I  THE 

COEFFICIENT  OF  VARIATIC»1,  CO 
CZER02  EQUAL  TO  CZERO  **  2 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGKXI 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MC()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  <»I  M FOR  EACH  REGI<»I 

CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
MCPNTO  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC()  FOR  EACH  REGION 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SX2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

(X  = Ln  S) 

SXY( ) 1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 

EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

SY2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGICX) 

(Y  = Ln  N) 


INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
MCPNT(L)  = 0 
MC(1,L)  = 0.0 
MC(2,L)  = 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 

CZER02  = CZERO  **  2 

IF  (lOUT  .EQ.  10) 

& WRITE (8,*)  'CZERO  = CZERO,  ' CZER02  = ',  CZER02 

DO  100  L = 1,  NUMREG 

ARGl  = SX2(L)  - CZER02 
ARG2  =0.0 

IF  (CZERO  .EQ.  0.0)  THEN 

THEN  NO  M CONSTRAINT  IS  REQUIRED 
MCPNT(L)  = 0 

ELSEIF  (ABS(ARGl)  .LT.  l.OE-6)  THEN 

THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 
MCPNT(L)  = 1 

MC(1,L)  = - SY2(L)  / (2.0  * SXY(L)) 

ELSE 

THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 

ARG2  = fSXY(L)  **  2 - SY2(L)  * ARGl) 

IF  (ARG2  .L'T.  0.0)  THEN 
C ARG2  IS  NEGATIVE  - IMPLIES  M IS  COMPLEX 

WRITE (8,*)  'ERROR:  Co  TOO  LOW' 

CALL  “rRMNAT 
ELSE 

ARG2  = ARG2  **  0.5 
END  IF 

IF  (SX2(L)  .LT.  CZER02)  THEN 
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c AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 

MCPNT(L)  = 1 

MC<1,L)  = (-  SXY(L)  - ARG2)  / AR.G1 
ELSE 

C SX2(L)  .GT.  C2ER02  — THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 

MCPNT(L)  = 2 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
MC(2,L)  = (-  SXY(L)  + ARG2)  / ARGl 

ENDIF 

ENDIF 

100  CONTINUE 


IF  (lOUT  .EQ.  10)  THEN 
DO  200  L = 1,  NUMREG 

WRITE(8,*)  'L  = ',  L,  ' MCPNT  = ' MCPNT(L) 

WRITE(8,*)  'ARGl  = ARGl,  ' ARGi  = ARG2 
WRITE(8,*)  'MC(1,L)  = MC(1,L),  ' MC(2,L)  = MC(2,L) 

200  CONTINUE 

ENDIF 


RETURN 

END 


C*************************  ******  *****»******************,^,j***,^,^,j,^,f,^,j^^^,^,^ 


C SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE 
C HEAT  MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAIUVBLE  INFORMATION 
C PROGRAMMER;  L.  NEWLIN 

C DATE;  CODE;  21JUN88  COMMENTS;  13JUL89 

C VERSION;  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

C INPUTS;  NSETS,  NP,  NUMREG,  LAMN,  MCHAT 
C OUTPUTS ; PVAR 

C IMPLICIT  NONE 

INTEGER  MAXREG,  MAXSET 

PARAMETER  (MAXREG  = 3,  MAXSET  = 5) 

COMMON  lOUT 

INTEGER  lOUT,  J,  L,  NP(0:MAXSET,  MAXREG),  NSETS,  NUM ( MAXREG ) , 
t,  NUMREG,  TOTAL 

REAL  LAMN,  MCHAT(2,  MAXREG),  PS IG2 (MAXREG) , PVAR,  SUM 


C 

C 

C lOUT 
C J 
C L 
C LAMN 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
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MAXREG 
MAXSET 
MCHAT(  ) 


NP() 

NSETS 
NUM(  ) 

NUMREG 
PS1G2 ( ) 

PVAR 

SUM 

TOTAL 


CONSTANT  OVER  REGIONS  AND  COMPONENTS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  - 
MCHAT(1,L)  = -DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  Nj  IS  THE  SUM  OF  THE 
NUMBER  OF  POINTS  IN  EACH  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 
VARIATION  IN  EACH  REGION 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 
CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 

WEIGHTED  SUM  OF  THE  PSIG2s  - USED  TO  CALCULATE  A WEIGHTED 
AVERAGE 

SUM  OF  NUM( ) OVER  ALL  REGIONS 


INITIALIZE  VARIABLES 

SUM  =0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2(L)  =0.0 
NUM(L)  = 0 
50  CCWTINUE 

DO  100  L = 1,  NUMREG 
DO  150  J = 0,  NSETS 

NUM(L)  = NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  = TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L = 1,  NUMREG 

PSIG2(L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2(L)  * NUM(L) 

200  CONTINUE 

IF  (lOUT  .EQ.  10)  TEJEN 

WRITER  8,*)  'LAMN  = LAMN 
DO  3O0  L = 1,  NUMREG 

WRITE(8,*)  'L  = ',  L,  ' NUM  = NUM(L) 

WRITE(8,*)  'MCHAT  = MCHAT(2,L),  ' PSIG2  = PSIG2{L) 
300  CONTINUE 

WRITE (8,*)  'TOTAL  = ',  TOTAL,  ' SUM  = SUM 
ENDIF 

PVAR  = SUM  / FLOAT  (TOTAL) 

RETURN 

END 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOWLEDGE  ON  BOTH 
M AND  Co  WITH  THE  95%  CONFIDENCE  INTERVALS  (JZERO  FROH  INTRVL) 

TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 

& MCHAT,  RANGEM) 
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C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

C OUTPUTS : RANGEM 

C SUBPROGRAMS : TRMNAT 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT(MAXREG) , NUMREG 

REAL  JZER0(2,  MAXREG),  LOWER,  MC(2,  MAXREG),  MCHAT(2,  MAXREG), 
& MZERO(2,  MAXREG),  RANGEM{2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


lOUT 
JZERO ( ) 

L 

LOWER 

MAXREG 

MC() 


MCHAT ( ) 

MCPNT ( ) 
MPNT( ) 
MZERO ( ) 

NUMREG 
RANGEM ( ) 

UPPER 


OUTPUT  DUMP  CONTROLLER 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANC^S  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
- MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT(1,L)  = - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT(2,L)  = SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC()  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZEROO  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  <»J  M FOR 
EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  <»l  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  =0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L = 1,  NUMREG 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'L  = ',  L,  ' NUMREG  = ',  NUMREG 
WRITE(8,*)  'MPNT  = ',  MPNT(L),  ' MCPNT  = ',  MCPNT(L) 


IF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  -EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 

RANGEM(1,L)  = JZERO(l,L) 

RANGEM(2,L)  = JZERO(2,L) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

4 ' JZERO(l,L)  = ',  JZERO(l,L) 
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RANGEM(2,L) 
, JZERO(2,L) 


WRITE(8,*)  'RANGEM(2,L)  = 

& ' JZER0(2,L)  = ' 

ENDIF 

ELSEIF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  Co,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 

LOWER  = AHAXl(JZERO(l,L),  HC(1,L)) 

UPPER  = JZERO(2,L) 

IF  (UPPER  .LT.  LOWER)  THEN 

raITE(8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  JO  AND  Mc' 

CALL  -rRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'JZERO(l,L)  = JZERO(l,L), 

& ' JZERO(2,L)  = JZERO(2,L) 

WRITE(8,*)  ’MC(1,L)  = MC(1,L) 

WRITE(8,*  'LOWER  = ',  LOWER,  ' UPPER  = UPPER 
WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

& ' RANGEM(2,L)  = ',  RANGEH(2,L) 

ENDIF 

ELSEIF  ((MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  CO  CONSTRAINT,  ADJUST  JO  ACCORDINGLY 

LOWER  = AMAXl(JZERO(l,L) , MC(1,L)) 

UPPER  = AMINl(JZERO(2,L) , MC(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN 

V^ITE(8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  JO  AND  Hc' 

CALL  'TRMNAT 
ELSE 

RANGEH(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 

•JZERO(l,L)  = ',  JZERO(l,L), 

JZERO(2,L)  = ',  JZERO(2,L) 

'MC(1,L)  = ',  MC(1,L),  ' MC(2,L)  = ',  MC(2,L) 
'LOWER  = ',  LOWER,  ' UPPER  = ',  UPPER 
'RANGEM(1,L)  = ',  RANGEM(1,L), 

RANGEM(2,L)  = ',  RANGEH(2,L) 


ELSEIF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M - THIS  OVERRIDES  ALL  OTHER 
INFORMATION;  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM(1,L)  = MZERO(l,L) 

RANGEM(2,L)  =0.0 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'MZERO(l.L)  = ',  MZERO(l,L) 

WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

& ' RANGEM(2,L)  = ',  RANGEM(2,L) 

ENDIF 

ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  Co  CONSTRAINT 
USE  INTERSECTION  BETWEEN  Jo  AND  Mo 

LOWER  = AMAXl(JZERO(l,L),  HZERO(l,L)) 

UPPER  = AMINl(JZERO(2,L),  MZERO(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR;  NO  INTERSECTION  BETWEEN  JO  AND  MO' 
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CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM ( 2 , L ) = UPPER 
ENDIF 


& 

& 


& 


IF 


(lOUT  .EQ. 
WRITE(8,*) 

WRITE ( 8 , ♦ ) 

WRITE(8, *) 
WRITE (8,*) 


ENDIF 


10)  THEN 
' JZERO(l,L) 
JZERO(2,L 
'MZEROa.L 
MZERO(2,L 
'LOWER  = ' , 
'RANGEM(1,L 
RANGEM(2,L 


= JZERO(l,L), 

= JZERO(2,L) 

= M2ERO  1,lL 
= MZERO(2,L) 
LOWER,  ' UPPER  = ' , 
= RANGEM(1,L), 

= RANGEM(2,L) 


UPPER 


ELSEIF  ((MPNT(L)  *EQ.  2)  .AND.  (MCPNT(L)  .EQ,  1))  THEN 


^ PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  CO 

the  lower  BOUND 


& 


l^WER  = AMAXl(JZERO(l,L),  MZERO(l.L),  MC(1,L)) 
^PER  = AMINl(JZERO  2 L)  MZER0  2 L ' ' " 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTICMJ  BETWEEN  Jo. 

'AND  Me'  ' 


CALL  TRMNAT 
ELSE 


RANGEM(1,L) 

RANGEM(2,L) 

ENDIF 


= LOWER 
= UPPER 


Mo, 


& 

& 


& 


UPPER 


C 

C 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 


there  is  a prior  range  on  M AND  A RANGE  DUE  TO 
INTERSECT  THESE  TWO  RANGES  WITH  Jo 


Co  CONSTRAINT 


& 


LOWER  = AMAX1( JZERO(l,L) , MZERO(l.L).  MC(l.L) 

^ MZERO  2 L JE  2 L 

/TTP1DTPTJ  T O'  T \ f § 9 \ t / 


IF  (UPPER  .LTJ  LOWE6)'tHEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTICMJ  BETWEEN  Jo. 

'AND  Me'  ' 

CALL  TRMNAT 
ELSE 


RANGEM(l.L)  = LOWER 
RANGEM ( 2 , L ) = UPPER 
ENDIF 


Mo, 


& 

& 


& 


IF  (lOUT  .EQ. 
WRITE(8,  *) 

WRITE (8,*) 

WRITE (8,*) 
WRI'TE(8,*) 
WRITE(8,*) 

ENDIF 


10)  THEN 

'JZERO(l,L)  = ',  JZERO(l,L), 
JZERO(2,L)  = ',  JZERO  2|l 
'MZERO(l.L)  = ',  MZERO(l,L), 
MZERO(2,L)  = ',  MZER0(2,L) 
'MC(1,L)  = MC(1,L) 

'LOWER  = ' , LOWER,  ' UPPER  = 
'RANGEM(l.L)  = RANGEM(1,L) 
RANGEM(2,L)  = ',  RANGEM(2^I.) 


UPPER 


ELSE 


^S^TRM1^t  '^^°^'  prior  on  M INCORRECTLY  SPECIFIED  IN  ' , L 
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ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  = AMAXl ( RANGEM( 1,L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = RANGEM(1,L) 
100  COJTINUE 

C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((HCHAT(1,L)  .LT.  RANGEM(1,L)) 

& .OR.  (MCHAT(1,L)  .GT.  ]^GEH(2,L))) 

fc  WRITE(8,*)  'NOTE;  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE 

& 'ON  m IN  REGION  ',  I. 

300  CONTINUE 

RETURN 

END 


C************ ****** **Hr* ******** ****************************************** 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  F<m  REGIONS 
WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DA'TE;  CCM>E;  2FEB88  FORMAT/COMMENTS;  12AUG91 

VERSION;  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
V8.4,  V8.5 

MA'TGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

INPUTS;  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  lOUT,  L,  LL,  MPNT (MAXREG) , NNODAT,  NUMREG 

REAL  MCHAT(2,  MAXREG),  MZERO(2,  MAXREG),  RANGEM(2,  MAXREG) 


LIST  OF  VARIABLES 

lOUT  OU'TPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGICM 

LL  EQUAL  'TO  NUMREG  FOR  A SET  OF  CALCULATICMS 

MAXREG  MAXIMUM  NUMBER  OF  REGICMS  ALLOWED 

MCHAT  ()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMA'TES  OF  M AND 

C FOR  EACH  REGION,  BASED  ON  MA'TERIALS  DATA  ONLY  — 
MCHAT(1,L)  = - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMA'TE  FOR  C 
MPNT()  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO()  FOR  EACH  REGION 

MZERO ()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  - MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
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IS  UPPER  BOUND 

NNODAT  Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEM( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  =',  NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (lOUT  .EQ.  10)  WRITE (8,*)  'L  =',  L,  ' NUMREG  =',  NUMREG, 
& ' LL  =',  LL,  ' MPNT(LL)  =',  MPNT(LL) 


& 

& 


IF  ((MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM(1,LL)  = MZERO(l,LL) 

RANGEM(2,LL)  = MZERO(2,LL) 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM( 1,LL)  =' , RANGEM( 1 ,LL) , 

' MZERO(l,LL)  = M2ERO(l,LL) 

WRITE(8,*)  'RANGEM(2,LL)  =' , RANGEM(2,LL) , 

' MZERO(2,LL)  = MZERO(2,LL) 

ENDIF 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT(1,LL)  = RANGEM(1,LL) 

EILSE 

MCHAT(1,LL)  = <RANGEM(1,LL)  RANGEM(2,LL) ) / 2.0 
ENDIF 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'MCHAT  =' , MCHAT(1,LL) 
ELSE 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RE'TURN 

END 


**  ★«*«*♦*  ie*  *******************  ************  *♦♦♦***** 


SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVI'TY  CONSTRAINTS 
PROGRAMMER:  L.  NEWLIN 

DATE:  2FEB88  FORMAT / COMMENTS : 15SEP89 

VERSION:  MATCHR  V6,l,  V6.2,  Wl , V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4*3,  V4.4,  V4.5 

SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 

C INPUTS:  NUMREG,  RANGEM 

C OUTPUTS : RANGEM 

C SUBPROGRAMS:  TRMNAT 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG 
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REAL  RANGEM(2,  MAXREG) , TESTM 


LIST  OF  VARIABLES 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEMO  2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L>  IS  THE  UPPER  BOUND 

TESTM  UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-1  - USED  DURING 

CONCAVITY  ADJUSTMENT 


ADJUST  RANGE  TO  INSURE  CONCAVITY 


DO  100  L = NUMREG,  2,  -1 

IF  (RANGEM(2,L-ll  .EQ.  0.0)  THEN 
Ri^GE  IS  A POINT  IN  REGION  L-1 

IF  (^GEM(1,L-1)  .GT.  AMAX1(RANGEM(1,L)  ,RANGEM(2,L)  ) ) THEN 
VTOITE(8,*)  'ERROR;  POSTERIOR  INTERVAL  IN  REGION  ' , L, 
t ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGI(»I  ' ,L-1 

CALL  TRMNAT 
ENDIF 
ELSE 

RANGE  IS  AN  INTERVAL  IN  REGION  L-1 
TESTM  = AMAX1(RANGEM(1,L),  RANGEH(2,L)) 

IF  (TESTM  .LT.  RANGEM( 1 ,L-1 ) ) THEN 

WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGI(»«  L, 

' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN  ' , 
'REGION  ',  L-1 
CALL  TRMNAT 
ELSE 

RANGEM(2,L-1)  = AMINl (RANGEM(2,L-1 ) , TESTM) 

ENDIF 
ENDIF 


6 

i. 


& 

& 


IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM( l.L-l)  = 
‘ RANGEMp,L-l) 


',  RANGEM{ l.L-l), 
, RANGEM(2,L-i) 


WRITE(8,*)  'RANGEM(l.L)  =',  RANGEM(l.L), 
' RANGEM(2,L)  RANGEM(2,L) 


WRITE(8,*)  'TESTM  =',  TESTM, 
ENDIF 


L = 


100  C(»)TINUE 


RETURN 

END 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  Co 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE;  50CT87  COMMENTS:  1DEC87 

VERSION:  MATCHR  V6,  V6 . 1 , V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 


C INPUTS:  NUMREG,  RANGEM 

C lOUTPUT;  MEDM 


C IMPLICIT  NONE 
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INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  LOWERM,  MEDM( MAXREG ) , RANGEM(2,  MAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LOWERM 

MAXREG 
MEDM( ) 
NUMI^G 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  M RANGE  (DUE  TO  CCMJCAVITY  CONSIDERATION) 

TO  BE  USED  IN  MEDIAN  (^CULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


C INITIALIZE  ARRAY  MEDM 

DO  50  L = 1,  MAXREG 
MEDM(L)  =0.0 
50  CONTINUE 


C 


c 


c 

c 


BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  = RANGEM(1,L) 

ELSEIF  (L  .EQ.  1)  THEN 


WE  ARE  IN  REGION  ONE  — NOT  AFFECTED  BY  OTHER  REGI<»IS 
— MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  = (RANGEM(1,L)  + RANGEM(2,L) ) / 2.0 

ELSE 


MUST  TAKE  MEDIAN  OF  REGION  L-1  INTO  ACCOUNT 

LOWERM  = AMAXl (RANGEM( 1,L) - MEDM(L-l)) 
MEDM(L)  = (LOWERM  + RANGEM(2,L))  / 2-6 

ENDIF 


& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


WRITE (8 
ENDIF 


*) 


10)  THEN 
'L  = L,  ' 
'RANGEM(1,L) 
RANGEM(2,L) 
'LOWERM  = ' , 


NUMREG  = ' , NUMREG 
= RANGEM(1,L), 

= RANGEM(2,L) 
LOWERM,  ' MEDM(L)  = 


MEDM(L) 


100  CONTINUE 


RETURN 

END 


7-315 


C SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
C CURVE  PARAMETERS 
C PROGRAMMER:  L-  NEWLIN 

C DATE:  CODE:  13FEB89  FORMAT /CC»1MENTS : 15SEP89 

C VERSION:  MATCHR  V8,3,  V8,4,  V8,5  MATGRM  V4.3^  V4.4,  V4.5 

C 

c Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
c is  acknowledged. 


SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG, 

& ZROREG,  NBND,  BIGKl,  BZHAT) 

C INPUTS:  NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

C OUTPUTS:  BIGKl,  BZHAT 

C SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NCOMPS,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 

REAL  BIGK(0: MAXREG),  BIGKl,  BZHAT,  FACTR,  KHAT,  MEANZ, 

& MEDM(MAXREG)  , MM ( 0 : MAXREG ) , NBND ( 0 : MAXREG ) , 

& NF(MAXDAT,  MAXREG),  SEND ( 0 : MAXREG ) , STR(MAXDAT,  MAXREG), 

& SZ2,  SZERO,  TRBIGK(0:MAX;teG),  ZZ (MAXDAT) 


C 

C 

C BIGK() 

C 

C BIGKl 
C BZHAT 
C FACTR 
C lOUT 
C KHAT 
C L 

C MAXDAT 
C MAXREG 
C MEANZ 
C MEDMO 
C MM() 

C NBND() 

C 

C NCOMPS 
C 

C NF(  ) 

C 

C NP 
C 

C NPTS ( ) 

C 

C NUMREG 
C SEND ( ) 

C 

C 

C STR( ) 

C 

C SZ2 
C SZERO 
C TRBIGK( 
C 

C ZROREG 
C 

C ZZ() 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K ♦♦  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E(BETAO) 

A SCALE  FACTOR  = PHI  * KRATIO  ♦ Z 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

Number  of  COMPonents  - 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  - 2 FOR  DECOMPOSED  STRAIN  DATA 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND(  ) 

2- D  ARRAY  CONTAINING  RATSTR(  ) FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT,  So 

1-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 
TRBIGK(i)  = BIGK(i) 

ZeRO  REGlon  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGI<»] 
1-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z = F(STR,NF,NBND,MM) 
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C INITIALIZE  VARIABLES 


DO  50  L = 0,  MAXREG 
MM(L)  = 6.0 
50  CONTINUE 

C CREATE  MM()  ARRAY  FROM  MEDM( ) ARRAY 

IK)  100  L = 1,  NUMREG 
, MM(L)  = MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  BETAo  AND  k 

CALL  KBETA  (MEANZ,  SZ2 , KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGICW 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGKl  = BIGK(l) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 

DO  150  L = ZROREG,  NUMREG 
TRBIGK(L)  = BIGK(L) 

150  CONTINUE 

IF  ( ZROREG  . EQ . 0 ) THEN 
FACTR  =1.0 

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK. 

* FACTR,  NUMREG) 

ENDIF 


C WRITE  RESULTS  TO  FILE 


IF  (NCOMPS  .EQ.  1)  THEN 


& 

200 


WRITE (7, 9 00)  NUMREG,  BZHAT,  KHAT 

IF  (lOUT  .EQ.  10)  WRITE(8,6oO)  NUMREG,  BZHAT,  KHAT 


DO  200  L = ZROREG,  NUMREG 

CONTINUE  NBND(L),  SBND(L) 


WRITE(7,920) 

ELSE 


WR1TE(7,930)  MM(1),  BIGK(l),  KHAT 
ENDIF 

C FORMAT  STATEMENTS 
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910  rORMAT(5X,Il,5X,F9.5,5X,El2.5,5X,E9.3,9X,Ell.5) 

920  FORMAT(///) 

930  F0RMAT(//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 
& //,llX,'m',14X,'K',13X,'E(k)', 

& //,7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


SUBROUTINE  MUSIC  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS 
MEAN,  MU,  AND  STANDARD  DEVIATION,  SIC;  FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  MUSIC  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA, 

& MO,  SIGMA2,  MCHAT,  MU,  SIG) 

INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 

OUTPUTS:  MCHAT,  MU,  SIG 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG,  NPPR(MAXREG) 

REAL  ARG,  DD(MAXREG),  DELTA ( MAXREG ) , MCHAT(2,  MAXREG), 

& MO(MAXREG),  MU(MAXREG),  SIG(MAXI^),  SIGMA2  (MAXREG) , 

& SUHAT2 (MAXREG) , SUMX2,  SWHAT2 (MAXREG) , SX2 (MAXREG) 


LIST  OF  VARIABLES 


ARG 

DELTA ( ) 


lOUT 

L 

MAXREG 
MCHAT ( ) 


MO() 

MU() 

NPPR( ) 

NUMREG 

SIG() 

SIGMA2( ) 

SUHAT2 ( ) 

SUMX2 
SWHAT2 ( ) 


INTERMEDIATE  CALCULATION  VARIABLE 

1-D  ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 
SIG()  CALCULATION 

OUTPUT  DUMP  CON'TROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGION  ALLOWED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 
EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  - MCHAT (1,L)  = 

- DD(L),  THE  ESTIMATE  FOR  M AND  MCHAT(2,L)  = SUHAT, 

THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DIS'TRIBUTION  MEAN  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-!))-!)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y = Ln  N) 

EQUAL  TO  NPPR()  * SX2 ( ) FOR  A PARTICULAR  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y = Ln  N) 
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C SX2( ) 
C 


1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGI<»1 
(X  = Ln  S) 


C INITALIZE  ARRAYS 

DO  50  L = 1,  MAXREG 
MCHAT(1,L)  =0.0 
MCHAT(2,L)  =0.0 
MU(L)  = 0.0 
SIG(L)  = 0.0 
50  CONTINUE 


C 

C 


C 

c 


BEGIN  CALCULATION  FOR  EACH  REGION 

DO  100  L = 1 , NUMREG 

MCHAT(1,L)  = - DD(L) 

MCHAT(2,L]  = SQRT  (SUHAT2(L)) 

SUMX2  = NPPR(L)  * SX2(L) 

ARG  = SUMX2  + DELTA (L) 

IF  (DELTA(L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  WAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU(L)  = MCHAT(l.L) 

ELSE 

UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 
MU(L)  = (MCHAT(1,L)  * SUMX2  + MO(L)  * DELTA(L) ) / ARG 
ENDIF 

IF  (SIGMA2(L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 
USE  SWHAT2  AS  AN  ESTIMATE  OF  SIGMA-HAT-2 
SIG(L)  = SQRT  (SWHAT2(L)  / ARG) 

ELSE 

SIG(L)  = SQRT  (SIGMA2(L)  / ARG) 

ENDIF 


& 

& 

& 


IF  (lOUT  .EQ. 
WRITE ( 8 , * ) 


WRITE ( 8 , * ) 

WRITE( 8, *) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 

ENDIF 

100  CONTINUE 


DD  = ',  DD(L),  ' MCHATl  = 
SUHAT2(L),  ' MCHAT2  = 


10)  THEN 
'L  = L, 

MCHAT(1,L) 

'SUHAT2  = 

MCHAT(2,L) 

'NPPR  = NPPR(L),  ' SX2  = SX2(L), 

SUMX2  = SUMX2 

'DELTA  = DELTA(L),  ' ARG  = ' ARG 

'MO  = MO(LK  ' MU  = MU(L) 

'SWHAT2  = SWHAT2(L),  ' SIGMA2  = ' SIGMA2(L), 
SIG  = SIG(L)  ' 


RETURN 

END 


c 

c 

c 

c 

c 

c 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  CO  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE;  10FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


C 

C 

C 


SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 
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C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  MCPNT ( MAXREG ) , MPNT ( MAXREG ) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG),  MCHAT(2,  MAXREG),  MZERO(2,  MAXREG), 
& RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


lOUT 

L 

LOWER 

MAXREG 

MC() 


MCHAT( ) 

MCPNT ( ) 
MPNT( ) 
MZERO(  ) 

NUMREG 
RANGEM( ) 

UPPER 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTKMJ 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
- MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  - MCHAT(1,L1  = - DD(L),  THE  ESTIMATE 
FOR  M AND  MCHAT(2,L)  •=  SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC()  FOR  EACH  REGION 

1- D  AWUVY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZEROO  FOR  EACH  REGICXl 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTICW 


INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  = 0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L = 1,  NUMREG 

IF  (lOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  = ',  L,  ' NUMREG  = ',  NUMREG 
WRITE (8,*)  'MPNT  = ',  MPNT(L) , ' MCPNT  = ',  MCPNT(L) 

ENDIF 

IF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 

RANGEM(1,L)  = MZERO(l,L) 

RANGEM(2,L)  =0.0 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'MZERO(l.L)  = ',  MZERO(l,L) 

WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L), 

& ' RANGEM(2,L)  = ',  RANGEM(2,L) 

ENDIF 

ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 
C THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  Co  CONSTRAINT  USE  MO 


7-320 


RANGEM(1,L)  = MZERO(l,L) 
RANGEM(2,L)  = MZER0(2,L) 


& 

& 


IF 


(lOUT  .EQ. 
WRITE (8,*) 

WRITE (8,*) 


ENDIF 


10)  THEN 
'MZERO(l,L) 
MZERO(2,L) 
'RANGEM( 1,L) 
RANGEM(2,L) 


, MZERO(l,L), 

, HZERO(2,L) 
RANGEM(1,I.), 
RANGEM(2,L) 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  CO 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  Mo  BY  Mc 

LOWER  = AMAXl(MZERO(l,L),  MC(l-L)) 

UPPER  = MZERO(2,L) 

IF  QpPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR;  NO  INTERSECTION  BETWEEN  MO  AND  Me' 
CALL  TRMNAT 
ELSE 

RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


& 


IF  (lOUT  .EQ.  10)  THEN 
WRITE(8,*)  'MZERO(l,D 
' MZERO(2,L) 
WRITE(8,*)  'MC(1,L)  = ' 
WRITE(8,*)  'LOWER  = ', 
WRITE(8,»)  'RANEGM(1,L) 
' RANGEM(2,L) 

ENDIF 


= ',  MZERO(l,L), 

= ',  MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = ' 
= RANGEM(l,L), 
= ',  RANGEM(2,L) 


UPPER 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  = AMAXl(MZERO(l,L) , MC(1,L)) 

UPPER  = AMINl(MZERO(2,L) , MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEM 

ERROR:  NO  INTERSECTION  BETWEEN  MO  AND  Me' 

ELSE 


RANGEM(1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


& 


& 


IF  (lOUT  .EQ. 
WRITE (8,*) 

WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE(8, *) 

ENDIF 


10)  THEN 
'MZERO(l,L) 
MZERO(2,L) 
'MC(1,L)  = ' 
'LOWER  = ' , 
'RANGEM(1,L) 
RANGEM(2,L) 


= ',  MZERO(l,L), 
= ',  MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  = 


= ',  RANGEM(1,L) 
= ',  RANGEM(2,L) 


UPPER 


ELSE 


WRITE (8,*)  'ERROR;  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' . L 
CALL  TRMNAT 


ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  = AMAXl (RANGEM( 1,L) , 0.0) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM(1,L) 
100  CONTINUE 
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C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((MCHAT(1,L)  .LT.  RANGEM(1,L)) 

5 .OR.  (MCHAT(1,L)  .GT.  RANGEM(2,L) ) ) 

6 WRITE(8,*)  'NOTE;  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE 

fc  'ON  m IN  REGION  ',  L 

300  CONTINUE 


RETURN 

END 


Qi*’*******^****-**i«r4r*^**4r*^i«MAr***-*«******4Mlir***1^«**l^**1lr***!fr  «*★***  ************* 


c 

c 

c 

c 

c 

c 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 
PROGRAMMER : L . NEWLIN 

DATE;  CODE:  10FEB88  FORMAT/COMMENTS;  12AUG91 

VERSION;  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4,  V4.I,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NN<»AT,  NUMREG, 
fc  MZERO,  MPNT,  MO,  SIGMA2) 


C INPUTS : 
C 

C OUTPUTS : 


RANGEM, 

MCHAT, 

MU, 

SIG, 

NNODAT,  NUMREG,  MZERO,  MPNT, 

MO,  S1GMA2 

RANGEM, 

MCHAT, 

MU, 

SIG, 

NUMREG 

C IMPLICIT  NONE 


INTEGER  MAXREG 


PARAMETER  (MAXREG  3) 
COMMON  lOUT 


INTEGER  lOUT,  L,  LL,  MPNT(MAXREG) , NNODAT,  NUMREG 

REAL  MCHAT(2,  MAXREG),  MO ( MAXREG ) , MU(MAXREG), 

& MZEROi[2,  MAXREG),  RANGEM(2,  MAX^G)  , SIG  ( MAXREG ) , 

& SIGMA2( MAXREG) 


LIST  OF  VARIABLES 


lOUT 

L 

LL 

MAXREG 
MCHAT ( ) 


MO() 
MPNT() 
MU() 
MZERO(  ) 


NNODAT 
NUMREG 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  = - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  CHH  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  <»J  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
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RANGEM(2,L)  IS  THE  UPPER  BOUND 

SIG()  1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGI(»1 
SIGHA2()  1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 


IF  (lOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  jlOUT  .EQ.  10)  WRITE(8,*)  'L  =',  L,  ' NUMREG  =',  NUMREG- 
& ' LL  =',  LL,  ' MPNT(LL)  , MPNT(LL) 


& 

& 


& 


IF  ((MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  C*J  M 
RANGEM(1,LL)  = MZERO(l,LL) 

RANGEM(2,LL)  = MZERO(2,LL) 

MU(LL)  = MO(LL) 

SIG(LL)  = SQRT<SIGMA2(LL) ) 

IF  (lOUT  .EQ.  10)  THEN 

WR1TE(8,*)  'RANGEM(1,LL) 

' MZERO(l,LL) 

WRITE(8,*)  'RANGEM  2,LL) 

' MZERO(2,LL) 

WRITE(8,*)  'MU(LL)  = ' 

WRITE(8,*)  'SIG(LL)  = 

SIGMA2(LL) 

ENDIF 


, RANGEM(1,LL), 
MZERO(l,LL) 

, RANGEM<2,LL) , 
MZERO(2,LL) 
MUrLLi,  ' MO(LL)  = 
SIG(li.),  ' SIGMA2(LL) 


MO(LL) 

as  ' 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 


IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT(1,LL)  = RANGEM(1,LL) 

MU(LLJ  = RANGEM(1,LL) 

SIG(LL)  =0.0 
ELSE 

MCHAT(1,LL)  = (RANGEM(1,LL)  + RANGEM(2,LL) ) / 2.0 


IF  <IOUT  .EQ.  lOj  WRITE(8,*)  'MCHAT  =' 

& else  ^ ^ MU(LL)/  ' SIG  = SIG(LL) 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE 

4 'SPECIFIED  IN  REGION  WITHOUT 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


MCHAT(1,LL), 


INCORRECTLY  ' 
DATA' 


RETURN 

END 


Q***i^****ifr  *«**:Ar*  ★«***«*  *^*^ilr*i«r1lr*«***4r**«1^****1^**1lr  ********************* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RAREST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMETER 
ESTIMATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  13FEB89  FORMAT / COMMENTS : 15SEP89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 

MATGRM  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  RAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG, 

& ZROREG,  RAND,  NBND,  STR,  BIGK,  BZERO,  MM, 

& SBND) 
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C INPUTS:  VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG,  RAND, 

C NBND,  STR 

C OUTPUTS:  BIGK,  BZERO,  MM,  SBND 

C SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB 

C IMPLICIT  NONE 

INTEGER  MAXOAT,  MAXREG 

PARAMETER  (MAXOAT  = 50,  MAXREG  >=  3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NP,  NPTS (MAXREG) , NUMREG,  VARY,  ZROREG 

REAL  BIGK( 0: MAXREG) , BZERO,  K,  MEANZ,  NM( 0 :MAXREG) , 

& MU(MAXREG),  NBND ( 0 : MAXREG ) , NF(MAXDAT,  MAXREG), 

& RANGEM(2,  MAXREG),  SBNDf 0:MAXREG) , SIG(MAXREG), 

& STR(MAXDAT,  MAXREG),  SZ2,  ZZ(MAXDAT) 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


BIGK() 

BZERO 

lOUT 

K 

L 

MAXDAT 
MAXREG 
MEANZ 
MM( ) 

MU() 

NBND( ) 

NF() 

NP 

NPTS() 

NUMREG 
RANGEM( ) 


RAND 
SBND( ) 


SIG() 

STR(  ) 

SZ2 

VARY 


ZROREG 

ZZ() 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 
EACH  REGION 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k - PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL  DATA  BASE 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  - RANGEM(1,L)  IS  THE  LONER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

RANDOM  mMBER  SEED 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION; 

3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  - VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  - 0 - ZERO  REGKMJ  EXISTS,  1 - NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE,  2)  THEN 

C UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 

CALL  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 
ELSE 
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c 


NORMAL  VARIATION  IN  M IS  DESIRED 
CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 
ENDIF 


C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ , SZ2) 

C CALCULATE  THE  VALUES  FOR  k AND  BETAO  FROM  THE  SAMPLE  MEAN 
C AND  VARIANCE 


CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

C CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A - K **  M 
CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C WRITE  RESULTS  TO  FILE 
C WRITE(7,900)  NUMREG,  BZERO 

DO  200  L = ZROREG,  NUMREG 

200  CONTlNui^”^'^^®^  ®IGK(L),  NBND(L),  SBND(L) 

WRITE(7,920) 

FORMAT  STATEMENTS 

900  FORMAT (///,2X, 'SELECTED  VALUES  OF  S/N  CURVE  PARAMETERS', 

& //,2X, 'NUMBER  OF  REGIONS;  ' , 14, 5X, 'BETAo  = ' ,F8 .4, 

& //,2X, 'REGION' , 7X, 'm' , 15X, 'K' ,9x, 'LIFE  BOUND', 5X, 

& 'STRESS  BOUND',/) 


RE'TURN 

END 


********************************•**************************************,, 


SUBROUTINE  FINDM  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  M RANGE 
PROGRAMMER:  L.  NEWLIN 

DA'TE:  CODE:  7JUN88  COMMENTS;  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

C INPUTS:  RAND,  NUMREG,  RANGEM 

C OUTPUTS : MM 

C SUBPROGRAMS:  RANDOM,  TRMNAT 


IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 
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COMMON  I OUT 

INTEGER  lOUT,  L,  NUMREG 

REAL  MM(0;MAXREG),  PICK(2),  RANGEM(2,  MAXREG) , X 
DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGICW 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

PICK()  1-D  ARRAY  CCX^TAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 

RAND  RANDOM  NUMBER  SEED 

RANGEM( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM<2,L)  IS  THE  UPPER  BOUND 

X UNIFORM (0,1)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 

OFF  THE  RANGE  ON  M 


C INITIALIZE  MM() 

DO  50  L = 0,  MAXREG 
MM(MAXREG)  =0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

DO  100  L = 1,  NUMREG 

PICK(lJ  =0.0 


C 

c 


c 

c 


MH(L) 


PICkU)  = 0.0 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
MM(L)  = RANGEMJ1,l3 

IF  (lOUT  .EQ.  lO)  WRITE(8,*)  'RANGEM(1,L)  , RANGEH(1,L) 

ELSEIF  |L  .EO.  1,  THEE  ' 

SAMPLE  ON  EXISTING  RANGE 
CALL  RANDOM(X,  RAND) 

??‘(ioGT‘^‘r^i)'iN  * * + RANGEM(1,L) 

WRITE(8,*)  'RANGEM(l.L)  =',  RANGEM(l.L), 
o ' RANGEM(2,ti  =',  RANCTM(5,£) 

WRITE(8,*)  'L  =',  L,  ' k =',  X,  ' MM(L) 

ENDIF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  = AMAX1(MM(L-1),  RANGEM(l.L)) 

PICK(2)  = RANGEM(2,L)  v / /i 

IF  (PICK(l)  .GT.  PICKf2))  THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  BE  POSSIBLE 
STOP  PROGRAM 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGIW,  L 
CALL  TRMNAT  ' 

ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  RANDOM  (X,  RAND) 

MM(L)  = (PICK(2)  - PlCK(l))  * X + PICK(l) 

ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

MRITE(8,*)  'L  =',  L,  ' MM(L-l)  =',  MM(L-l), 

' RANGEM(1,L)  =',  RANGEMfl,L) 

WRITE(8,*)  'PICK(l)  =',  PICK(l),  ' ^ICK(2)  =',  PICK{2) 
WRITE(8,*)  'RANGEM(2,L)  =' , RANGEM(2,L),  ' X=',  X,'  ’ 
' MM(L)  =',  MM(L)  ' 

ENDIF  ' ' 
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ENDIF 

100  CONTINUE 

RETURN 

END 


SUBROUTINE  RANDOM  USES  AN  LOG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Miles,  R.  F.,  The  RANDOM  Computer  Program;  A Lineeu:  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 


PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  1DEC87 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 

V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 
COMMON  lOUT 
INTEGER  TOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC,  RAND,  RANDIV,  RANM,  RANSUB, 
& RANT,  RANX 


C LIST  OF  VARIABLES 

C 

C FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 

C lOUT  OUTPUT  DUMP  CONTROLLER 

C RANA  CONSTANT  FOR  LCG 

C RANC  CONSTANT  FOR  LCG 

C RAND  RANDOM  NUMBER  SEED 

C RANDIV  INTERNAL  CALCULATION 

C RANM  CONSTANT  FOR  LCG 

C RANSUB  INTERNAL  CALCULATION 

C RANT  INTERNAL  CALCULATION 

C RANX  INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  = 671093.0 
RANC  = 7090885.0 
RANM  = 33554432.0 

10  RANX  = RANA  * RAND  + RANC 
RANDIV  = RANX  / RANM 
RANT  = DINT (RANDIV) 

RANSUB  = RANT  * RANM 
RAND  = RANX  - RANSUB 
FRAC  = SNGL(RAND  / RANM) 


IF  ((FRAC  .EQ.  0.0)  .OR.  (FRAC  .EQ.  1-0) ) GOTO  10 
IF  (lOUT  .EQ.  2)  WRITE(8,*) 'RANX  =',  RANX,  ' RANDIV  , RANDIV, 
& ' RANT  =',  RANT,  ' RANSUB  =',  RANSUB,  ' RAND  =' , RAND, 

& ' FRAC  = ' , FRAC 

RETURN 

END 
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c 


NOTES:  IOUT=2  DUMPS  TO  SCREEN 


★ **★★*♦♦****♦**♦*♦*** 


C 

c 

c 

c 

c 

c 


FINDMN  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  TRUNCATED  NORMAL  M DISTRIBUTICW 
PROGRAMMER:  L*  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13FEB89 

VERSIC»I:  MATCHR  V8,  V8,l,  V8*2,  V8,3,  V8,4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4'  V4,5 


SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 

C INPUTS:  RAND,  NUMREG,  MU,  SIG,  RANGEM 

C OUTPUTS : MM 

C SUBPROGRAMS:  NORMGN,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG 

PICK(2),  RANGEM(2,  MAXREG), 

' SIG  (MAXREG),  X 

DOUBLE  PRECISION  RAND 


lOUT 

L 

MAXREG 

MM() 

^M^EG 
PICK() 
RAND 
RANGEM( ) 


SIG() 

X 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

motsted  i»»ge  oh  m to  be  sampled  HIOM 

CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
REGION  - RANGEM(1,L)  IS  THE  LONER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  STANDARD  DEVIATION  OF  M FOR  EACH 
REGION 

) ^random  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 


C INITIALIZE  MM() 

DO  50  L = 0,  MAXREG 
MM(MAXREG)  =0.0 
50  CC»ITINUE 


C BEGIN  CALCULATIONS 


C 


DO  100  L = 1,  NUMREG 

PICK(l)  =0.0 
PICK(2)  =0.0 


IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
MM(L)  = RANGEMfl,L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  ='  RANGEM (l.L) . 
ELSEIF  (L  .EQ.  1)  THEN  ' MM(L)  =' , MM(L) 
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20 


SAMPLE  ON  EXISTING  RANGE 

CALL  NORMGN  (RAND,  MU(L)  , SIG(L)  , X) 

IF  ((X  .LT.  RANGEM(1,L))  .OR.  (X  .GT.  RANGEM(2,L) ) ) GOTO  10 
MM(L)  = X 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,»)  'RANGEM(l.L)  RANGEM( 1,L) , 

' RANGEM(2,L)  =' , RANGEM(2,L) 

WRITE(8,*)  'L  =',  L,  ' X =' , X,  ' MM(L)  MM(L) 

ENDIF 

£«LS£ 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  = AMAX1(MM(L-1) , RANGEM(1,L)) 

PICK(2)  = RANGEM(2,L) 

IF  (PICK(l)  .GT.  PICK(2))  THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  BE  POSSIBLE 
STOP  PROGRAM 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  -rRMNAT 
EXjS£ 

SAMPLE  ON  ADJUSTED  RANGE 

CALL  NORMGN  (RAND.  MU(L),  SIG(L) , X)  

IF  ((X  .LT.  PICK(l))  .OR.  (X  .GT.  PICK(2)))  GOTO  20 
MM(L)  = X 
ENDIF 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'L  =',  L,  ' MM(L-l)  =' , MM(L-l), 

' RANGEM(1,L)  =' , RANGEM(1,L) 

WRITE(8,*)  'PICK(l)  =',  PICK(l),  ' PICK(2)  =' , PICK(2) 
WRITE(8,*)  'RANGEM(2,L)  =' , RANGEM(2,L),  ' X =' , X, 

' MM(L)  =',  MM(L) 


ENDIF 

ENDIF 

100  CONTINUE 


RETURN 

END 


*^*T*f**’^*  ******************  ****^*****************^**** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 


SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RAND<»1  NUMBER 
WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  3FEB88  ^ ^ 

VERSION:  MATCHRV7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


The  r2aidom  variates  are  generated  using  the  "Direct  Method" 
Abramowitz,  M.,  and  Stegun,  I.  A.,  editors.  Handbook  of  , 

Mathematical  Functions,  National  Bureau  of  Standards,  Applied 
Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
1970  with  corrections,  pg.  953. 

************************  *ir***ir  *************************************** 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 


C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 


COMMON  lOUT 


DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  = 3.1415926536) 

INTEGER  lOUT 
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c 

c 

C FRAC 
C lOUT 
C MU 
C RAND 
C SIGMA 
C X 
C U1 
C U2 
C Z1 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0,1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 


IF  ((lOUT  .EQ.  10)  .OR.  (lOUT  .EQ.  15)) 

S WRITE(8,*)  'RAND  =',  RAND,  ' MU  =',  MU,  ' SIGMA  =' , SIGMA 

CALL  RANDOM  (FRAC,  RAND) 

Ul  = FRAC 


CALL  RANDOM  (FRAC,  RAND) 
U2  = FRAC 


Z1  = SQRT  (-  2. 
Z2  = SQRT  (-2. 


* ALOG(Ul))  * COS(2.  * PI  * U2) 

* ALOG(Ul))  * SIN(2.  * PI  * U2) 


X = SIGMA  * Z1  + MU 

IF  ((lOUT  .EQ.  10)  .OR.  ( lOUT  .EQ.  15)) 

& WRITE(8,*)  'Zl  =',  Zl,  ' Z2  =',  Z2,  ' X =',  X 

RETURN 

END 


c 

c 

c 

c 

c 

c 


SUBROOTINE  TRNSFM  PERFORMS  THE  CALCULATICMIS  NECESSARY  TO  TRANSFORM 
THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4j  V4.5 


SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

C OUTPUTS:  NP,  ZZ 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

CCWmON  I OUT 


INTEGER  I,  lOUT,  K,  L,  LL,  NP,  NPTS (MAXREG) , NUMREG 

REAL  MM(0:MAXREG) , MML,  NBND(0 :MAXREG) , NF(MAXDAT,  MAXREG). 
& STR(MAXDAT,  MAXREG),  ZZ (MAXDAT)  ' 


C 

C 

C I 
C lOUT 
C K 
C L 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  EACH 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH 
CONTROLS  DO  LOOP  FOR  EACH 


DATA  POINT 

DATA  POINT  IN  EACH  REGION 
REGION 
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T.T.  CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGICWI)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM()  1-D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 

MML  EQUAL  TO  MM(L)  FOR  A SET  OF  CALCULATIONS 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NF()  2-D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTSO  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

STR()  2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 

S-N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

ZZ ( ) 1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


INITIALIZE  VARIABLES 
NP  = 0 

DO  50  I = 1.  MAXDAT 
ZZ(I)  = 0.0 
50  CONTINUE 


BEGIN  CALCULATIONS 

DO  100  L = 1,  NUMREG 
MML  = MM(L) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =' , L,  ' MM  =' , HM(L) , ' MML  =', 
& MML,  ' NPTS  =',  NPTS(L) 

DO  200  K = 1,  NPTS(L) 

NP  = NP  + 1 

ZZ(NP)  = ALOG(STR(K,L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'K  =',  K,  ' NP  =',  NP,  ' NF  =' , 

& NF(K,L),  ' STR  =',  STR(K,L),  ' ZZ  =',  ZZ(NP) 

DO  300  LL  = 2,  L 

ZZ(NP)  = ZZ(NP)  + ALOG(NBND(LL-l) ) 

& * ((1.0  / MM(LL-l))  - (1.0  / MM(LL))) 

IF  (lOUT  .EQ.  10)  WRITE(8,*) 'LL  =' , LL,  ' NBND(LL-l)  =' , 

& NBND(LL-l),  ' MM(LL-lJ  =' , MM(LL-l),  ' MM(LL)  =', 

& MM(LL) , ' ZZ  =' , ZZ(NP) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 


RETURN 

END 


SUBROUTINE  SMNVAR  CALCULATES  THE  San^le  MeaN  and  VARiance  OF 
Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V3.3,  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ , SZ2) 

C INPUTS:  NP,  ZZ 
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C OUTPUTS:  MEANZ,  SZ2 

C IMPLICIT  NONE 

INTEGER  MAXDAT 
PARAMETER  (MAXDAT  = 50) 

COMMON  lOUT 

INTEGER  I,  lOUT,  NP 

REAL  MEANZ,  SZ2,  ZZ(MAXDAT) 


LIST  OF  VARIABLES 


I 

lOUT 

MAXDAT 

MEANZ 

NP 

SZ2 

ZZ() 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 

POINTS  (PER  REGION)  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR.  NF  NBND  MM^ 
TOT^  NU^ER  OF  POINTS  IN  THE  SPECIFIC '^T&ll^  ^N  ' ’ 


SAMPLE  VARIANCE  OF  TRANSFORMED  DATA, 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED 
Z = F(STR,NF,NBND,MM) 


Z = F(STR, 
S/N  DATA, 


NF, 


NBND,  MM) 


C INITIALIZE  VARIABLES 

MEANZ  =0.0 
SZ2  =0.0 


I, 


C CALCULATE  THE  MEAN  OF  ZZ ( ) , MEANZ 

DO  100  1=1,  NP 

MEANZ  = MEANZ  + ZZ(I) 

IF  {lOUT  .EQ.  10)  WRITE(8,*) 'NP  =' , NP.  ' 1 ■ 

ioo‘continue"" 

MEANZ  = MEANZ  / FLOAT(NP) 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'  MEANZ  =',  MEANZ 

C CALCULATE  THE  VARIANCE  OF  ZZ ( ) , SZ2 

DO  200  I = 1,  NP 

SZ2  = SZ2  + (ZZ(I)  - MEANZ)  **  2 

WRITE(8,*)'I  =',  I,  ' SZ2  =',  SZ2 


200  CCWJTINUE 

SZ2  = SZ2  / FLOAT(NP  - 1) 
IF  (lOUT  .EQ.  10)  WRITE(8, 


) ' SZ2  =',  SZ2 


RETURN 

END 


c 

c 

c 

c 

c 

c 

c 


c 

c 


Dor^oKuum . L.  NEWLIN  ' ' 

CODE;  60CT87  COMMENTS;  13JUL89 

MATCHR  V|,^V6a,^V6.2,  V7,  V7.1,  V8,  V8.1, 

MATGRM  V4,'  V4.1,’  V4.2,  V4.3,  V4.4,  V4.5 


PROGRAMMER: 
DATE: 
VERSION: 


MEAN  AND 
V8.2,  V8.3, 


SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 


INPUTS:  MEANZ,  SZ2 

OUTPUTS:  K,  BZERO 
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C IMPLICIT  NONE 

REAL  PI 

PARAMETER  (PI  = 3.1415926536) 
COMMON  lOUT 
INTEGER  lOUT 

REAL  BZERO,  K,  MEAN2,  SZ,  SZ2 


LIST  OF  VARIABLES 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET 
lOUT  OUTPUT  DUMP  CONTROLLER 

K VALUE  OF  k - PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 

DATA  BASE 

MEANZ  SAMPUE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

PI  SELF  EXPLANATORY  CONSTANT 

SZ  SZ2  **  0.5 

SZ2  SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z = F(STR,  NF,  NBND,  MM) 


PERFORM  CALCULATIONS 


SZ  = SZ2  **  0.5 

BZERO  = PI  / (SZ  * (6.0  **  0.5)) 
K MEANZ 


DATA  DUMP  STATEMENTS 

IF  (lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'SZ2  =',  SZ2,  ' SZ  =',  SZ 

WRITE(8,*)  'MEANZ  =',  MEANZ,  ' K = ' , K,  ' BZERO  =' , BZERO 
ENDIF 

RETURN 

END 


SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K,  WHERE  A = K **  M FOR 
EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  7JUN88 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C INPUTS:  BZERO,  K,  MM,  NBND,  NUMREG 

C OUTPUTS:  BIGK 

C IMPLICIT  NONE 

INTEGER  MAXREG 

REAL  GAMMA 

PARAMETER  (GAMMA  = 0.57721566490,  MAXREG  = 3) 
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COMMON  I OUT 

INTEGER  lOUT^  L,  NUMREG 

REAL  BIGK(  0 iMAXREG) , BZERO,  K,  MM ( 0 : MAXREG ) , NBND ( 0 : MAXREG ) 


LIST  OF  VARIABLES 


BIGK() 

BZERO 

GAMMA 

lOUT 

K 

L 

MAXREG 
MM(  ) 
NBND() 

NUMREG 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K ♦♦  M 
FOR  EACH  REGION  « iv  n 

PARAMETER,  BETAO,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
EULER'S  CONSTANT 
OUTPUT  DUMP  CONTROLLER 

PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M F<«  EACH  REGION 

(CYCLES)  FOR  THE  NUMREG 

NUMBER  OF  REGIONS  OF  INTEREST 


C INITIALIZE  VARIABLES 

DO  50  L = 0,  MAXREG 
BIGK(L)  =0,0 
50  CONTINUE 

C CALCULATE  K FOR  REGION  ONE 

^ / bze«o) 


K, 


IF  JIOUT  .EQ.  10)  WRITE(8,*J 'BZERO  ='  BZERO,  ' 

& > GAMMA  GAMMA,  ' BIGK(l)  BIGK(l) 

CALCULATE  K FOR  REMAINING  REGIONS 

DO  100  L = 2,  NUMREG 

BIGK(L)  = BIGK(L-l)  * NBND(L-l) 

4 **  ((1.0  / MM(L))  - (1.0  / MM(L-l)n 

^TE^,*)  'REGION  ',  l'  ' K =' , BIGK^)  ” 

IF  (lOUT  .EQ.  10)  WRITE(8,*)'L  =',  L,  ' mND(L-l)  =' 

I 

100  CONTINUE  ' 

RETURN 

END 


c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FINDSB  CALCULATES  THE  REGION  'TIE-POINTS'  — THE  S'TRP<?^ 
VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  Ms,  AND  THE  Ks  CALCUIATCD^raOM  Tffi  BMA  AND  T 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DATE:  22DEC88 

VERSION:  MATCHR  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SEND) 

C INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

C OUTPUTS:  SEND 


C IMPLICIT  NONE 


INTEGER  MAXREG 


7-334 


rionnoonnoonno  o non  oooonnnooooonono 


PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 

INTEGER  lOUT,  L,  NUMREG,  ZROREG 

REAL  BIGK(0:MAXREG) , MM(0 :MAXREG) , NBND( 0 :MAXREG) , 

& SBND(0 :MAXR£G) 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SBND{)  1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGKXI  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


INITIALIZE  SBND ( ) 

DO  50  L = 0,  MAXREG 
SBND(L)  =0.0 
50  CONTINUE 

CALCULATE  SBND(O)  IF  ZROREG  = 0 

IF  (ZROREG  .EQ.  0)  THEN 

SBND(O)  = BIGK(l)  * NBND(O)  **  (-1.0  / MM(1)) 
ENDIF 

CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 

DO  100  L = 1,  NUMREG 

IF  (NBND(L)  .GE.  1 . OE+36 ) THEN 
SBND(L)  =0.0 
ELSE 

SBND(L)  = BIGK(L)  * NBND(L)  **  (-1.0  / MM(L) ) 
ENDIF 
100  CONTINUE 

RETURN 

END 


THIS  SUBROUTINE  GENERATES  WEIBULL (BETA, ETA)  RANDOM  VARIATES  WITH 
MEDIAN  OF  DISTRIBUTION  CONSTRAINED  TO  BE  ONE  USING  THE  "INVERSE 
TRANSFORM  METHOD" 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 

CODE:  18MAR87  COMMENTS:  15SEP89 


MATCHR  V4,  V5,  V5.1,  V5.2, 
V7,  V7.1,  V8,  V8.1, 
MATGRM  V2,  V3,  V3.1,  V3.2, 
V4.3,  V4.4,  V4.5 


V5.3,  V6,  V6.1,  V6.2, 
V8.2,  V8.3,  V8.4,  V8.5 
V3.3,  V4,  V4.1,  V4.2, 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  ac)cnowledged. 
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SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS;  BETA,  RAND 
C OUTPUTS:  WEIB 

C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  lOUT 

INTEGER  I OUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C 

C 

C ARG 
C BETA 
C ETA 
C FRAC 
C lOUT 
C RAND 
C WEIB 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 
WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 
UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
RANDOM  NUMBER  SEED 

WEIBULL( BETA, ETA)  GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 


ETA  *=  1.0  / (ALOG(2.0)  **  (1.0  / BETA)) 
GENERATE  WEIBULL  RANDOM  VARIATE 


CALL  RANDOM(FRAC,  RAND) 

ARG  = -ALOG(1.0  - FRAC) 

WEIB  = ETA  * ARG** ( 1.0/BETA) 

IF  JIOUT  .EQ.  10)  WRITE(8,*) 'BETA  = 

5.  FRAC  =',  F^C,  ' ARG  =',  ARG,  ' 


BETA, 

WEIB 


RETURN 

END 


' ETA 
WEIB 


ETA, 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KOMO  CALCULATES  Ko  AND  MO  FOR  THE  ZERO  REGION  (NO  DATA 
LEFT).  IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE ' POINT 

pRolif^R^^ 

DATE;  1AUG91 

VERSION;  MATCHR  V8.5  MATGRM  V4.5 

(^)  1990,  California  Institut©  of  Technology, 
y.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
IS  acKnowieoged . 


c 

c 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK 
*■  FACTR,  NUMREG) 

MM,  NBND,  TRSBND,  FACTR 
OUTPUTS:  TRBIGK,  MM,  TRSBND 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 
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INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK(0:MAXREG) , FACTR,  MM< 0 :MAXREG) , NBND( 0 :MAXREG) , 

1 SCLK,  SZERO,  TRBIGK(0:MAXREG) , TRSBND( 0 :MAXREG) 


LIST  OF  VARIABLES 

BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 

EACH  REGION 

FACTR  SCALE  FACTOR  = PHI  * KRATIO  * Z 
lOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS 

SCLK  ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 
SZERO  STRESS  TENSILE  TEST  POINT,  SO 

TRBIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < SO  FOR  EACH  TRIAL 

TRSBND( ) 1-D  ARRAY  CONTAINING  STRESS  VALUES  CORRESPCXIDING  TO  THE 

LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND() 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK(O)  = SZERO 

IF  (TRSBND(O)  .GT.  SZERO)  THEN 
SCLK  = SZERO/TRSBND(0) 

DO  100  L = 0,  NUMREG 

TRBIGK(L)  = BIGK(L)  * SCLK 
TRSBND(L)  = TRSBND(L)  * SCLK 
100  CCWTINUE 

ELSE 

TRBIGK(O)  = SZERO/FACTR 

MM(0)  = MM(1)  * f(ALOG  (BIGK(l))  - ALOG  (TRSBND(OJ) 

& + ALOG  (FACTR))  / (ALOG  (SZERO)  - ALOG  (TRSBND( 0) ) ) ) 

ENDIF 
C 

IF  (lOOT  .EQ.  10)  THEN 

WRITE (8,*)  'SZERO  = ',  SZERO,  ' BIGKO  = TRBIGK(O) 
WRITE(8,*)  'FACTOR  = ',  FAC'TR,  ' BIGKl  = TRBIGK(i) 
WRITE(8,*)  'MMl  = ',  MM(1),  ' MMO  * MM(0) 

ENDIF 


RE'TURN 

END 


C FUNCTION  GTLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR  STRESS 
C BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  10FEB89 

C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  - FOR  USE  WITH  PFM'S 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


REAL  FUNCTION  GTLIFE  (S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ , SBND, 

& ZROREG,  NUMREG,  SZERO) 

C INPUTS:  S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

C OUTPUTS : GTLIFE 

C IMPLICIT  NONE 
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INTEGER  lOUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  = 3) 

COMMON  lOUT 


REAL 

& 


GETLIF,  KRATIO,  LNA( 0 :MAXREG) , 
MM(0:MAXREG) , S,  SBND( 0:MAXREG) 


LNZ,  LPHIM(0:MAXREG) 
, SZERO,  TEMP 


GETLIF 

lOUT 

KRATIO 

L 

LNA() 

LNZ 

LPHIM( ) 

MAXREG 
MM( ) 
NUMteG 
S 

SBND() 


SZERO 

TEMP 

ZROREG 


LIST  OF  VARIABLES 

VALUE  TO  BE  ASSIGNED  TO  GTLIFE  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 

OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGKXI 

VAHJES  OF  Ln(A)  > M Ln  K FOR  EACH  REGION 

NORMAL (0,PVAR)  GENERATED  RANDOM  VARIATE 

VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 

etao)  generated  random  variate 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NUMBER  OF  REGIONS  OF  INTEREST  maij-v/w 

VALUE  OF  STRESS  (PSI)  FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 
FAILURE)  IS  REQUIRED  ' 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 

COR^TONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 

STRESS  TENSILE  POINT ! So 

TE^ORARY  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 
rXiOWS 

^ FACILITATE  REGIC»I  DO  LOOP 
BEGINNING  VALUE  - 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


GETLIF  =0.0 


C CALCULATE  CYCLES  TO  FAILURE 

.GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  =1.0 
ELSE 

DO  100  L = ZROREG,  NUMREG 
IF  (S  .GT.  SBND(L))  THEN 
TEMP  = LNA(L) 

& + 

IF  (TEMP  .GT. 

TEMP  =86.0 
ENDIF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 

RETURN 
END 


T Jjir'nj.niljl  -I-  HM(L)  ♦ 

ALOG  (K^TIO)  + LNZ) 
86.0)  THEN 


c 

c 

c 

c 

c 

c 


SUBROUTINE  ' SORTM 
M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 


SORTS  THE  ARRAY,  ALLM( ) , FROM  LOWEST  TO  HIGHEST 


DATE : 
VERSION: 


10FEB88 
MATCHR  V7, 
MATGRM  V4, 


V8.3,  V8.4,  V8.5 
V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
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c 

C Copyright  (C)  1990,  California  Institute  of  Technology* 

C U.S*  Government  Sponsorship  under  NASA  Contract  NAS7-918 
c is  acknowledged* 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS : ALLM 


C IMPLICIT  NONE 

COMMC»4  lOUT 

INTEGER  I,  INC,  lOUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  = 20001,  MAXREG  « 3) 

LOGICAL  INORDR 


REAL  ALLM(MAXMM,  MAXREG),  TEMP 


C 

C 

ALLM(  ) 
I 

INC 

INORDR 
lOUT 
L 

MAXMM 
MAXREG 
NUM 
NUMREG 
TEMP 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 
SORT  INCREMENT  VARIABLE 

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLM(  ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L = 1,  NUMREG 


5 

INC  = NUM 

10 

IF  (INC  .GT. 

1)  THEN 

INC  = INC 

/ 2 

20 

INORDR  = 

•TRUE . 

DO  300  1=1,  (NUM  - INC) 

IF  (ALLM(I,L)  *GT.  ALLM(I  + INC,  L)  ) THEN 
TOMP  = ALLM(I,L) 

ALLM(I,L)  = ALLM(I  + INC,  L) 

ALLM(I  + INC,  L)  = TEMP 
INORDR  = .FALSE. 

ENDIF 

300  CONTINUE 

IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 

400  CONTINUE 


RETURN 

END 
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